Soru Çift tık ile üç işlem yapma

[sirkülasyon]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C6:C65536")) Is Nothing Then
    Target.Offset(0, 15) = "Taşıma İşlendi"
Else
If Target.Column = "15" And Target.Value = "Taşıma İşlendi" Then
Range("A" & Target.Row & ":R" & Target.Row).Interior.ColorIndex = 38
Range("A" & Target.Row & ":R" & Target.Row).Interior.ColorIndex = xlNone
End If
End If
End Sub

Yukarıda yapamaya çalıştığım C6 dan itibaren herhangi bir hücreye çift tık işlemi yapılırsa
a) R sütununa İşlendi yazacak
b) İşlendi Yazısına istinaden A : R arasını renklendirecek
c) aynı zamanda da satırı gizleyecek

Rica etsem yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Buyurun

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("C6:C" & Rows.Count)) Is Nothing Then
        Cells(Target.Row, "R") = "Taşıma İşlendi"
        Range("A" & Target.Row & ":R" & Target.Row).Interior.ColorIndex = 38
        Target.Rows.Hidden = True
    End If
End Sub

 

[sirkülasyon]

Çok Teşekkür ederim