Soru Renklendir ve İptal et

[sirkülasyon]

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


Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Interior.ColorIndex = 4


Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Interior.ColorIndex = xlNone

İlk çift tık ile renklendirmeyi İkinci çift tık ile de renklendirmeyi İptal etmeyi sağlayan kodları nasıl birbirine bağlayabilirim?

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki gibi yapabilirsiniz.

with Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Interior
if .ColorIndex = xlNone then
.ColorIndex = 4
else
.ColorIndex = xlNone
end if
end with

 

[sirkülasyon]

Teşekkür Ederim. Sağ Olasınız.