ada yang bisa ngasih solusi ini?

  1. tahun lalu

    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

    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.

  2. Caton

    1 Agu 2017 Terverifikasi Jawaban Terpilih Indonesia + 13.255 Poin

    Solusi pertama, hapus spasi pada bagian akhir nama sheet TRANSAKSI.

    shoot.png

    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.

  3. Caton

    1 Agu 2017 Terverifikasi Indonesia + 13.255 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... :)

  4. mantap mas @Caton hehehe, lupa kenapa gak saya tanya sumbernya aja ya saya lupa dulu yang ngajarin mas caton

  5. Caton

    2 Agu 2017 Terverifikasi Indonesia + 13.255 Poin

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

 

atau Mendaftar untuk ikut berdiskusi!