Otomatik satır ekleme (formatlı)

[badmad34]

Merhaba arkadaşlar,

Eklediğim çalışma kitabında görüleceği üzere, A,B,C,D,E sütunlarındaki veriler F sütunundaki durum bilgisine göre koşullu olarak biçimlendirilmiştir. Şimdi benim istediğim, "SATIR EKLE" butonuna basıldığında F sütununun en alt satırına aynı listeden bir tane eklenmesi, bu satırın solunda kalan tüm satırların koşullu biçimlendirmesini bu hücreden alınması.

Kendim biraz kurcaladım ama her seferinde koşullu biçimlendirmeyi sabit olarak F2 hücresinden almasını engelleyemedim. Yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Koşullu biçimlendirmede kullandığınız formüldeki $ işaretlerinide değiştirdim. Ekteki örnek dosyayı incelermisiniz.

Option Explicit
 
Private Sub CommandButton1_Click()
    Dim Son_Satır As Long
    Son_Satır = Range("F65536").End(3).Row + 1
    Range("A" & Son_Satır & ":F" & Son_Satır).FillDown
    Range("A" & Son_Satır & ":F" & Son_Satır).ClearContents
End Sub

 

[badmad34]

Cevabınız için teşekkür ederim. Dosyayı inceledim ama kod çalıştırıldığında, F2 hücresinin otomatik olarak kopyalarken, A ve E sütunu arasındaki verilere dair herhangi bir koşullu biçimlendirme atamıyor.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu ve dosyayı güncelledim. İncelermisiniz.

 

[badmad34]

Gayet güzel olmuş, teşekkür ederim.