ada yang bisa ngasih solusi ini?

7 tahun lalu
N
NOVI
1 Agu 2017 + 316 Poin
SHEET BTB KETIKA D KLIK TOMBOL PRINT AKAN TER PRINT DAN TER RECORD DI SHEET TRANSAKSI
YANG JADI MASALAH NONGOL ERROR TUH :D
SS error sama sample file terlampir
BTB.png

STOCK 08.xlsm
Terjawab oleh Caton
Lihat Jawaban terkait

Solusi pertama, hapus spasi pada bagian akhir nama sheet TRANSAKSI.
[attachment:59808954b2137]
Solusi kedua, pada baris program, ubah setiap notasi:
Worksheets("TRANSAKSI")
menjadi:
Worksheets("TRANSAKSI ")
Perbedaannya ada pada karakter spasi pada nama sheetnya. Saran saya, lebih baik lakukan solusi pertama karena lebih cepat dan mudah.
Caton
1 Agu 2017 Terverifikasi Jawaban Terpilih Indonesia + 20.101 Poin
Solusi pertama, hapus spasi pada bagian akhir nama sheet TRANSAKSI.
Solusi kedua, pada baris program, ubah setiap notasi:
```
Worksheets("TRANSAKSI")
```
menjadi:
```
Worksheets("TRANSAKSI ")
```
Perbedaannya ada pada karakter spasi pada nama sheetnya. Saran saya, lebih baik lakukan solusi pertama karena lebih cepat dan mudah.

Caton

1 Agu 2017 Terverifikasi Indonesia + 20.101 Poin

Sekedar saran, untuk kode VBA bisa disederhanakan menjadi:

Sub PrintBTB()
    ActiveSheet.PrintOut
    ThisWorkbook.Save
    
    With Worksheets("TRANSAKSI ")
        posi = 1
        While .Cells(posi, 1).Value <> ""
            posi = posi + 1
        Wend
        
        ambi = 1
        While Worksheets("BTB").Cells(ambi + 5, 2) <> ""
           'tanggal
           .Cells(posi, 1).Value = Worksheets("BTB").Cells(2, 4).Value
           'mitra bisnis
           .Cells(posi, 2).Value = Worksheets("BTB").Cells(3, 8).Value
           'sales
           .Cells(posi, 3).Value = Worksheets("BTB").Cells(4, 4).Value
           'no btb
           .Cells(posi, 4).Value = Worksheets("BTB").Cells(3, 4).Value
           'ket
           .Cells(posi, 13).Value = Worksheets("BTB").Cells(24, 4).Value
           'kode
           .Cells(posi, 5).Value = Worksheets("BTB").Cells(ambi + 6, 2).Value
           'item
           .Cells(posi, 6).Value = Worksheets("BTB").Cells(ambi + 6, 4).Value
           'item
           .Cells(posi, 7).Value = Worksheets("BTB").Cells(ambi + 6, 6).Value
           ambi = ambi + 1
           posi = posi + 1
        Wend
    End With
End Sub

Kemudian, sebagaimana penjelasan saya di diskusi sebelumnya, penggunaan metode .Save itu cukup salah satunya saja, tidak perlu ditulis ketiga-tiganya... :)

N

NOVI
2 Agu 2017 + 316 Poin

mantap mas @Caton hehehe, lupa kenapa gak saya tanya sumbernya aja ya saya lupa dulu yang ngajarin mas caton
Caton
2 Agu 2017 Terverifikasi Indonesia + 20.101 Poin

Hehe... yang penting mbak @Novi bisa terbantu dalam menemukan solusinya :)

NOVI

Terjawab oleh Caton

Caton

Caton

NOVI

Caton