En son satırın biçimini biçim boyacısı ile . . .

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; Bir listem var Başlık satırı ile başlıyor. A ile AH arasında bulunan sıra ile satır satır verileri yazıyorum. En son yazdığım veri için örneğin B satırının en son satırına veri yazınca bir üstte bulunan ve daha önce yazmış olduğum biçimli hücrelerin yani satırın A:AH arasındaki bütün biçimleri biçim boyacısıı ile bir alt satıra enter veya tab ile çıkınca yapmasını istiyorum. Nasıl yapılır. Teşekkürler.

 

[ÖmerFaruk]

A-AH sütunlarında bulunan verilerinizi TABLO olarak adlandırırsanız ve tablonuzun formatını bir sefer ayarlarsanız her yeni satırda biçimler de otomatik gelecektir.

 

[Hacı Bayram ÖZKAN]

Sayın abim; anlayamadım. Tablo olarak nereye adlandıracağım,

 

[Korhan Ayhan]

Günaydın,

Tablonuzun üzerinde herhangi bir hücre seçili iken EKLE menüsünden TABLO seçeneğini seçerek ilerlemeniz gerekiyor. Bu şekilde veri aralığınız TABLO görünümüne geçecektir. TABLO nesnesinin özelliklerinden birisi en son satıra veri girdikçe üstteki satırın formüllerini ve biçimlerini aktif satıra aktarmasıdır.

 

[Hacı Bayram ÖZKAN]

Korhan abim, teşekkür ederim denedim oldu, tabloda renkli oldu güzelde oldu Allah razı olsun elinize sağlık.

 

[Hacı Bayram ÖZKAN]

Korhan Abim; Bu tablomu şöyle yapmaya çalıştım olmadı yardımcı olur musun? Aşağıdaki kodu nasıl düzenlenir. B yada C kolonuna veri yazınca bir üstü kopyalayıp biçim olarak yapıştıracak, aşağıdaki kodu uyguladım bir yer yanlış oldu. Bakarsan sevinirim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

SonSatır = Cells(Rows.Count, "E").End(3).Row

Sheets("LİSTE").Range("A:AH" & SonSat).Copy
Sheets("LİSTE").Range("A:AH" & SonSat).PasteSpecial xlPasteFormats

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Alan As Range, Son As Long
    
    On Error GoTo 10
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Son = Cells(Rows.Count, "E").End(3).Row
    Range("A" & Son & ":AH" & Son).Copy
    
    For Each Alan In Intersect(Target, Range("B2:C" & Rows.Count))
        Range("A" & Alan.Row).PasteSpecial xlPasteFormats
    Next

10
    Application.CutCopyMode = False
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[Hacı Bayram ÖZKAN]

Teşekkürler sayın abim çok hoş oldu, ellerine sağlık sağlıklı günler dilerim.