Soru vba ile Koşullu Biçimlendirme

[Bahattin Sungur]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireColumn.Interior.ColorIndex = 19

Ben bu kod ıle aktıf hucreye aıt sutunu renklendırıyorum ama asıl yapmak ıstedıgım butona atayacagım bır makro ıle aktıf hucreye aıt kolona sag kenarlık eklemek. ByVal Target as Range olarak degıl dırekt olarak buton ıle yapacagım ama sadece renklendırme kodlarını bılıyorum sag kenarlık nasıl ekleyecegım yada ekledıgım kenarlık uzerınde nasıl degısıklık(kalın cızgı, mavı cızgı vs.) yapacagımı ogrenemedım. Sımdıden yardım edenlere cok tesekkur ederım.

 

[YUSUF44]

Deneyiniz:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Borders.LineStyle = xlNone
ActiveCell.EntireColumn.Borders(xlEdgeRight).LineStyle = xlContinuous
End Sub

 

[Bahattin Sungur]

cok tesekkur ederım yusuf bey. Ufak bır rıcam daha olacak eger mumkunse ben cızdıgım bu cızgıyı nasıl ozellestırebılırım. yanı kalın ve mavı yapmak ıstıyorum nasıl yapabılırım. ayrıca bu kodları nerden edınebılırım sagdan soldan gore gore bazı kodları ogrendım ama hala ıhtıyacım olanları bulamkta zorlanıyorum.

 

[Korhan Ayhan]

Bu temel kod yapılarını MAKRO KAYDET yöntemi ile elde edebilirsiniz.

 

[YUSUF44]

Şöyle olabilir:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Borders.LineStyle = xlNone
With ActiveCell.EntireColumn.Borders(xlEdgeRight)
    .LineStyle = 1
    .Color = vbBlue
    .Weight = xlThick
End With
End Sub

 

[YUSUF44]

Bu temel kod yapılarını MAKRO KAYDET yöntemi ile elde edebilirsiniz.

Ben de Sayın Korhan Ayhan'ın belirttiği gibi makro kaydet yöntemini kullandım.

 

[Bahattin Sungur]

Makro Kaydet ozellıgı ıle nasıl yapılıyor acaba tam olarak. Ayrıca yardımlarınız ıcın cok tesekkur ederım.