جستجو1

Dim a As String

Private Sub CommandButton1_Click()
a = InputBox("نام را وارد کنید", inter)
j = 0
For i = 1 To 100
    If Trim(Sheet1.Cells(i, 1)) = Trim(a) Then
        j = j + 1
        Sheet2.Cells(j, 1) = Sheet1.Cells(i, 1)
        Sheet2.Cells(j, 2) = Sheet1.Cells(i, 2)
    End If
   
Next i
   
End Sub

فایل در پایین آمده است

دریافت
حجم: 20.4 کیلوبایت
توضیحات: فایل اکسل

دریافت
حجم: 10.2 کیلوبایت
توضیحات: فایل ورد