Whether To Print Straining 2 Online Excel and Excel Macro (VBA) Courses Copy Macro 'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php Aşğıdaki kod filter yaptığın tüm alanlara bakarak en az birinde seçim yapılmış ise sayfayı gönderir aksi halde mesaj verir.. Set s1 = ActiveSheet Secilmiş = False If s1.AutoFilterMode = True Then For i = 1 To s1.AutoFilter.Filters.Count If s1.AutoFilter.Filters.Item(i).On Then Secilmiş = True Next i If Not Secilmiş Then MsgBox "Hiç Bir Süzme İşlemi Yapılamış" Cancel = True End If End If 'Tarih alanınız 4. sutun ise ve siz burada mutlaka bir seçim olmasını istiyorsanız o zaman döngü kullanmadan şunu deneyin : s1.AutoFilter.Filters.Item(4).On Then Secilmiş = True '4 alanda seçim yapılıp yapılmadığını kontrol ediyor. Report problem with this macro This macro does not work. There's an error in the code. Other You can write your comments about the error in the box below. Report error ALL MACROS Youtube Channel The following macros may be useful for you. Similar Results NoMacro Name 1 Whether to print straining 2 2 Whether to print straining 3 Determine whether any range is assigned as a range name 4 excel operators hk 5 check whether the message is numeric or non-numeric 6 printout by defining a cell 7 take a picture (printscreen) 8 check whether the message is a date format 9 a3: prints data between cells f15 10 makes the print area a3: f15 and selects and prints the line to repeat 11 translate 12 do you have a printer installed 2 13 Export selected cells to text file 14 print command in workbook 15 watermark printing (faded font on sheet / page background) 16 Adjusting the screen resolution 17 Adjusting the screen resolution 18 prints selected areas on a sheet of paper 19 prints selected areas on a sheet of paper 20 status bar macro with a message waiting