Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Problem z vba - Worksheet_SelectionChange

celine · Starszy Forumowicz Posty: 34

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 · Wysłany: 30-06-2012, 00:41

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 · Starszy Forumowicz Posty: 34

dziękuję bardzo :->