Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$7" Then
If IsEmpty(Target) Then Exit Sub
RefreshTabels
Set RgFind = Sheets("Database").Range("A4").CurrentRegion.Offset(0,
1).Resize(, 1).Find(Range("A:A"), LookIn:=xlValue)
If Not RgFind Is Nothing Then
n = Range("I7").Value + 1
IndTBL(n, 3).Resize(1, tCol - 2).Copy
Range("F7").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats,
Transpose:=True
Application.CutCopyMode = False
End If
End Sub
>> Apakah jadinya seperti ini pak dan untuk Cell F3 di formulir diisi dengan
>> nilai dari kolom B nya si baris hasil Find.Nilai dari kolom B ini yg mana
>> pak??
Thanks,B'Regards
-Agunk-
