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

Factotum53

Altın Üye
Altın Üye
Katılım
17 Kasım 2017
Mesajlar
26
Beğeniler
0
Excel Vers. ve Dili
Excel 2013 türkçe
#1
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

çıtır

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
3,359
Beğeniler
330
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
#2
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
 

Factotum53

Altın Üye
Altın Üye
Katılım
17 Kasım 2017
Mesajlar
26
Beğeniler
0
Excel Vers. ve Dili
Excel 2013 türkçe
#3
Sayın Çıtır cevap için teşekkürler lakin kod hata veriyor Sayfa1 e uyguluyorum ama hata veriyor.
 

netzone

Altın Üye
Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
413
Beğeniler
81
Excel Vers. ve Dili
Office 2016 64 Bit TR
Windows 10 64 Bit TR
#4
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
 

çıtır

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
3,359
Beğeniler
330
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
#5
Dosyayı deneyiniz.Sayın netzone yardımın için teşekkür ederim.
 

Ekli dosyalar

Factotum53

Altın Üye
Altın Üye
Katılım
17 Kasım 2017
Mesajlar
26
Beğeniler
0
Excel Vers. ve Dili
Excel 2013 türkçe
#8
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

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
3,359
Beğeniler
330
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
#9
Ö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
109
Beğeniler
2
Excel Vers. ve Dili
mıcrosoft exel türkçe
#10
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