A sütünü Dolu İse Kenarlık Çiz (Range("A3:T" & [a1000].End(3).Row).Borders.LineStyle = xlContinuous)

[stirra_ej]

Arkadaşlar a sütünü alt alta doldukça hücre içerisine kenarlık çizmesi için
Range("A3:T" & [a1000].End(3).Row).Borders.LineStyle = xlContinuous komutu kullanıyorum ama hücre boşalttığımda kenarlıklar kalıyor
Bu formülü dolu ise çiz boş ise kaldır xlLineStyleNone nasıl yapabilirim...

 

[Korhan Ayhan]

Bu gibi durumlarda ilk önce alan eski haline alınmalıdır.

Range("A3:T1000").Borders.LineStyle = 0
Range("A3:T" & [A1000].End(3).Row).Borders.LineStyle = 1

 

[stirra_ej]

Ensemden tokat yemişe döndüm.. Harikasınız çok ama çok teşekkürler..

 

[TURKOLOG]

Ensemden tokat yemişe döndüm.. Harikasınız çok ama çok teşekkürler..

Peki bu kodu her sayfa için nereye kopyalayıp ve tam olarak nasil çalıştırıyorsunuz.
Kodu paylaşıp anlatırsanız ben de kullanmak isterim. Bir de ben tablo çizgilerini renkli ve çift çizgi şeklinde kullanıyorum. Tek çizgi şeklinde mı oluyor kenarlıklar

 

[stirra_ej]

Private Sub Worksheet_Change(ByVal Target As Range)

Range("A3:T1000").Borders.LineStyle = 0
Range("A3:T" & [b1000].End(3).Row).Borders.LineStyle = 1
Range("A3:T" & [b1000].End(3).Row).Borders.LineStyle = xlContinuous

End Sub

Sayfanın vba bölümüne atıyorum sayfada otomatik hücre içinde işlem yaptıkça çalışıyor
A3: T aralığına Ben b sütününü belirttim b sütününda b satırları alt alta doldukça cetvelin a3 t aralığını kenarlıyor çizgi siyahh..

 

[TURKOLOG]

çok teşekkür ederim kod için