G2 hücresine göre filitre yapmak ve print almak

[search77]

Merhaba Sevgili Arkadaşlar,

Ekli dosyamdaki macro A2 hücresine göre filitre yaparak print alıyor, ben istiyorum ki G2 hücresine göre print alsın.

Yardımcı olabileceklere şimdiden minnettarım.

Saygılarımla.

 

[askm]

Sub cikti_59()
Dim sat As Long, i As Long
Range("A1").AutoFilter
sat = Cells(65536, "A").End(xlUp).Row
If sat < 2 Then Exit Sub
Application.ScreenUpdating = False
For i = 2 To sat
    If WorksheetFunction.CountIf(Range("G2:G" & i), Cells(i, "G").Value) = 1 Then
        Range("A1").AutoFilter field:=7, Criteria1:=Cells(i, "G").Value
        ActiveSheet.PageSetup.PrintArea = "A1:G" & sat
        ActiveSheet.PrintOut
        Range("G1").AutoFilter
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır" & vbLf & "KOLAY GELSİN", vbOKOnly + vbInformation, "YAZDIRMA"
End Sub

 

[search77]

askm bey,

Çok çok tşk ederim, elinize kolunuza sağlık, tam istediğim gibi olmuş.

Saygılar.

 

[askm]

Rica ederim. Kolay gelsin.