Aktif hücrenin renklenmesi

[Seceren]

Merhaba;

Excel hücreleri arasında çalışma yaparken aktifleşen hüçrenin renginin,kırmızı önceki hücrenin yine eski halini almasını istiyorum. Yapmaya çalıştığım kod' un niye hata verdiğini çözemedim.

Yardımlarınıza şimdiden teşekkür ederim.

[vb:1:babd87ab36]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If i = 0 Or j = 0 Then
i = 1
j = 1
End If
With Cells(i, j).Interior
.Colorındex = x1None
End With
Activecel.iteror 'İşaretlenen hücrenin
.ColorIndex = 3
.pattren = xIsolid
End With
i = ActiveCell.Rov
j = ActiveCell.Column
End Sub
[/vb:1:babd87ab36]

 

[Levent Menteşoğlu]

Verdiğiniz kodda bir çok yazım hatası var, iteror değil interior, pattren değil pattern, colorındex değil colorindex, Rov değil Row, Activecel değil Activecell, x1None değil xlnone olacak. Ayrıca aşağıdaki koduda deneyebilirsiniz.

[vb:1:c8a050fbe0]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 3
End Sub
[/vb:1:c8a050fbe0]

 

[Seceren]

Leventm teşekürler

Birkaç zamandır sizleri takip ediyorum. Sizin kodlarınızı da biliyorum. Sizler beni mazur görün bu benim ilk kod çalışmam ve bir sürü harf yerlerinin yanlışlığı gönderdikten sonra düzeltmeye çalıştım daha sonra sizin bulduklarınızla karşılaştırdım ama yine olmadı. Birkez daha bakarmısınız

[vb:1:99ba3e103b]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If i = 0 Or j = 0 Then
i = 1
j = 1
End If
With Cells(i, j).Interior
.ColorIndex = xlNone
End With
With ActiveCell.Interior 'İşaretlenen hücrenin
.ColorIndex = 3
.Pattern = xIsolid
End With
i = ActiveCell.Row
j = ActiveCell.Column
End Sub
[/vb:1:99ba3e103b]

 

[Levent Menteşoğlu]

Yazdığınız kod ile istediğiniz olmayacaktır. Ama yinede kendi kodunuzun çalışmasını görmeniz için aşağıdaki gibi yapabilirsiniz.

[vb:1:25f406f9c1]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If i = 0 Or j = 0 Then
i = 1
j = 1
End If
With Cells(i, j).Interior
.ColorIndex = xlNone
End With
With ActiveCell.Interior
.ColorIndex = 3
End With
i = ActiveCell.Row
j = ActiveCell.Column
End Sub
[/vb:1:25f406f9c1]

 

[Seceren]

Teşekkür ederim.

Gördüm (.Pattern = xISolid) çıkarmışsınız bu da gezinilen hücreleri renklendiriyor. Tekrar yerine koyduğumuzda ,Kırmızı hüçrelerin üzerinde gezindiğimizde hüçreler beyazlıyor olsun. Hiç bir iddam yok sadece kod yazmasını öğrenmek istiyorum. En iyi yoluda deneme yanılma yolu.

İlgilendiğiniz için tekrar teşekkürler.

 

[Levent Menteşoğlu]

sadece kod yazmasını öğrenmek istiyorum. En iyi yoluda deneme yanılma yolu.

Fikrinize tamamen katılıyor ve sizi desteklediğimi belirtmek istiyorum.