• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Dinamik tabloya otomatik kenarlık

S

sahika51

Altın Üye
Katılım
28 Ekim 2006
Mesajlar
187
Excel Vers. ve Dili
2010-2019
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.
 

Ekli dosyalar

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

Ekli dosyalar

Tekrar merhaba
CSS: 
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
 
Tekrar merhaba
Tarihleri değiştirerek deneyiniz
 

Ekli dosyalar

Merhaba,
Veriyi tablo olarak biçimlendirmeyi denediniz mi?
 
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.
Tablonun pozisyonu değişse bile sonuç değişmez.

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

Ekli dosyalar

Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst