ÇİFT TIKLAMAYLA SATIR BOYAMA

[csncesur]

İyi günler kolay gelsin. Ekte belirttiğim proje dosyamda seçili hücreye çift tıkladığımda o satırı (A) kırmızı renge boyamasını istiyorum. Yardımlarınızı bekliyorum.

 

[Cengiz Demir]

Vba kod penceresinde Sayfa1'i bulup kodları oraya yapıştırın

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

If Target.Column = 1 And Target.Row > 1 Then

      Target.Interior.ColorIndex = 3 'Sarı renk

End If

End Sub

 

[csncesur]

Vba kod penceresinde Sayfa1'i bulup kodları oraya yapıştırın

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

If Target.Column = 1 And Target.Row > 1 Then

      Target.Interior.ColorIndex = 3 'Sarı renk

End If

End Sub

Ekli dosyayı görüntüle 234311

hocam elinize sağlık formül çalıştı ama A ve D arasına kadar boyamasını istiyorum

 

[Cengiz Demir]

Rica ederim. Bu kodları kullanabilirsiniz.

Dim i As Integer

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

If Target.Column = 1 And Target.Row > 1 Then

      For i = 1 To 4
        
        Cells(Target.Row, i).Interior.ColorIndex = 3
        
      Next i   
    
End If

End Sub

 

[ÖmerFaruk]

Cengiz beyin izniyle, veridği kodlar biraz daha pratik olsun diye for-next kullanmadan bir alternatifiniz olsun.

Dim i As Integer
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 And Target.Row > 1 Then   
      Range("A" & Target.Row).Resize(1,4).Interior.ColorIndex = 3          
End If
End Sub

Ya da

Range("A" & Target.Row, "D" & Target.Row).Interior.ColorIndex = 3

 

[Cengiz Demir]

Üstad izin ne demek.
Biz denizde batmayacak kadar yüzebiliyoruz. Sizler sürat teknesiyle yol alıyorsunuz.

Sayenizde, sonuca daha kısa yoldan gidilecek teknikleri de öğrenmiş oluyoruz

Cengiz beyin izniyle, veridği kodlar biraz daha pratik olsun diye for-next kullanmadan bir alternatifiniz olsun.

Dim i As Integer
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 And Target.Row > 1 Then  
      Range("A" & Target.Row).Resize(1,4).Interior.ColorIndex = 3         
End If
End Sub

Ya da

Range("A" & Target.Row, "D" & Target.Row).Interior.ColorIndex = 3

 

[csncesur]

Cengiz beyin izniyle, veridği kodlar biraz daha pratik olsun diye for-next kullanmadan bir alternatifiniz olsun.

Dim i As Integer
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 And Target.Row > 1 Then  
      Range("A" & Target.Row).Resize(1,4).Interior.ColorIndex = 3         
End If
End Sub

Ya da

Range("A" & Target.Row, "D" & Target.Row).Interior.ColorIndex = 3

Hocam iş yoğunluğundan dolayı bakamadım cevaplarınıza çok teşekkür ediyorum ellerinize sağlık

 

[csncesur]

Üstad izin ne demek.
Biz denizde batmayacak kadar yüzebiliyoruz. Sizler sürat teknesiyle yol alıyorsunuz.

Sayenizde, sonuca daha kısa yoldan gidilecek teknikleri de öğrenmiş oluyoruz

Hocam iş yoğunluğundan dolayı bakamadım cevaplarınıza çok teşekkür ediyorum ellerinize sağlık

 

[Korhan Ayhan]

Ben biraz daha süsledim.

İlk tıklamada renklenir. İkinci tıklamada renk kalkar. Ayrıca çift tıklama olaylarında ben genellikle Cancel = True komutunu ekliyorum. Bu komut çift tıkladıktan sonra cursor'ın hücre içine girmesine engel oluyor.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
    Target.Resize(1, 4).Interior.Color = IIf(Target.Interior.Color = vbRed, xlNone, vbRed)
End Sub