DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
On Error GoTo 10
If ActiveSheet.AutoFilter.Filters.Item(6).Criteria1 = "=5" Then MsgBox "merhaba"
10 Exit Sub
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData