copas tidak jalan ke baris berikutnya

  1. 7 bulan yang lalu

    selamat malam para master belajar excel.org , mohon ijin bertanya
    saya ada kesulitan untuk memindahkan hasil copas dari file lain ke sheet rekap, setiap say acopas pasti mentok di cell A7 tidak berpindah ke baris berikutnya ketika file baru dipilih dan dilakukan copas, mohon penyelesaian dari permasalahn saya, matur nuwun. file terlampir

  2. Caton

    5 Jan 2018 Terverifikasi Indonesia + 10.420 Poin

    @Jondidi... Ada file contoh data yang akan disalin ke sheet Rekap (selain file target di atas)?

  3. Di sunting 7 bulan yang lalu oleh jondidi

    mas @Caton mohon maaf lupa mas hehehe, file terlampir. file sampel lebih dari satu mas. matur nuwun

  4. Caton

    6 Jan 2018 Terverifikasi Indonesia + 10.420 Poin

    Terlampir file untuk revisi script VBA yang mas @Jondidi buat. Semoga sesuai... ;)

  5. Terima kasih mas @Caton atas file serta koreksinya, mohon penjelasan soal tersebut, maklum mas masih awam soal vba heheehe, semoga sukses dan tetep membantu memberikan pencerahan kepada yg mengalami kesulitan.

  6. Caton

    7 Jan 2018 Terverifikasi Indonesia + 10.420 Poin
    Di sunting 7 bulan yang lalu oleh Caton

    Masalahnya ada pada baris script berikut (script ini merupakan script asli yang mas @Jondidi gunakan, bukan pada script yang sudah saya revisi):

    ...
    TargetSheet.Range("A7").PasteSpecial Paste:=xlPasteValues
    If TargetSheet.Range("A7").Offset(1, 0).Value = "" Then
       TargetSheet.Range("A7").Offset(1, 0).Select
    Else
       TargetSheet.Range("A7").End(xlDown).Offset(1, 0).Select
    End If
    ...

    Yang menjadi masalah, script:

    TargetSheet.Range("A7").PasteSpecial Paste:=xlPasteValues

    sudah dieksekusi duluan (dalam hal ini, sudah menempelkan hasil range yang disalin), sebelum proses menemukan baris kosong (pada script dibawahnya) dilakukan. Akibatnya hasil salinan dari Workbook sumber (file K7A) terus menerus ditempelkan pada baris ke-7 (sel A7). Untuk memperbaikinya, modifikasi 6 baris script di atas menjadi:

    ...
    If TargetSheet.Range("A7").Value = "" Then
       TargetSheet.Range("A7").PasteSpecial xlPasteValues
    Else
       TargetSheet.Range("A10000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    End If
    ...

    Lakukan modifikasi tersebut pada script yang mas @Jondidi buat sebelumnya. Kemudian coba jalankan prosedur AmbilData untuk memastikan modifikasi berhasil atau tidak. Demikian... ;)

  7. Matur nuwun mas @Caton atas penjelasannya dan file yg direvisi oleh mas @Caton sesuai harapan saya, sukses terus mas. Iya saya akan coba dl, sebelumnya terimakasih banyak dan sudah merepotkan.

  8. Caton

    7 Jan 2018 Terverifikasi Indonesia + 10.420 Poin

    Sama-sama mas @Jondidi... semoga kesuksesan juga buat mas... :) Silahkan diskusikan kembali jika ada masalah atau kendala... ;)

 

atau Mendaftar untuk ikut berdiskusi!