Buton ile satırın yazı rengini değiştirme

[extremetonic]

Merhaba, bana lazım şey sanırım makro ile oluyor. Ekteki dosyada bulunan örnekte B2 ve C2 hücrelerinde birer buton istiyorum. B2deki butona tıkladığımda işaretli satırın rengi kırmızıya, C2 butonuna tıkladığımda ise işaretli satırın rengi turuncuya dönsün. Böylece sürekli renk değiştirme yapmadan, butona basarak satırın yazı rengini değiştirmek istiyorum. Bunu nasıl yaparız? Şimdiden yardımlarınız için teşekkürler.

 

[asilme]

dosyanızı inceleyin

exceli yeni öğreniyorum üstatlarımın affına sığınarak yardım etmeye çalıştım kontrol et yeterlimi bilmiyorum.

 

[antonio]

Sub YAPISAL()
Dim sh As Worksheet, yer As Range
Set sh = Worksheets(1)
Set yer = sh.Range("B" & ActiveCell.Row & ":D" & ActiveCell.Row)
If ActiveCell.Row < 5 Then
Exit Sub
Else
yer.Font.ColorIndex = 3
End If
End Sub

'------------------------------------------------------------

Sub ONEMSİZ()
Dim sh As Worksheet, yer As Range
Set sh = Worksheets(1)
Set yer = sh.Range("B" & ActiveCell.Row & ":D" & ActiveCell.Row)
If ActiveCell.Row < 5 Then
Exit Sub
Else
yer.Font.ColorIndex = 44
End If
End Sub

 

[extremetonic]

exceli yeni öğreniyorum üstatlarımın affına sığınarak yardım etmeye çalıştım kontrol et yeterlimi bilmiyorum.

Yardım etmek istemen bile yeter, teşekkürler

Sub YAPISAL()
Dim sh As Worksheet, yer As Range
Set sh = Worksheets(1)
Set yer = sh.Range("B" & ActiveCell.Row & ":D" & ActiveCell.Row)
If ActiveCell.Row < 5 Then
Exit Sub
Else
yer.Font.ColorIndex = 3
End If
End Sub

'------------------------------------------------------------

Sub ONEMSİZ()
Dim sh As Worksheet, yer As Range
Set sh = Worksheets(1)
Set yer = sh.Range("B" & ActiveCell.Row & ":D" & ActiveCell.Row)
If ActiveCell.Row < 5 Then
Exit Sub
Else
yer.Font.ColorIndex = 44
End If
End Sub

Teşekkürler