Snasui Excel Forum

Code: Select all

 If Range("d4") = "" Then Exit Sub
            If Sheets("db_bank").Columns("A:A").find(Range("d4"), LookIn:=xlValues) Is Nothing Then
            Sheets("change_save").Range("j4:j9").Value = ""
            MsgBox "ไม่มีหมายเลขนี้"
            Sheets("change_save").Range("c2").Select
            Else

Code: Select all

With Worksheets(1).Range("a1:a500") 
    Set c = .Find(2, lookin:=xlValues) 
    If Not c Is Nothing Then 
        firstAddress = c.Address 
        Do 
            c.Value = 5 
            Set c = .FindNext(c) 
        Loop While Not c Is Nothing And c.Address <> firstAddress 
    End If 
End With

Code: Select all

Sub find_data()
With Sheets("db_bank").Columns("A:A")
    Set c = .find(Range("d4"), LookIn:=xlValues)
            If Range("d4") = "" Then Exit Sub
            If Not c Is Nothing Then
            Sheets("change_save").Range("j4:j9").Value = ""
            MsgBox "ไม่มีเลขนี้"
            Sheets("change_save").Range("c2").Select
            Else

Code: Select all

Dim i As Integer
Dim c As Range
Sub find_data()
    'On Error Resume Next
    With Sheets("db_bank").Columns("A:A")
        Set c = .find(Range("d4"), LookIn:=xlValues, LookAt:=xlWhole)
        If Range("d4") = "" Then Exit Sub
        If c Is Nothing Then
            Sheets("change_save").Range("j4:j9").Value = ""
            MsgBox "ไม่มีหมายเลขบัญชีนี้"
            Sheets("change_save").Range("c2").Select
        Else
            i = .find(c, LookIn:=xlValues, LookAt:=xlWhole).Row
            .Range("A" & i).Resize(1, 6).Copy
            Sheets("change_save").Range("j4").PasteSpecial xlPasteValues, Transpose:=True
            Application.CutCopyMode = False
            MsgBox "การสืบค้นข้อมูลสำเร็จ"
            Sheets("change_save").Range("c2").Select
        End If
    End With
End Sub