maaf, workbook yg dikirim adalah workbook versi 1 step sebelum dianggap
final
makronya ada kurang sedikit
mohon dibuka module sheet Reg & Search
editlah makro menjadi seperti ini (hanya ada penambahan + 1
Private Sub CommandButton1_Click()
'-- entri data --
Dim EntriSheet As Worksheet
Dim rDestin As Range
Dim iRow As Long
Set EntriSheet = Worksheets(Left(Range("J5"), 1))
Set rDestin = EntriSheet.Cells(1).CurrentRegion
*iRow = rDestin.Rows.Count** + 1*
Range("J4:J7").Copy
rDestin(iRow, 1).Resize(1, rDestin.Columns.Count). _
PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True
Application.CutCopyMode = False
End Sub
*o'Seno*
http://www.box.com/s/1c5lpx7mcb8y0t2meaxh
2012/1/5 o' Seno <[email protected]>
> oh ada kasus baru, gak lihat, soalnya main catur mulluk...
>
> gampang...
> yg *nomor 2* dulu
> VBA Code untuk memasukkan data (data entri)
> dari range J4:J7 di sheet REG SEARCH
> ke sheet yg nama Tab nya sama dengan huruf pertama cell J5
> ya kan ??
>
> ' ------- module Sheet REG & SEARCH" ---------
> Private Sub CommandButton1_Click()
> '-- entri data --
> Dim EntriSheet As Worksheet
> Dim rDestin As Range
> Dim iRow As Long
>
> Set EntriSheet = Worksheets(Left(Range("J5"), 1))
> Set rDestin = EntriSheet.Cells(1).CurrentRegion
> iRow = rDestin.Rows.Count
> Range("J4:J7").Copy
> rDestin(iRow, 1).Resize(1, rDestin.Columns.Count). _
> PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True
> Application.CutCopyMode = False
> End Sub
>
>
