AccessTr.neT

Merhaba
Aşağıdaki kod bloğuyla Excel Çalışma Sayfasında aktif hücreyi renklendiriyorum. Fakat benim bulmaya çalıştığım cevap bu işlemin sadece tek bir satırda gerçekleşmesi. Yani Örnek olarak sadece 1.satırdaki hücrelere tıklandığında aktif tıklanan hücrenin rengi değişsin diğer satırlardaki hücrelere tıklandığında bu kod çalışmasın. Normalde koşullu biçimlendirmeyle de yapılabilir diye düşünüyordum ama orda aktif cell olayını çözemedim. Yardımlarınız için şimdiden teşekkür ederim.

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.Interior.ColorIndex = xlColorIndexNone

ActiveCell.Cells.Interior.ColorIndex = 4

End Sub

if ActiveCell.row=SatırNoNeİse then ActiveCell.Cells.Interior.ColorIndex = 4

benzeri bir kod olabilir denemedim tahmini

@berduş hocam Teşekkür ederim bu şekilde çalışıyor. Bu kodu sabit belli hücrelerde çalışması için nasıl revize etmeli. Yani sadece F1 - G1 - J1 e tıklandığında. G1 sütun için aşağıdaki gibi 3-5 deneme yaptım ama çalışmadı. Activecell.colum kodu ile birlikte kullanmak gerekiyor sanırım ama nasıl

Kod:
If ActiveCell(1, 7) Then ActiveCell.Cells.Interior.ColorIndex = 4

Sadece 3 hücre içinse if target.address="f1" or ... gibi birşeyler deneyebilirsiniz yada

Kod:
If not Intersect(Target, Range("f1,g1,j1")) Is Nothing Then

gibi bir kod olabilir emin değilim

(11/12/2021, 18:21)berduş yazdı: [ -> ]Sadece 3 hücre içinse if target.address="f1" or ... gibi birşeyler deneyebilirsiniz yada

Kod:
If not Intersect(Target, Range("f1,g1,j1")) Is Nothing Then
gibi bir kod olabilir emin değilim

If not Intersect(Target, Range("f1,g1,j1")) Is Nothing Then ......

@berduş hocam bu kod oldu çok teşekkür ederim.

Rica ederim
İyi çalışmalar

Oğuz Türkyılmaz

berduş

Oğuz Türkyılmaz

berduş

Oğuz Türkyılmaz

berduş