Makro çalışan sayfada sayfa ve koşullu biçimlendirmeleri korumak

Believing

Altın Üye
Altın Üye
Katılım
19 Mayıs 2013
Mesajlar
632
Excel Vers. ve Dili
Office Pro 2019 TR 32 Bit
Windows Pro 10 TR 64 Bit
Sayn Formdaş arkadaşlar,

Aşağıdaki makro kaydet yöntemi ile oluşturduğum kodları çalıştırdığımda, daha önce sayfaya uyguladığım sayfa ile koşullu biçimlendirmeleri bozulmaktadır.
Sayfaya uyguladığım biçimlendirmeleri korumak için aşağıdaki kodu nasıl revize etmeliyim?

Saygılarımla,

Kod:
Sub Egitim_Kayitlerini_Benzersiz_Listele()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
    Sheets("DATABASE").Select
    Range("C3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("C3").Select
    Sheets("Eğitim Konu Başlığı Özeti").Select
    Range("B55").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range("$B$54:$B$6948").RemoveDuplicates Columns:=1, Header:= _
        xlYes
    ActiveWorkbook.Worksheets("Eğitim Konu Başlığı Özeti").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Eğitim Konu Başlığı Özeti").Sort.SortFields.Add2 _
        Key:=Range("B55:B6948"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Eğitim Konu Başlığı Özeti").Sort
        .SetRange Range("B55:B6948")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("B55").Select
    Sheets("CONTROL_PANEL").Select
    Range("B1").Select
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub
 

unlimitted

Altın Üye
Altın Üye
Katılım
7 Ocak 2015
Mesajlar
442
Excel Vers. ve Dili
2016 Türkçe
Kodlarınızda bahsettiğiniz problemi yaratabilecek tek satır bana şu satır gibi geldi. Başına tek tırnak koyarak o satırı es geçmesini sağlamayı dener misiniz.
ActiveWorkbook.Worksheets("Eğitim Konu Başlığı Özeti").Sort.SortFields.Clear
 
Üst