copy ke sheet lain baris terakhir+1

  1. 6 tahun lalu

    Sheets("input").Range("A6:G6").Copy Sheets(Sheet1).Cells(Rows.Count, 1).End(xlUp).Row + 1

    Somebody help me please , copi dari sheet "input" range A6:G6 ke "sheet 1" baris terakhir + 1, scriptnya gmna ya ???, tanya terus sama @ manwejls malu, hehe...

  2. try :

    Sheets("input").Range("A6:G6").Copy Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1)

  3. I'll try master, thanx alot!!!

  4. gk bisa master, gagal

    COBa.jpg

  5. Di sunting 6 tahun lalu oleh manweljs_

    @bejo

    gambarnya gak jelas..

    Sheet1 itu Name nya bukan "Sheet1" tapi "data 1" (kalau gak salah lihat)

    saat menulis skripnya pastikan mau pakai (Name) atau Name, perbedaanya :

    (Name)  = Sheet1
    Name  = "data 1"

    pada kolom VBA Projectnya akan terlihat seperti ini :
    Capture.PNG

    Sheet1 (data 1)

    dalam skrip VBA misalnya mau menyebutkan Range A1

    (Name) : Sheet1.Range("A1")
    Name : Sheets("data 1").Range("A1")

    jadi harusnya :

    Sheets("input").Range("A6:G6").Copy Sheets("data 1").Cells(Rows.Count, 1).End(xlUp).Offset(1)

    atau

    Sheets("input").Range("A6:G6").Copy Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1)


    kira-kira demikian yang saya ketahui

  6. TERIMA KASIH LAGI MASTER

  7. master, semua file excel saya kalo gk dipake selama 5 menit akan menutup dengan sendrinya, saya dulu pernah dowload file vba yang isinya apabila komputer tidak tersentuh selama 5 menit maka semua file excel akan menutup dengan sendirinya, padahal filenya sudah saya hapus, tp masih bekerja vba nya, gmna cara menormalkannya kembali ya master?

  8. @bejo

    coba periksa excel addins, kalau ketemu disable atau uninstal aja
    maxresdefault.jpg

  9. terima kasih master

 

atau Mendaftar untuk ikut berdiskusi!