Listemde dolu hücrelere çift tıkladığımda satırın sarı renk olması

[Factotum53]

Arkadaşlar merhaba. Ekteki personel listesinde,çift tıklayarak renklendirme yapmak istiyorum.Örneğin 3.Satırdaki hücrelerden herhangi birine çift tıkladığımda(A3,B3,C3,D3) o aralığın sarı renk olmasını istiyorum.Örnek dosya ektedir.Şimdiden teşekkürler....

 

[çıtır]

Sayfanın kodu olarak deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A3:D63355]) Is Nothing Then Exit Sub
a = Target.Row
Range("A" & a & ":" & "D" & a).Interior.Color = vbYellow 
End Sub

 

[Factotum53]

Sayın Çıtır cevap için teşekkürler lakin kod hata veriyor Sayfa1 e uyguluyorum ama hata veriyor.

 

[netzone]

Merhaba,

Arkadaşımız Çıtır'ın paylaşmış olduğu kodlar hata vermeden çalışmaktadır. Office 2016 64Bit de denendi.

İyi çalışmalar.

Sayfanın kodu olarak deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A3:D63355]) Is Nothing Then Exit Sub
a = Target.Row
Range("A" & a & ":" & "D" & a).Interior.Color = vbYellow
End Sub

 

[çıtır]

Dosyayı deneyiniz.Sayın netzone yardımın için teşekkür ederim.

 

[Factotum53]

Çok teşekkürler yardımlarınız için.İyi ki varsınız...

 

[çıtır]

Çok teşekkürler yardımlarınız için.İyi ki varsınız...

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[Factotum53]

Sayın Çıtır bir konuda daha yardıma ihtiyacım olacak.Yanlışlıkla çift tıklayıp sarı olduğunda tekrar çift tıklayıp eski haline dönmesini sağlayabilir miyiz?

 

[çıtır]

Önçeki kodu silerek,yerine aşağıdaki kodu kopyalayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A3:D63355]) Is Nothing Then Exit Sub
a = Target.Row
If Range("A" & a & ":" & "D" & a).Interior.Color = vbYellow Then
Range("A" & a & ":" & "D" & a).Interior.Color = xlNone
Else
Range("A" & a & ":" & "D" & a).Interior.Color = vbYellow
End If
End Sub

 

[gazolay]

BU SARI RENK USTEN AŞŞAĞIYA SOLDAN SAĞA OLMUYORMU...BEN TIKI KOYUNCA SOLDAN SAĞA ÜSTEN AŞŞAĞIYA SARI OLSUN...AMA BENİM SAYFAMDAKİ RENKLER KARIŞTIRMASIN

 

[Factotum53]

Çok teşekkürler...

 

[çıtır]

Çok teşekkürler...

Rica ederim.Dönüş yaptığınız için teşekkür ederim.