Filitre yaparak filitre yaptığı yerin çıktısı hk..

[search77]

Merhaba Saygı Değer Arkadaşlar,

Ekli örnek dosyamın içindede belirttim, filitre yaparak filitre yapılan yerin çıktısını alan bir macro hakkında yardımlarınızı rica ederim.

Saygı ve sevgilerimle.

 

[Orion1]

dosyanız ekyedir.

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("A2:A" & i), Cells(i, "A").Value) = 1 Then
        Range("A1").AutoFilter field:=1, Criteria1:=Cells(i, "A").Value
        ActiveSheet.PageSetup.PrintArea = "A1:E" & sat
        ActiveSheet.PrintOut
        Range("A1").AutoFilter
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır" & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "YAZDIRMA"
End Sub

 

[search77]

Evrencim,

Ellerine sağlık, süper olmuş

Saygı ve sevgilerimle.