makroda sıralama hatası

kemalist

Altın Üye
Katılım
4 Haziran 2008
Mesajlar
795
Excel Vers. ve Dili
Excel 2021 TÜRKÇE
makro ile sıralama sonrası hata veriyor.Örnek dosya ektedir.İlginize şimdiden teşekkür ederim.
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

Kod:
Sub SIRALA()
    With Sheets("MONEY")
        .Range("P3:P352").Copy
        .Range("AF3").PasteSpecial Paste:=xlPasteValues
        .Range("Q3:Q352").Copy
        .Range("AE3").PasteSpecial Paste:=xlPasteValues
        .Range("AE3:AF352").Sort Key1:=.Range("AE3"), Order1:=xlAscending, Header:=xlNo
        .Range("AF3:AF352").Copy
        .Range("B3").PasteSpecial Paste:=xlPasteValues
         Application.CutCopyMode = False
    End With
End Sub
 

kemalist

Altın Üye
Katılım
4 Haziran 2008
Mesajlar
795
Excel Vers. ve Dili
Excel 2021 TÜRKÇE
Teşekkür ederim Korhan Bey
 
Üst