otomatik çerçeve ekleme

[myerer38]

arkadaşlar dolu olan hücrelere otomatik olarak çerçeve ekleye bilirmiyiz
hücrelerde bir değer varsa çerçeve olsun boş ise çerçeve eklemesin

 

[hamitcan]

Hücre değiştiğinde içinde bir şey varsa,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not IsEmpty(Target) Then Target.Borders.LineStyle = xlContinuous
End Sub

Yada, seçili alanı kontrol etmek isterseniz,

Sub secilialan()
For Each hcr In Selection
    If Not IsEmpty(hcr) Then hcr.Borders.LineStyle = xlContinuous
Next
End Sub

 

[sailor01]

belirli bir alan için koşullu biçimlendirme yapılabilir.

 

[myerer38]

şimdi ben lksden şipariş takibi yapıyorum excel üzerinden
güncelle dediğim zaman artan veya azalan siparişlerden dolayı tabloda değişiklik oluyor
dolu olan hücreler çerçeveye alınsın
koşullu biçimlendirme veya kod yazarak

 

[hamitcan]

Verdiğim ikinci kod yada koşullu biçimlendirme ile bu işlem yapılabilir.

 

[myerer38]

süper oldu ellerine sağlık