Asalamualaikum warahmatullah. Coba diubah menjadi begini: Sub Inputdata() Dim Baris, totalBaris As Long Dim jumlah, i As Integer totalBaris = Sheet2.Cells.Rows.Count jumlah = Application.CountA(Sheet1.Range("C12:C19")) Baris = Sheet2.Cells(totalBaris, 1).End(xlUp).Row + 1 For i = 1 To jumlah Sheet2.Range("A" & Baris + i - 1).Value = "=ROW()-2" Sheet2.Range("B" & Baris + i - 1).Value = Sheet1.Range("R6").Value Sheet2.Range("C" & Baris + i - 1).Value = Sheet1.Range("D6").Value Sheet2.Range("D" & Baris + i - 1).Value = Sheet1.Range("P3").Value Sheet2.Range("E" & Baris + i - 1).Value = Sheet1.Range("P4").Value Sheet2.Range("F" & Baris + i - 1).Value = Sheet1.Range("C" & 11 + i).Value Sheet2.Range("G" & Baris + i - 1).Value = Sheet1.Range("D" & 11 + i).Value Sheet2.Range("H" & Baris + i - 1).Value = Sheet1.Range("J" & 11 + i).Value Sheet2.Range("i" & Baris + i - 1).Value = Sheet1.Range("K" & 11 + i).Value Sheet2.Range("j" & Baris + i - 1).Value = Sheet1.Range("L" & 11 + i).Value Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("M" & 11 + i).Value Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("N" & 11 + i).Value Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("O" & 11 + i).Value
Sheet1.Range("C" & 11 + i).Value = "" Sheet1.Range("D" & 11 + i).Value = "" Sheet1.Range("J" & 11 + i).Value = "" Sheet1.Range("K" & 11 + i).Value = "" Sheet1.Range("L" & 11 + i).Value = "" Sheet1.Range("M" & 11 + i).Value = "" Sheet1.Range("N" & 11 + i).Value = "" Sheet1.Range("O" & 11 + i).Value = "" Next i MsgBox "Data sudah masuk database" Sheet1.Range("R6").Value = "" Sheet1.Range("D6").Value = "" Sheet1.Range("P3").Value = "" Sheet1.Range("P4").Value = "" End Sub diubah sesuai dengan keadaan setempat. sebenarnya cekrip masih dapat disingkat, silahkan range diubah menjadi cell. wasalamualaikum warahmatullah 2015-11-13 15:37 GMT+07:00 faiq_ar...@yahoo.co.id [belajar-excel] < belajar-excel@yahoogroups.com>: > > > aswr > > perkenalkan nama saya muhammad (ahmad). yth admin mohon pencerahannya, > saya sedang otak atik faktur untuk usaha kecil kecil keluarga, rencana saya > faktur yang dibuat maka data inputan faktur akan langsung tercopy di sheet > lain. tapi saat ini saya hanya dapat mengcopykan item barang baris pertama > saja sedangkan yang lainnya tidak. mohon bantuannya. terima kasih. wswr > > >