Search

A carregar...

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-28
Se pretendermos que a visualização do UserForm seja limitado a um ou vários Ranges, então podemos inserir o seguinte Código:

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

Dim rng1 As Range, rng2 As Range

Set rng1 = Range("a1:a10")
Set rng2 = Range("b1:b10")

    
    If Not Intersect(Target, rng1) Is Nothing Then

        UserForm1.Show
    Else
        Cancel = True
    End If

    If Not Intersect(Target, rng2) Is Nothing Then

        UserForm1.Show
    Else
        Cancel = True
    End If

End Sub


Assim,ao fazer-se duplo clique em qualquer célula do(s) Range(s) indicados e só nessas células, é que o UserForm é apresentado.