çif tıklamayla satır renklendirme

[Erhan Üstünel]

selam arkadaşlar, başlıktanda anlaşılacağı gibi,

örnek olarak D hücresine çif tıkladığımda aynı satırın b-h satırları arasını renklendirmemiz mümkünmü acaba ?

 

[hamitcan]

Linki inceleyin.
http://www.excel.web.tr/f50/mouse-ile-tiklanan-hucrenin-rengi-degissin-t52979.html

 

[mersilen]

selam

a1 için

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 If Intersect(Target, [a1]) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    x = 10
    Range("A" & x & ":m" & x).Interior.ColorIndex = 43

End Sub

peki arkadaşlar aynı macronun içinde
farklı hücrelerle farklı satırlar (double klikle ) renklendirilebilir mi?
benim yazdığım kodda
a1 için a10:m10
b1 için a11:m13
c1 için a13:m15 gibi

 

[Erhan Üstünel]

Linki inceleyin.
http://www.excel.web.tr/f50/mouse-ile-tiklanan-hucrenin-rengi-degissin-t52979.html

hocam teşekkürler

 

[Korhan Ayhan]

Selamlar,

Sn. mersilen aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Select Case Target.Address(0, 0)
        Case Is = "A1"
        Range("A10:M10").Interior.ColorIndex = 43
        Case Is = "B1"
        Range("A11:M13").Interior.ColorIndex = 43
        Case Is = "C1"
        Range("A13:M15").Interior.ColorIndex = 43
    End Select
End Sub

 

[mersilen]

Korhan bey cevap için teşekkürler
çift tıklama ile renklendirme çalışıyor
ama sayfada hiç bir hücreye girilemiyor (yanıp sönen işaret= imleç mi?)

 

[Korhan Ayhan]

Selamlar,

Evet kodun bu haliyle çift tıklama ile hücre düzenleyemezsiniz. Kodu aşağıdaki şekilde düzenlerseniz istediğiniz sonuca ulaşırsınız. Eğer yine sonuç istediğiniz gibi değilse kod içindeki kırmızı renkli kısmı silerek deneyin.

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A1:C1")) Is Nothing Then Exit Sub
    [B][COLOR=red]Cancel = True[/COLOR][/B]
    Select Case Target.Address(0, 0)
        Case Is = "A1"
        Range("A10:M10").Interior.ColorIndex = 43
        Case Is = "B1"
        Range("A11:M13").Interior.ColorIndex = 43
        Case Is = "C1"
        Range("A13:M15").Interior.ColorIndex = 43
    End Select
End Sub

 

[mersilen]

double click ile satır renklendirmek

tekrar teşekkürler
bu kod iki şekilde de mükemmel çalışıyor
eminim ki birçok kişininde işine yarıyacaktır