DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
suz = Range("B1")
If Target.Address = "$B$1" And Range("B1") <> "" Then
suz = Range("B1")
Range("B1:B65536").AutoFilter Field:=1
Range("B1:B65536").AutoFilter Field:=1, Criteria1:=suz
Else
Range("B1:B65536").AutoFilter Field:=1
End If
End Sub
MERHABA ARKADAŞLAR ÖRNEĞİN B SÜTÜNÜNDA B2 DEN İTİBAREN BİR ÇOK İSİMLERİM VAR B1 HÜCRESİNE YAZDIĞIMI İSMİ filitrelesin istiyorum