Copy Bersambung

  1. 4 tahun lalu

    Mohon pencerahan para master BE-ORG
    Saya kesulitan bagaimana caranya agar data di sheet-1 dapat di ubah secara otomatis dengan menggunakan VBA
    menjadi seperti data di sheet-2
    Terimakasih

    Mahmud Payu
    Gorontalo

  2. kirim contoh filenya @Mahmud Payu , biar para masternya gampang memahami kasusnya

  3. mohon maaf, ini filenya saya lampirkan lagi
    Mohon pencerahan para master BE-ORG
    Saya kesulitan bagaimana caranya agar data di sheet-1 dapat di ubah secara otomatis dengan menggunakan VBA
    menjadi seperti data di sheet-2
    Terimakasih

    Mahmud Payu
    Gorontalo
    copy bersambung.xlsx

  4. Waduw, saya jg newbe disini brow, nanti Masternya yang membantu

  5. apakah sudah mengerti vba macro sebelumnya?
    jika sudah,
    hal yang biasa saya gunakan pakai perrintahnya...

    1. menggunakan "DO while" untuk memeriksa perbaris
    2. lalu ditambahkan "IF" untuk memeriksa apakah kolom 3.1 & 3.2 sudah terisi semua,
    3. jika terisi kasih perintah copy data ke sheet tujuan.
  6. Caton

    28 Jan 2020 Terverifikasi Indonesia + 20.101 Poin

    @Mahmud Payu ...

    Terlampir contoh script sederhana yang bisa dicoba. Silahkan dipelajari dan dikembangkan kembali. Semoga sesuai.

    Demikian.

  7. terimakasih atas bantuannya,saya akan coba terapkan

  8. sekali lagi terimakasih @Caton yang sudah memberikan scriptnya,saya sudah coba dan sesuaikan dan berhasil, mungkin ada yang membutuhkan contoh yang sama ini saya lampikan filenya.Saya dengan senang berharap mungkin ada saran untuk perubahan ini ?

  9. @Caton
    Mau tanya agar hasil copy data hanya di satu baris saja , scrip ini di rubah menjadi apa ?

    For lZ = 5 To 14
            '+-- Iterasi sebanyak data!
            For lY = 3 To lR
                If Sheet1.Cells(lY, lZ) <> "" Then
                    Sheet3.Cells(lX, 1) = lIdx
                    Sheet3.Cells(lX, 2) = Sheet1.Cells(lY, 2)
                    Sheet3.Cells(lX, 3) = Sheet1.Cells(lY, 3)
                    Sheet3.Cells(lX, 4) = Sheet1.Cells(lY, 4)
                    Sheet3.Cells(lX, 5) = Sheet1.Cells(2, lZ)
                    Sheet3.Cells(lX, 6) = Sheet1.Cells(lY, lZ)

    -image-

 

atau Mendaftar untuk ikut berdiskusi!