KOD değiişkliği Metin ve Rakam için.

[sward175]

Herkese Merhaba, İyi Çalışmalar dileğiyle.
Aşağıdaki kod sütunda harf yazıldıkça oluşan Metin' i arıyor, Kodda nasıl bir değişiklik yapalım ki hem metin hem de rakam arasın.
Yardımlarınızı rica eder. Sağlık, Sıhhat ve huzur dilerim.
sward175


Private Sub TextBox2_Change()
On Error Resume Next
METİN1 = TextBox2.Value
Set FC2 = Range("B4:ı65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox2.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=2
End If
End Sub

 

[sward175]

Merhabalar,
Sorum geçerlidir ve çok iş yükümü hafifletecek.
Yardımlarınızı rica ederim.
sward175,