mouse ile tiklanan hucrenin rengi degissin

[egebes]

Mouse ile bir hucreye tıkladigimda hucre reklensin istiyorum,eger tekrar tiklarsam default duruma geri donsun, bunun icin VBA da mouse tıklaması hangi hucrede oldu bunu tesbit etmem lazim,yardımlarınızı beklerim

 

[hamitcan]

Kendi kullandığım kodu öneririm. Çift tıkladığınızda A ile P sütunları arasındaki aktif satırı renklendiriyor. Tekrar tıkladığınızda ise rengi siliyor.
Not: Kodu herhangi sayfanın kod kısmına eklyerek deneyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Interior.ColorIndex = 6 Then
Range("A" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = xlNone
Target.Offset(1, 0).Select
Else
Range("A" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = 6
Target.Offset(1, 0).Select
End If

End Sub

 

[egebes]

ilginize tesekkur ederim,gonderdiginiz kod soylediginiz sekilde calisiyor.
Peki bu islemi cift tiklama ile degilde tek tiklama ile yapabilme imkanimiz var mi

 

[hamitcan]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

olayını Change olayı ile değiştirin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

[egebes]

tesekkurler tam istedigim gibi calisiyor