Masih Kopi paste VBA

  1. 3 bulan yang lalu
    Di sunting 3 bulan yang lalu oleh cahyono sidiq

    Mohon pencerahan
    saya kesulitan untuk membuat macro kopi paste value di sheet rekap harian dari sheet kwitansi

  2. manweljs_

    Jan 22 Terverifikasi + 8.006 Poin

    @cahyono sidiq

    coba skrip berikut :

    Sub Tes()
    Dim sh As Worksheet: Set sh = Sheet5
    With Sheet6
    For Each sel In .Range("C9:C18")
        If Len(sel) Then
            x = sh.Range("B" & Rows.Count).End(xlUp).Row + 1
            sh.Cells(x, 2) = "" 'INPUT NOP itu apa? silahkan rujuk ke selnya
            sh.Cells(x, 3) = "" 'NOP itu apa? silahkan rujuk ke selnya
            sh.Cells(x, 4) = .[D4]
            sh.Cells(x, 5) = Now
            sh.Cells(x, 6) = sel.Offset(0, 2)
            sh.Cells(x, 7) = sel.Offset(0, 3)
            sh.Cells(x, 8) = sel.Offset(0, 4)
            sh.Cells(x, 9) = .[D7]
        End If
    Next
    End With
    End Sub

    Note :
    Karena baris yang di periksa untuk penambahan baris adalah kolom B (nilai x), maka jika ingin barisnya terus bertambah nilai INPUT NOP harus terisi

  3. Saya Coba dulu @manweljs_ terimakasih

  4. Jadinya ko seperti ini ya....
    bisa minta tolong lagi masta

  5. Terimkasih master sudah ketemu

    mohon di koreksi

  6. manweljs_

    Jan 23 Terverifikasi + 8.006 Poin

    @cahyono sidiq ...mohon di koreksi...

    ya, ± seperti itu

  7. Terimakasih terimakasih.....terimakasih....

  8. Untuk Pemahaman bahasa VBA apa ada yang punya kamusnya ya? misal dim as string false dan yang lainnya supaya mudah memahami pengkodingan dan artinya....ada yang punya?

  9. manweljs_

    Jan 23 Terverifikasi + 8.006 Poin

    @cahyono sidiq Untuk Pemahaman bahasa VBA apa ada yang punya kamusnya ya? misal dim as string false dan yang lainnya supaya mudah memahami pengkodingan dan artinya....ada yang punya?

    mungkin bisa coba pelajari lampiran-lampiran pada diskusi Belajar VBA & macro

 

atau Mendaftar untuk ikut berdiskusi!