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
>
>
>
