Blog Archive

About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2005-01-30
De acordo com os dois posts anteriores, torna-se evidente que, usando o evento Worksheet_BeforeDoubleClick, será também possível mostrar mais do que um Userform:

Se fizermos duplo clique numa das células do Range A1:A5, o resultado será:


Se fizermos duplo clique numa das células do Range B1:B5, o resultado será:


O Código:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim rng1 As Range, rng2 As Range

Set rng1 = Range("a1:a5")
Set rng2 = Range("b1:b5")

    
    If Not Intersect(Target, rng1) Is Nothing Then

        UserForm1.Show
    Else
        Cancel = True
    End If
    
    If Not Intersect(Target, rng2) Is Nothing Then

        UserForm2.Show
    Else
        Cancel = True
    End If

End Sub