Cześć,
mam pytanie dlaczego to nie działa:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Not Intersect(Target, Range("C14:L18")) Is Nothing Then
MsgBox "event"
End If
End If
End Sub
a to działa:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Not Intersect(Target, Range("A1")) Is Nothing Then
MsgBox "event"
End If
End If
End Sub
Czy problemem jest tutaj zakres komórek "C14:L18", które zostały scalone jako jedna? Nie działa też w takim przypadku samo "C14". Czy można to jakoś obejść?