Soru Makro kodu düzeltme isteği

[ADER_34]

Merhabalar şuan elimde ki kod sayfada çalışıyor fakat ben bu kodu sadece (I:I) Sütununda çalımasını istiyorum
hangi kodları değiştirmem gerekiyor, yardımcı olurmuşsunuz?
teşekkürler.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [J5,L5,N5,P5,R5]) Is Nothing And Target.Cells.Count = 1 Then
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
End If
End If
End Sub

 

[mustafa1205]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 And Not Intersect(Target, Me.Columns("I")) Is Nothing Then
Application.EnableEvents = False
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
End If
Application.EnableEvents = True
End If
End Sub


dener misiniz ?

 

[pitchoute]

Merhaba,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("I:I")) Is Nothing And Target.Cells.Count = 1 Then
        If Target.Value = "X" Then
            Target.Value = ""
        Else
            Target.Value = "X"
        End If
    End If
End Sub

 

[ADER_34]

Çok teşekkür ederim her 2 kodda düzgün çalışıyor, peki bu kodları sadece çift tıklama ile nasıl çalıştırırım?

 

[osman06turgut]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("I:I")) Is Nothing And Target.Cells.Count = 1 Then
        If Target.Value = "X" Then
            Target.Value = ""
        Else
            Target.Value = "X"
        End If
    End If
End Sub

 

[ADER_34]

Çok teşekkür ederim kodlar sorunsuz çalışıyor, iyi çalışmalar dilerim.