Copy paste bersambung baris bawahnya yg kosong

  1. 5 minggu lalu

    malam all master excel
    malam kak @manweljs_

    Supaya copy paste bersambung ke baris bawahnya yg kosong,,, kira2 bagaimana yaa kak

    contoh terlampir :)

    @anggun123

    cari baris terakhir dahulu :

    x = ThisWorkbook.Worksheets("Sheet1").Range("B" & rows.count).end(xlup).row +1

    kemudian paste value:

    ThisWorkbook.Worksheets("Sheet1").Range("B" & x).PasteSpecial xlPasteValues

    untuk loading yang lama, gunakan kalkulasi manual selama proses makronya berjalan, contohnya seperti gambar ini :

    [attachment:5ee4d0425b53f]

  2. @anggun123

    yang ini kan sudah pernah di bahas di diskusi sebelumnya. hasilnya akan seperti ini :

    importdata.gif

  3. wah iya kak @manweljs_ ,,,, maaf gk ngeh

    Jika kondisi memakai kode seperti ini

    OpenBook.Sheets(1).Range("A1:A2000").Copy
    ThisWorkbook.Worksheets("Sheet1").Range("B2").PasteSpecial xlPasteValues

    apa bisa di kondisikan seperti itu kak yaa.... jika bisa,, edit dibagian mana nya :)
    soale kmrin coba pakai kode diatas , pas loading lama banget

  4. 4 minggu lalu

    manweljs_

    Jun 13 Terverifikasi Jawaban Terpilih + 10.044 Poin

    @anggun123

    cari baris terakhir dahulu :

    x = ThisWorkbook.Worksheets("Sheet1").Range("B" & rows.count).end(xlup).row +1

    kemudian paste value:

    ThisWorkbook.Worksheets("Sheet1").Range("B" & x).PasteSpecial xlPasteValues

    untuk loading yang lama, gunakan kalkulasi manual selama proses makronya berjalan, contohnya seperti gambar ini :

    19-AutoCalculation.png

  5. Alhamdulillah Solved,, terima kasih kak @manweljs_

 

atau Mendaftar untuk ikut berdiskusi!