Belirtilen Hücre Sarı Renk Olsun

[bumumercan]

Merhabalar;
A1 hücresi seçildiğinde B1,C1,D1 hücreri A1 hücresi ile birlikte sarı renk olmasını istiyorum. veya
A3 hücresi seçildiğinde B3,C3,D3 hücreri gibi.

mümkünse

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a1:a100]) Is Nothing Then Exit Sub
[a1:d100].Interior.Color = xlNone
For a = 1 To 4
Target(1, a).Interior.Color = 65535
Next
End Sub

 

[bumumercan]

yapmış olduğunuz çalışma doğru fakat ben o hücrenin sarı olarak kalmasını istiyorum.

a1 hücresini mause ile seçtik sonra butona bastığımda a1den d1 sarı renk boya kalacak.

 

[Seyit Tiken]

Kodu düğmeye atayıp deneyiniz.

If Intersect(ActiveCell, [a1:a100]) Is Nothing Then Exit Sub
For a = 1 To 4
ActiveCell(1, a).Interior.Color = 65535
Next

Koşullu Biçimlendirme'den de, =$A1>0 formülünü uygulayıp yapabilirsiniz.