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

Katılım
17 Kasım 2017
Mesajlar
26
Excel Vers. ve Dili
Excel 2013 türkçe
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....
 

Ekli dosyalar

Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Sayfanın kodu olarak deneyiniz.
Kod:
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
 
Katılım
17 Kasım 2017
Mesajlar
26
Excel Vers. ve Dili
Excel 2013 türkçe
Sayın Çıtır cevap için teşekkürler lakin kod hata veriyor Sayfa1 e uyguluyorum ama hata veriyor.
 

netzone

Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
789
Excel Vers. ve Dili
🅾🅵🅵🅸🅲🅴
⎝2019 32 Bit 𝙏𝙍⎠
🆆🅸🅽🅳🅾🆆🆂
⎝10 64 Bit 𝙏𝙍⎠
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.
Kod:
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
2018-08-15_22-35-15.png
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Dosyayı deneyiniz.Sayın netzone yardımın için teşekkür ederim.
 

Ekli dosyalar

Katılım
17 Kasım 2017
Mesajlar
26
Excel Vers. ve Dili
Excel 2013 türkçe
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?
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Önçeki kodu silerek,yerine aşağıdaki kodu kopyalayınız.
Kod:
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
 
Katılım
16 Mayıs 2016
Mesajlar
141
Excel Vers. ve Dili
mıcrosoft exel türkçe
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
 
Üst