AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Aktif Hücre Renklendirme Sadece Tek Bir Satırda

11/12/2021, 17:04

Oğuz Türkyılmaz

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

11/12/2021, 17:44

berduş

if ActiveCell.row=SatırNoNeİse then ActiveCell.Cells.Interior.ColorIndex = 4
benzeri bir kod olabilir denemedim tahmini
11/12/2021, 18:11

Oğuz Türkyılmaz

@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
11/12/2021, 18:21

berduş

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:46

Oğuz Türkyılmaz

(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.
11/12/2021, 18:58

berduş

Rica ederim
İyi çalışmalar