Kenarlık Oluşturma

[betoncu]

Merhaba.Çalışma sayfasında sadece B1 ile B10 arasındaki hücrelere veri girdikçe veri girilen hücrelere kenarlık yapılmasını aşağıdaki kod ile sağlıyorum fakat bu kodu uygulayınca aşağıda belirttiğim hatalar meydana geliyor:

Kod:
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


Hatalar:
1. B1:B10 arasındaki hücrelerin dışında veri girilince hata veriyor.

2. Üst üste 2 ve daha fazla hücre aynı anda silinince hata veriyor.

Hataları nasıl yok edebiliriz...

 

[lark]

Koşullu biçimlendirme niye kullanmıyorsunuz.
"Formül kullan" seçip

=$E1<>""

girip
uygulama hedefi olarak da

=$E$1:$E$10

seçip biçimlendirmeden çerçeveyi seçeceksiniz. Makroya gerek yok.

 

[betoncu]

Merhaba. Koşullu biçimlendirme kullanmadan sadece makro ile yapmak istiyorum.
Makro ile yardım edebilirmisiniz?

 

[betoncu]

Arkadaşlar sorunu çözdüm. İlgilenenler için kodu yayınlıyorum.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [B1:B10]) Is Nothing Then
On Error Resume Next
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 If
End Sub

 

[1Al2Ver]

Merhaba,

Alternatif, Korhan Ayhan beyden alıntıdır.

Eklenti dosyanıza kopyalayın, Araç Çubuklarından Eklentilerde seçin,

Excel dosyanızda fare ile seçili alandayken F12 tuşuna basın, seçili alandaki hücrelere çerçeve atar,

Kolay gelsin.

 

[betoncu]

Teşekkürler..