VBA vraag; 2 userforms afhankelijk plaats van klik

[Efsix]

Beste Excellers.

Ik wil graag in een werkblad, afhankelijk van de plaats waar ik klik een userform laten opkomen.
Bij een enkele lukt dat prima, maar wanner ik 2 aparte ranges maak klopt het niet meer.
kan iemand mij helpen?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("G10:G12"), Target) Is Nothing Then
        Userform1.Show
    Else: Userform1.Hide
    
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("B210:B12"), Target) Is Nothing Then
        Userform2.Show
    Else: Userform2.Hide
    End If
    
End Sub

 

[sylvester-ponte]

hoi Efsix

ik mis een end if

ook na een else moet nog een end if

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("G10:G12"), Target) Is Nothing Then
        Userform1.Show
    Else: Userform1.Hide
    end if
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("B210:B12"), Target) Is Nothing Then
        Userform2.Show
    Else: Userform2.Hide
    End If
    
End Sub

 

[sylvester-ponte]

hoi Efsix

ik mis een end if

ook na een else moet nog een end if
op een éénlijnige if (If Target.Cells.Count > 1 Then Exit Sub) hoeft dat jammer genoeg niet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("G10:G12"), Target) Is Nothing Then
        Userform1.Show
    Else: Userform1.Hide
    end if
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("B210:B12"), Target) Is Nothing Then
        Userform2.Show
    Else: Userform2.Hide
    End If
    
End Sub

 

[Efsix]

hoi Efsix

ik mis een end if

ook na een else moet nog een end if
op een éénlijnige if (If Target.Cells.Count > 1 Then Exit Sub) hoeft dat jammer genoeg niet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("G10:G12"), Target) Is Nothing Then
        Userform1.Show
    Else: Userform1.Hide
    end if
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("B210:B12"), Target) Is Nothing Then
        Userform2.Show
    Else: Userform2.Hide
    End If
    
End Sub

Hoi Sylvester,
Beadankt voor het mee denken, maar helaas is dat niet de oplossing.

groeten, Romé

 

[Roncancio]

Afgezien dat de code wat korter kan, zit er m.i. een typefoutje in het bereik:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("G10:G12"), Target) Is Nothing Then
        Userform1.Show
    Else: Userform1.Hide
    
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("B[B][COLOR="Red"]2[/COLOR][/B]10:B12"), Target) Is Nothing Then
        Userform2.Show
    Else: Userform2.Hide
    End If
    
End Sub

Met vriendelijke groet,


Roncancio

 

[Efsix]

Afgezien dat de code wat korter kan, zit er m.i. een typefoutje in het bereik:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("G10:G12"), Target) Is Nothing Then
        Userform1.Show
    Else: Userform1.Hide
    
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("B[B][COLOR="Red"]2[/COLOR][/B]10:B12"), Target) Is Nothing Then
        Userform2.Show
    Else: Userform2.Hide
    End If
    
End Sub

Met vriendelijke groet,


Roncancio

Hallo Ronancio,

Bedankt. inderdaad er zat een foutje in.
Ik heb een nieuw werkblad gemaakt met twee 'kale' Userforms. Het werkt zoals ik wilde.

Waar ik mee bezig ben echter gaat nog niet goed, dus ik vrees dat mijn probleem zich thans ergens anders bevind. namelijk in de Userforms zelf. Dat ga ik morgen eerst uitzoeken.

groeten, Romé

 

[Roncancio]

Hallo Ronancio,

Bedankt. inderdaad er zat een foutje in.
Ik heb een nieuw werkblad gemaakt met twee 'kale' Userforms. Het werkt zoals ik wilde.

Waar ik mee bezig ben echter gaat nog niet goed, dus ik vrees dat mijn probleem zich thans ergens anders bevind. namelijk in de Userforms zelf. Dat ga ik morgen eerst uitzoeken.

groeten, Romé

Welk probleem?
De code kan korter maar wellicht moet de code herschreven worden als duidelijk is wat je met het programma wilt doen.

Met vriendelijke groet,


Roncancio

 

[Efsix]

Welk probleem?
De code kan korter maar wellicht moet de code herschreven worden als duidelijk is wat je met het programma wilt doen.

Met vriendelijke groet,


Roncancio

Ik heb er vannacht nog eens diep over nagedacht.
Het probleem iets anders ingestoken en het resultaat is gehaald.
mocht je nieuwsgierig zijn . . hier is mijn bijlage.

groeten, Romé