Dinamik tabloya otomatik kenarlık

[sahika51]

Arkadaşlar merhaba. Aylık çizelge hazırlıyorum. açıklamyı çizelgenin üst kısmınada yazdım
Çizelgede ad soyad sayısı artabilir 50den fazla olabilir. İsim girildiğinde otomatik sıra verecek.
Tarih değiştiğinde ayın 28, 30 veya 31 çekmesine göre tablo değişiyor. Ay 28 olduğunda toplam sütunu af5 e gelirken 31 çektiiğinde Toplam sütunu AI sütununa geliyor. Tablo oluştuğunda tablonun tamamına S.No ile Son Sütundaki
sondolu hücre arasına otomatik kenarlık yapabilirmiyiz.
Örnek dosyaya göre ben elle örnek olsun diye yapıyorum. Bunu koşullu biçimlendirme ile de yapabilirim ama ayın gün sayısına göre koşullu biçimlendirme sıkıntı çıkartıyor.

 

[Mdemir63]

Selam
inceleyiniz
Koşullu biçimlendirme kullanıldı

 

[sahika51]

Selam
inceleyiniz
Koşullu biçimlendirme kullanıldı

mDemir 63 uğraşınız için teşekkür ederim. ancak tarihi örneğin 3.Ay yaptığınızda 29 30 ve 31. güne gelen sütunlara kenarlık olmuyor

 

[Mdemir63]

Tekrar merhaba

Sub Kenarlik_Ciz()
    Dim ws As Worksheet
    Dim baslangic As Range
    Dim lr As Long, lc As Long
    
    Set ws = ActiveSheet
    Set baslangic = ws.Range("B5")
    
    If IsEmpty(baslangic.Value) Then
        MsgBox "B5 boş, işlem yapılmadı.", vbExclamation
        Exit Sub
    End If
    
    lr = ws.Cells(ws.Rows.Count, baslangic.Column).End(xlUp).Row
    lc = ws.Cells(baslangic.Row, ws.Columns.Count).End(xlToLeft).Column
    
    With ws.Range(baslangic, ws.Cells(lr, lc))
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlEdgeTop).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous
        .Borders(xlInsideVertical).LineStyle = xlContinuous
    End With
End Sub

VBA ile isterseniz modül içine aşağıdaki kodu yapıştın ve bir butona atayın

 

[Mdemir63]

mDemir 63 uğraşınız için teşekkür ederim. ancak tarihi örneğin 3.Ay yaptığınızda 29 30 ve 31. güne gelen sütunlara kenarlık olmuyor

o zaman aşağıda verdiğim kodu kullanın

 

[Mdemir63]

Tekrar merhaba
Tarihleri değiştirerek deneyiniz

 

[sahika51]

teşekkür ederim.

 

[Mdemir63]

teşekkür ederim.

Rica ederim .
Ancak tarihler 28,29,30,31 olduğu için son gönderdiğim dosya tam sizin istediğinizi yapmıyor.
Dosyayı yeniledim.
inceleyiniz

 

[Necdet]

Merhaba,
Veriyi tablo olarak biçimlendirmeyi denediniz mi?

 

[sahika51]

Merhaba,
Veriyi tablo olarak biçimlendirmeyi denediniz mi?

Merhaba denemedim ama nasıl yapıldığını da bilmiyorum

 

[sahika51]

Rica ederim .
Ancak tarihler 28,29,30,31 olduğu için son gönderdiğim dosya tam sizin istediğinizi yapmıyor.
Dosyayı yeniledim.
inceleyiniz

evet şu an tam istediğim gibi. hatta diğer makronun sonuna makro olarak ekledim. tek butonla iyi çalışıyor şuanda

 

[Necdet]

Merhaba,
Alternatif olsun.
C2 hücresindeki tarih değiştiği an tablo sütunları ayarlanır, içerik temizlenir

Tablo1 olarak adlandırılmıştır. Tablo adını değiştirmeyiniz.
Yeni satırı C sütunundan sonra doğrudan yazarsanız Tablo1 olarak biçimlendirilen aralık otomatik güncellenir.
Sıra No (B sütunu) ve Toplam Sütunundaki formüller otomatik güncellenir.

Not : Kodların ana hatları için Yapay zekadan yararlanılmıştır.