DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
teşekürler levent bey Combobox için formul verebilirseniz yapa bilirim sanırım newdata b sutunundan veri alıyorBunun için Activex denetimlerinden Combobox kullanmanız gerekir.
Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = newdata("B:B").Find(What:=METİN1)
Application.GoTo Reference:=newdata(FC2.Address), Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=2
End If
End Sub