[celine]

witam

mam taki kodzik, jak go przerobić, żeby to zadziałało ?

Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = True If Target.Count > 1 Then Exit Sub 'gdy zaznaczasz wiecej niz jedną komórkę nie wykonuje się If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub 'gdy komórka nie należy do zakresu nie wykonuje się If Target <> "" Then Exit Sub gra.Show If Target.Count > 1 Then Exit Sub 'gdy zaznaczasz wiecej niz jedną komórkę nie wykonuje się If Intersect(Target, Range("A6:A50")) Is Nothing Then Exit Sub 'gdy komórka nie należy do zakresu nie wykonuje się If Target <> "" Then Exit Sub gra1.Show End Sub

prawdopodobnie nie może być dwóch odwołań w jednym Worksheet_SelectionChange


dziękuję za pomoc
Celinka

[Artik]

Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   Application.ScreenUpdating = True   If Target.Count > 1 Then Exit Sub   If Not Intersect(Target, Range("A1:A5")) Is Nothing Then     If Target <> "" Then Exit Sub     gra.Show   ElseIf Not Intersect(Target, Range("A6:A50")) Is Nothing Then     If Target <> "" Then Exit Sub     gra1.Show   End If End Sub

Tylko nie wiem po co to odświeżanie ekranu na początku procedury.

Artik

[celine]

dziękuję bardzo