Soru Listeyi düzenleme

[NADİR YILDIZ]

Arkadaşlar merhaba KDV listesi sayfasındaki karışık listeyi düzenlenmiş sayfasına aktarım yapıyorum.
ancak düzenlenmiş sayfasında mavi ile renklendirdiğim satırları aktarmak istemiyorum.
bu kod üzerinde nasıl düzenleme yapabiliriz
yada başka bir kod öneriniz olurmu

iyi çalışmalar

 

[veyselemre]

Sub test()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With Sheets("DÜZENLENMİŞ")
        Sheets("KDV LİSTESİ").Copy Sheets(1)
        For i = Cells(Rows.Count, 1).End(3).Row To 6 Step -1
            If Cells(i, 1).MergeCells Or Cells(i, 1).Value = "" Then Rows(i).Delete
        Next i
        .Range("5:" & Rows.Count).ClearContents
        Range("B6:M" & Cells(Rows.Count, 1).End(3).Row).Copy
        .Range("C5").PasteSpecial xlValues
        ActiveSheet.Delete
    End With
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

 

[NADİR YILDIZ]

Veysel bey teşekkür ederim
ancak birşey daha rica edeceğim.
aktarım yapıyor.
ancak düzenlenmiş sayfada B sütununda sıra no ları siliyor aktarım yaparken.nasıl düzeltebiliriz

iyi çalışmalar

 

[veyselemre]

 .Range("5:" & Rows.Count).ClearContents

yerine;

 .Range("C5:O" & Rows.Count).ClearContents

yazın.

 

[NADİR YILDIZ]

teşekkürler veysel bey

aklınıza emeğinize sağlık

iyi çalışmalar