Sore Pak Ivan
Coba seperti ini.
Sub ISI()
Dim rowData As Integer
Dim rowHasil As Integer
Dim rowPaste As Integer
'Jarak setiap nota 25 row.
'row dihapus samape 35000
Rows("4:35000").Delete Shift:=xlUp
' titik awal pengambilan data
rowData = 22
rowHasil = 2
rowPaste = 1
Range("A1:I3").Copy
With Sh
Waow.. Sempurna sekali rumusnya pak... Sesuai yg saya harapkan... Thx banget
pak..
Sent from my PC
> On 7 Okt 2015, at 08.21, SUYONO reza.suy...@lge.com [belajar-excel]
> wrote:
>
> Hehe.., coba seperti ini.
>
>
>
> Sub Rectangle7_Click()
>
>
>
> Dim lastRow As Long, i As Long, j As Long
>
>
Hehe.., coba seperti ini.
Sub Rectangle7_Click()
Dim lastRow As Long, i As Long, j As Long
Dim idxrow As Integer
Dim jml As Integer
Dim item As String
Dim getVal As Integer
Dim satuan As String
Range("I2:P473").ClearContents
lastRow = 597
For i = 1 To lastRow
item = Sheets("CETAK NOTA
Coba diganti seperti ini pak, semoga sesuai keinginan.
Sub Rectangle7_Click()
Dim lastRow As Long, i As Long, j As Long
Dim idxrow As Integer
Dim jml As Integer
Dim item As String
Dim getVal As Integer
Range("I2:P473").ClearContents
lastRow = 597
For i = 1 To lastRow
item = Sheets("CETAK NOTA"
Pagi Pak Ivan
Coba ditambahin fungsi counta dan ditambah 8 sebagai colom pertama pengisian
data.
Sub Rectangle6_Click()
Range("h2:ae8").ClearContents
Application.ScreenUpdating = False
Dim lastRow As Long, i As Long, j As Long
Dim jml As Integer
lastRow = 597
j = 1
For x = 2 To 7
For i = 1
5 matches
Mail list logo