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

F

Factotum53

Katılım
17 Kasım 2017
Mesajlar
26
Excel Vers. ve Dili
Excel 2013 türkçe
Altın Üyelik Bitiş Tarihi
02/03/2019
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

Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
22/12/2022
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
 
F

Factotum53

Katılım
17 Kasım 2017
Mesajlar
26
Excel Vers. ve Dili
Excel 2013 türkçe
Altın Üyelik Bitiş Tarihi
02/03/2019
Sayın Çıtır cevap için teşekkürler lakin kod hata veriyor Sayfa1 e uyguluyorum ama hata veriyor.
 
netzone

netzone

Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
789
Excel Vers. ve Dili
🅾🅵🅵🅸🅲🅴
⎝2019 32 Bit 𝙏𝙍⎠
🆆🅸🅽🅳🅾🆆🆂
⎝10 64 Bit 𝙏𝙍⎠
Altın Üyelik Bitiş Tarihi
12-09-2027
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.

çıtır' Alıntı:
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
Genişletmek için tıkla ...
2018-08-15_22-35-15.png
 
Ç

çıtır

Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
22/12/2022
Dosyayı deneyiniz.Sayın netzone yardımın için teşekkür ederim.
 

Ekli dosyalar

F

Factotum53

Katılım
17 Kasım 2017
Mesajlar
26
Excel Vers. ve Dili
Excel 2013 türkçe
Altın Üyelik Bitiş Tarihi
02/03/2019
Çok teşekkürler yardımlarınız için.İyi ki varsınız...
 
F

Factotum53

Katılım
17 Kasım 2017
Mesajlar
26
Excel Vers. ve Dili
Excel 2013 türkçe
Altın Üyelik Bitiş Tarihi
02/03/2019
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

Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
22/12/2022
Ö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
 
G

gazolay

Katılım
16 Mayıs 2016
Mesajlar
141
Excel Vers. ve Dili
mıcrosoft exel türkçe
Altın Üyelik Bitiş Tarihi
29/06/2023
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
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst