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
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