Selam Arkadaslar,
Asagida yazilan formul normal olarak yazdigim herseyi buluyor. Fakat ben hucreleri telefon formatina cevirdim ve telefon numarasi arayip bulmak istiyorum asagidaki formulde nasil bir degisiklik yapmaliyimki telefon numarasi bulabileyim. Birde bu formulde genel bir sorunda bos hucre varsa liste eski haline donmuyor.
hucre formati (0###)####### bu sekilde
Private Sub TextBox4_Change()
On Error Resume Next
SONUC2 = TextBox4.Value
Set FC2 = Range("Q5:Q65000").Find(What:=SONUC2)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=17, Criteria1:="*" & TextBox4.Value & "*"
End Sub
Yardimlariniz icin simdiden tesekkur ederim
Asagida yazilan formul normal olarak yazdigim herseyi buluyor. Fakat ben hucreleri telefon formatina cevirdim ve telefon numarasi arayip bulmak istiyorum asagidaki formulde nasil bir degisiklik yapmaliyimki telefon numarasi bulabileyim. Birde bu formulde genel bir sorunda bos hucre varsa liste eski haline donmuyor.
hucre formati (0###)####### bu sekilde
Private Sub TextBox4_Change()
On Error Resume Next
SONUC2 = TextBox4.Value
Set FC2 = Range("Q5:Q65000").Find(What:=SONUC2)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=17, Criteria1:="*" & TextBox4.Value & "*"
End Sub
Yardimlariniz icin simdiden tesekkur ederim