Şart göre satır ekleme

[yyhy]

Şarta göre macro ile satır ekleyebilir miyiz?
Yardımcı olan arkadaşlara şimdiden teşekkürler.

 

[Muzaffer Ali]

Verilerinizin olduğu sayfanın kod editörüne aşağıdaki kodları kopyalayıp çalıştırın.

Sub BaslikEkle()
    Dim Bak As Range
    For Each Bak In Range("A3:A" & Cells(Rows.Count, "A").End(3).Row)
        If Bak.Interior.Color <> Bak.Offset(1, 0).Interior.Color Then
            If Bak.Interior.Color <> Range("A1").Interior.Color Then
                If Bak.Offset(1, 0).Interior.Color <> Range("A1").Interior.Color Then
                    Range("A1:G1").Copy
                    Bak.Offset(1, 0).Insert xlDown
                End If
            End If
             
        End If
    Next
End Sub

 

[sonageldik]

Bende tam böyle birşey arıyordum cuk oturdu diyebilirim. Konuyu açana ve çözüm getirene çok teşekkür ederim.

 

[yyhy]

Sayın dalgalikur

Sayın dalgalikur ihtiyaca cevap verdi. Teşekkürler.