DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=EĞER(EHATALIYSA(İNDİS(DOLAYLI([COLOR=red]"'"&[/COLOR]$B3&"[COLOR=red]'[/COLOR]!A:G");1;5));"";
İNDİS(DOLAYLI([COLOR=red]"'"&$[/COLOR]B3&"[COLOR=red]'[/COLOR]!A:G");1;5))
=EĞER(EHATALIYSA(DOLAYLI("'"&$B3&"'!E1"));"";DOLAYLI("'"&$B3&"'!E1"))
Tşk
isim arama texbox hata var çözemedim
Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("b:b").Find(What:=METİN)
Application.GoTo Reference:=Range(FC2.Address), Scroll:=False
Selection.AutoFilter Field:=[COLOR=Red]1[/COLOR], Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=[COLOR=Red]1[/COLOR]
End If
End Sub