Misal jika di textBox1 isi 5
maka baris juga akan di copy menjadi lima, dengan acuan cell A3:L3 adalah cell Aktif ( di Block )
Dim xCount As Integer
xCount = TextBox1.Value
ActiveCell.EntireRow.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
tEXTbOX1 = Bisa di ganti cell
------------------------------------------------------------------------------------------------
SEDANG UNTUK Membuat Nomor Otomatis dan urut Macro sbb :
Sheet4.Select
Range("a4").Select
Dim i As Integer 'akad perjanjian dalam kode
i = TUTKJMLPRINT.Value
For i = 1 To i 'Menentukan dari bilangan 1 hingga i
ActiveCell.Value = i 'Menetukan cell yang akan di input dari InputBox
ActiveCell.Offset(1, 0).Activate 'Hanya terjadi ada cell aktif
Next i '
Range("a4").Select
Dim i As Integer 'akad perjanjian dalam kode
i = TUTKJMLPRINT.Value
For i = 1 To i 'Menentukan dari bilangan 1 hingga i
ActiveCell.Value = i 'Menetukan cell yang akan di input dari InputBox
ActiveCell.Offset(1, 0).Activate 'Hanya terjadi ada cell aktif
Next i '
Range A4 menjadi patokan untuk menentukan mulainya angka,
misal textBox 1 diisi angka 5, makan akan muncul 5 nomor urut di mulai dari cell A4.
tinggal di pahami dan di kembangkan.