Snasui Excel Forum

Code: Select all

i = Worksheets("movie").Columns("b:b").Find(Range("i2"), LookIn:=xlValues).Row
Worksheets("movie").Range("B" & i).Resize(1, 5).Copy
Worksheets("ค้นหา บันทึก").Range("I2").PasteSpecial xlPasteValues, Transpose:=True

Code: Select all

lookin:=xlvalues).row
resize(1,5).copy
transpose:=true

Code: Select all

Private Sub CommandButton1_Click()
If Range("i2") = "" Then Exit Sub
If Worksheets("movie").Columns("b:b").Find(Range("i2"), LookIn:=xlValues) Is Nothing Then
MsgBox "ไม่มีเลขที่นี้!"
Else
i = Worksheets("movie").Columns("b:b").Find(Range("i2"), LookIn:=xlValues).Row
Worksheets("movie").Range("B" & i).Resize(1, 5).Copy
Worksheets("ค้นหา บันทึก").Range("I2").PasteSpecial xlPasteValues, Transpose:=True
Application.CutCopyMode = False
MsgBox "Get data has finished."
End If
End Sub

Private Sub CommandButton2_Click()
If Range("i2") = "" Then Exit Sub
If Worksheets("movie").Columns("b:b").Find(Range("i2"), LookIn:=xlValues) Is Nothing Then
MsgBox "ไม่มีเลขที่นี้!"
Else
i = Worksheets("movie").Columns("b:b").Find(Range("i2"), LookIn:=xlValues).Row
Worksheets("ค้นหา บันทึก").Range("I2:I6").Copy
Worksheets("movie").Range("B" & i).PasteSpecial xlPasteValues, Transpose:=True
Application.CutCopyMode = False
MsgBox "Update data has finished."
End If
End Sub