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)
If Intersect(Target, [B2]) Is Nothing Then Exit Sub
Range("A4:N" & Rows.Count).Clear
Sheets("veri").Columns("A:N").AdvancedFilter _
xlFilterCopy, Range("B1:B2"), Range("A4")
End Sub