طريقة عمل زر find بكود vba

Option Explicit

Sub Find_For_Me()

  Dim F_ad$, L_ad$  'First Address,Laste Address

  Dim rg As Range

  Dim Inbox

  Dim m%: m = 1



Range("D1").CurrentRegion.ClearContents

Inbox = InputBox("Find What", "Find Addres", "")

If Inbox = vbNullString Then Exit Sub

Set rg = ActiveSheet.Columns(Range("G2")).Find(Inbox, lookat:=1)

  If rg Is Nothing Then

     MsgBox Inbox & " Not Found"

     Exit Sub

  End If

 F_ad = rg.Address: L_ad = F_ad

 Do

  Range("D" & m) = L_ad

  Set rg = ActiveSheet.Columns(Range("G2")).FindNext(rg)

  L_ad = rg.Address

  m = m + 1



 Loop Until F_ad = L_ad



End Sub

Private Sub CommandButton1_Click()

    Dim x As Range

    With ThisWorkbook.Worksheets("Sheet1")

        Set x = .Columns(2).Find(What:=TextBox1.Value, LookAt:=xlWhole)

        If Not x Is Nothing Then Application.Goto x: Unload Me

    End With

End Sub