Pak Agunk,
Kalau mau otomatis ditampilkan datanya ketika mengetik Code pada sel H7 maka
bisa ditambahkan Event Worksheet_Change ini sebagai trigger,
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("F3"))
If Not RgFind Is Nothing Then
n = Range("F3").Value + 1
IndTBL(n, 3).Resize(1, tCol - 2).Copy
Range("F7").PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Transpose:=True
Application.CutCopyMode = False
Else
MsgBox "Sorry Boss, No ORDER dan CODE BLM ADA"
Range("F8:F22").ClearContents
Target.Select
End If
End If
End Sub
Salam,
HK
On Monday, 19 May 2014, 19:56, "hendrik karnadi hendrikkarn...@yahoo.com
[belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Bisa Pak.
Salam,
HK
On Monday, 19 May 2014, 19:17, "agungtrisaks...@yahoo.co.id [belajar-excel]"
<belajar-excel@yahoogroups.com> wrote:
Pak Hendrik maaf blm bisa nyoba, besok baru bisa nyoba,,
Sya mau menambahkan untuk data yg diINPUT dgn catatan bahwa ORDER boleh sama
tapi code harus beda.
Mis : input data pertama order 814021NU code 50, kemudian input data lagi order
814021NU code 70.
dst soalnya 1 order ada banyak code pak Thanks -Agunk-
