Belirtilmiş isimden önce 1 boş satır ekleme

[sahin.gungor]

Merhabalar,

Bir tablo oluşturdum pivot table ile oluşturdugum bu tabloyu makro ile pivot formatından kurtarıp başka bir sayfaya aldım;

İstediğim şu örneğin A Sütundaki "Açıklamalar" Yazan satırdan önce 1 boş satır eklemek istiyorum. Yardımcı olabilirmisiniz

 

[veyselemre]

Sub test()
    
    For Each i In Range("A1", Cells(Rows.Count, 1).End(3))
        If i.Value = "Açıklamalar" Then
            If i.Row > 1 And i.Offset(-1, 0) <> "" Then
                i.EntireRow.Insert
                Exit For
            End If
        End If
    Next i
    
End Sub

 

[sahin.gungor]

Kod için teşekkür ederim ancak şunuda yapabilirmisiniz acaba ekleme yaptıktan sonra eklediğim satırın rengini alıyor ekleyip eklendikten sonra dolgu olmamasını rica ediyorum.

 

[veyselemre]

Sub test()
    
    For Each i In Range("A1", Cells(Rows.Count, 1).End(3))
        If i.Value = "Açıklamalar" Then
            If i.Row > 1 And i.Offset(-1, 0) <> "" Then
                i.EntireRow.Insert
                i.Offset(-1).EntireRow.ClearFormats
                Exit For
            End If
        End If
    Next i
    
End Sub

 

[sahin.gungor]

Merhaba,

Kod için çok teşekkürler ancak şimdide söyle bir sıkıntım oluyor

Ben bu işlemi pivot tabledan başka bir sayfaya verileri çekip ekleme işlemi orda yapmaya çalışıyorum ancak şu hatayı veriyor.
PivotTable'ı etkileyeceği için seçili hücrelerde bu değişikliği yapamıyoruz. Raporu Değiştirmek için alan listesini kullanın. Hücre eklemeye veya silmeye çalışıyorsanız. Böyle bir hata veriyor bu konuda yardımcı olursanız çok sevinirim