hücreye veri girişinde kenarlık oluşmasını istiyorum ?

[hakan_demirkan]

arkadaşlar sayfaya her veri girdiğimde kenarlık oluşmasını istiyorum bununla ilgili formül veya makro biliyormusunuz saygılarımla......

 

[Orion1]

A5:E5 kenarlık çizer.

Sub Kenarlık()
Dim x As Integer
For x = 1 To 4
[A5:E5].Borders(x).LineStyle = 1
'[A5:E5].Borders(x).Color = RGB(255, 255, 0)'Sarı Renkte oldu
Next x
End Sub

 

[hakan_demirkan]

teşekkürler hocam ama benim dediğim bu değildi

 

[hakan_demirkan]

arkadaşlar örnekte var kenarlık ekleme

sevgili üstadlar şu ekteki örnekte var ne demek istediğim, veri girdiğinde kenarlık ekliyor bir türlü bulamadım baktım sizce nasıl yapılmış olabilir.

 

[uzmanamele]

merhaba
örnek dosyanız koşullu biçimlendirme ile yapılmış, inceleyiniz.

 

[hakan_demirkan]

hocam teşekkürler buldum

 

[nadirornek]

süper bir çalışma elinine sağlık

 

[mrwarrior]

For x = 1 To 4

Teşekkürler. Çok yardımcı oldunuz. Yıllar sonra lazım oldu.