Soru Makro kodu düzeltme isteği

Katılım
2 Haziran 2015
Mesajlar
309
Excel Vers. ve Dili
2010
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

Altın Üye
Katılım
23 Ekim 2010
Mesajlar
1,321
Excel Vers. ve Dili
Office 2016 / 64 Bit - Türkçe
Altın Üyelik Bitiş Tarihi
18-07-2026
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 ?
 
Katılım
11 Temmuz 2024
Mesajlar
234
Excel Vers. ve Dili
Excel 2021 Türkçe
Merhaba,

Kod:
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
 
Katılım
2 Haziran 2015
Mesajlar
309
Excel Vers. ve Dili
2010
Ç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?
 
Son düzenleme:

osman06turgut

Herkes İşi Bitince Teşekkür Etmeden Gidecek!!
Altın Üye
Katılım
25 Nisan 2022
Mesajlar
38
Excel Vers. ve Dili
Office 2021-Türkçe
Altın Üyelik Bitiş Tarihi
30-03-2028
Kod:
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
 
Katılım
2 Haziran 2015
Mesajlar
309
Excel Vers. ve Dili
2010
Çok teşekkür ederim kodlar sorunsuz çalışıyor, iyi çalışmalar dilerim.
 
Üst