DubleClick renklendirme

[igultekin2000]

iyi günler; çeşitli işlemlerde kullandığım Dubleclick özelliğinde normalde satırı silme özelliğini kullanıyordum, satırı silme özelliğini devre dışı bıraktım ama işlemin karışmaması için çitf tıklanan satırın aynı zamanda tıklandığı yerde renklenmesini sağlamak istiyorum. bu makroya renklendirme de eklenebilir mi? Teşekkürler

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("I4:I65536")) Is Nothing Then Exit Sub
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy Sheets("FATURA").[J65536].End(xlUp).Offset(1, -8)
'Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Delete xlUp
Cancel = True
End Sub

 

[muygun]

Merhaba;
Cancel = True den önce;

Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Interior.ColorIndex = 46

Ekleyip deneyin.
İyi çalışmalar.

 

[igultekin2000]

Merhaba;
Cancel = True den önce;

Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Interior.ColorIndex = 46

Ekleyip deneyin.
İyi çalışmalar.

Teşekkür ederim sorunsuz çalışıyor. İyi çalışmalar .

 

[Haluk]

Konuyla ilgisi yok ama .... gözüm takıldı; DubleClick ifadesi güzelmiş

"Yeni" mi "Tekirdağ" mı ?

.

 

[igultekin2000]

Konuyla ilgisi yok ama .... gözüm takıldı; DubleClick ifadesi güzelmiş

"Yeni" mi "Tekirdağ" mı ?

.

DoubleClick Türkçe Versiyonu DubleClik o şeyin ismini bile zikretmeyenlerdeyim.