با سلام
لطفا دستورات زیر را جایگزین دستورات قبلی کنید.
Private Sub text1_Change()
If text1.Value = "" Then
text2.Value = ""
TextBox1.Value = ""
End If
Dim FirstAddress As String
Dim MySearch As Variant
Dim myColor As Variant
Dim Rng As Range
Dim I As Long
MySearch = Array(text1)
With Worksheets("Asli").Range("A1:C100")
.Interior.ColorIndex = xlColorIndexNone
For I = LBound(MySearch) To UBound(MySearch)
Set Rng = .Find(What:=MySearch(I), _
After:=.Cells(.Cells.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
FirstAddress = Rng.Address
Do
Set Rng = .FindNext(Rng)
Loop While Not Rng Is Nothing And Rng.Address <> FirstAddress
End If
Next I
End With
text2.Text = Worksheets("Asli").Range(Rng.Address).Offset(0, 1)
TextBox1.Text = Worksheets("Asli").Range(Rng.Address).Offset(0, 2)
10:
End Sub
پایدار باشید میر
