Yazdırmak İçin Süzme Şartı Koyma

Sub YazdirmaIcinSuzmeYap()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("SayfaAdı") ' "SayfaAdı"nı hedef sayfanızın adıyla değiştirin

    Dim sutunNo As Integer
    sutunNo = 1  ' Süzme yapılacak sütun numarası (Örnek: 1 = A sütunu)

    Dim kriter As String
    kriter = "BelirliKriter"  ' Süzme şartı (örneğin, "Tamamlandı")

    ' Belirtilen sütunda belirtilen kritere göre süzme yap
    ws.Cells.AutoFilter Field:=sutunNo, Criteria1:=kriter

    ' Süzülmüş verileri yazdır
    ws.PrintOut

    ' Süzgeci kaldır
    If ws.AutoFilterMode Then
  ws.AutoFilterMode = False
    End If
End Sub