Hücre doluysa kenarlık olsun

[Hakan ERDOST]

Herkese merhaba.Bir çalışma sayfasında hücrelere veri girdikçe veri girilen hücrelere kenarlık yapacak bir kod mümkün mü?

 

[Ömer]

Merhaba,

Bu işlemi koşullu biçimlendirme kullarak da yapabilirsiniz.

Örnek A1:A10 aralığını fare ile seçin,

Koşullu Biçimlendirmeye girerek formül bölümüne;

=A1<>""

yazın ve biçimden kenarlıklara girerek istediğiniz kenarlığı seçtikten sonra işlemi bitirin. Artık A1:A10 aralığında veri girdiğiniz hücrede kenarlık oluşacaktır.

Kod ile isterseniz.

Çalışma sayfasının kod bölümüne kopyalayınız..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A10]) Is Nothing Then Exit Sub
Target.Borders.LineStyle = 1
End Sub

.

 

[Hakan ERDOST]

Kod ile ilgili olarak:
Teşekkürler.Ancak birincisi Birleştirilmiş hücrelerde sorun oluyor, diğer bir sorunda hücreye çift tıklayıncada kenarlık oluşuyor, ayrıca veri silinince kenarlık kalıyor..

 

[gezgin64]

dolu hücrelere otomatik kenarlık

bunu dener misin.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [b1:b10]) > "" Then
Target.Borders.LineStyle = 1
End If
If Intersect(Target, [b1:b10]) = "" Then
Target.Borders.LineStyle = 0
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Birleştirilmiş hücrelerdeki sorunu aşağıdaki kod ile aşabilirsiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.MergeCells = True Then
        Target.Select
        If ActiveCell <> "" Then
            Selection.Borders.LineStyle = 1
            Target.Offset(1, 0).Select
        Else
            Selection.Borders.LineStyle = 0
        End If
    Else
        Target.Select
        If ActiveCell <> "" Then
            Selection.Borders.LineStyle = 1
            Target.Offset(1, 0).Select
        Else
            Selection.Borders.LineStyle = 0
        End If
    End If
End Sub

 

[İsmail Küçükşengün]

Tüm paylaşımlara teşekkürler.