Makro Revize Yardımı

[Believing]

Sayın Uzman Arkadaşlar,

Aşağıda bulunan makroda şöyle bir değişiklik istiyorum. TextBox1 A1 hücresinde bulunuyor. Ara hücresine 1 yazılınca sadece bir ile başlayanların bulunması, 10 yazılınca sadece on rakamı ile başlayanların getirilmesi, 2 yazılınca iki ile başlayanların listesinin bulunması, kısacası A1 hücresine hangi sıralama ile rakam yazar isek onu bulması isteniyor.
Siz uzman arkadaşların çok değerli yardımlarını rica ediyorum.

Saygılarımla.

Private Sub TextBox1_Change()
Application.ScreenUpdating = False
On Error Resume Next
NO1 = TextBox1.Value
Set FC2 = Range("A3:A5000").Find(What:=NO1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:="=" & NO1
If NO1 = "" Then
Selection.AutoFilter Field:=1
End If
End Sub

 

[Asri]

Sayın Uzman Arkadaşlar,

Aşağıda bulunan makroda şöyle bir değişiklik istiyorum. TextBox1 A1 hücresinde bulunuyor. Ara hücresine 1 yazılınca sadece bir ile başlayanların bulunması, 10 yazılınca sadece on rakamı ile başlayanların getirilmesi, 2 yazılınca iki ile başlayanların listesinin bulunması, kısacası A1 hücresine hangi sıralama ile rakam yazar isek onu bulması isteniyor.
Siz uzman arkadaşların çok değerli yardımlarını rica ediyorum.

Saygılarımla.

Aşağıdaki şekilde deneyiniz.

Selection.AutoFilter Field:=1, Criteria1:=NO1 & "*"

 

[Believing]

Sayın asri bey,

Yardımınız için size çok teşekkür ederim.
Size hayırlı bir gün geçirmenizi dilerim.

Saygılarımla.