Rapor sayfasına aktarma problemi

[byfika]

Merhabalar, örnekte detaylı olarak açıkladığım filtreli aktarmada problem var. çözümü nasıl olabilir. Şimdiden teşekkürler

 

[Ömer BARAN]

Merhaba.

Mevcut AKTAR kod'unu aşağıdakiyle değiştirin.
.

[B][COLOR="Blue"]Sub Aktar()[/COLOR][/B]
ActiveSheet.Unprotect "1"
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
If Sheets("rapor").Cells(Rows.Count, 1).End(3).Row > 6 Then Sheets("rapor").Range("A7:M" & Rows.Count).ClearContents
Son = Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row
Sheets("Sayfa1").Range("A13:M" & Son).SpecialCells(xlCellTypeVisible).Copy
        Sheets("rapor").Range("A7").PasteSpecial Paste:=xlPasteValues

Sheets("Sayfa1").Range("A12:M12").AutoFilter Field:=3
With Sheets("Sayfa1")
    .Protect Password:="1", AllowFiltering:=True
    .EnableSelection = xlUnlockedCells
End With
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
[B][COLOR="blue"]End Sub[/COLOR][/B]

 

[byfika]

Ömer bey çok teşekkürler, bilginize ve yardımınıza binlerce kez teşekkürler. Kod tam istediğim gibi çalışıyor.