Çift tıklandığında dolgusu sarıya dönen satır

[ismail-34]

Çok Değerli Excel web ailesine selamlar saygılar..

benim sorum c3-c100 arası herhangi bir hücreye tıkladığımda tıkladığımda tıkladığım hücrenin satırı sarı dolgulu olsun istiyorum.

ve eğer mümkünse c3-c100 arası tıkladığım hücre sarı ise o satırın sarı dolgusu kaldırılsın istiyorum.

yardımlarınız için şimdiden çok çok teşekkür ederim.

 

[muhasebeciyiz]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("C3:C100")) Is Nothing Then
If Target.Interior.Color = RGB(255, 255, 0) Then
Target.EntireRow.Interior.Color = xlNone
Else
Target.EntireRow.Interior.Color = RGB(255, 255, 0)
End If
End If

End Sub

 

[ismail-34]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("C3:C100")) Is Nothing Then
If Target.Interior.Color = RGB(255, 255, 0) Then
Target.EntireRow.Interior.Color = xlNone
Else
Target.EntireRow.Interior.Color = RGB(255, 255, 0)
End If
End If

End Sub

eyw harikasınız.çift tıklamalı modelinide ben buldum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("C3:C100")) Is Nothing Then
If Target.Interior.Color = RGB(255, 255, 0) Then
Target.EntireRow.Interior.Color = xlNone
Else
Target.EntireRow.Interior.Color = RGB(255, 255, 0)
End If
End If

End Sub

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("C3:C100")) Is Nothing Then Exit Sub
    Cancel = True
    Target.EntireRow.Interior.Color = IIf(Target.Interior.Color = 65535, xlNone, 65535)
End Sub