Duplicando

2024 - VBA & Macros

Post Recente por vitor 12 anos atrás

4 Posts

2 Usuários

0 Reactions

1,085 Visualizações

RSS

Tomoiti

(@tomoiti)

Posts: 41

Eminent Member

Topic starter

Bom Dia Pessoal,

Não manjo muito de vba. :mrgreen: Sou mais do tipo copia e cola dos outros e tenta fazer umas modificações. 8-)
Esta eu copiando novamente, quando fui rodar ele travou.
sera q alguém poderia me ajudar? :?:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$6" Then UserForm1.Show
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$49" Then UserForm2.Show
End Sub

Fico no aguardo :idea: :geek:

TOMOITI
Estudante de VBA

Postado : 29/05/2013 5:37 am

vitor

(@vitor)

Posts: 57

Trusted Member

Você tem o Userform1 e o Userform2 (pergunta boba, mas pode ser)

E ao invés de criar duas rotinas pra um mesmo evento você pode mesclar o código. Veja se o código a seguir te atende:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$4" Then
UserForm1.Show
ElseIf Target.Address = "$B$49" Then
UserForm2.Show
End If
End Sub

/Aqui rodou tranquilo, mas se não der certo aí Mude "Target" para "ActiveCell"

"Nisto se manifestou o amor de Deus em nós: em haver Deus enviado o seu Filho unigênito ao mundo, para vivermos por meio dEle" 1 Jo 4-9

Postado : 29/05/2013 5:59 am

Tomoiti

(@tomoiti)

Posts: 41

Eminent Member

Topic starter

Obrigado Vitor...
consegui de outra maneira aqui. :roll:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$6" Then UserForm1.Show
If Target.Address = "$B$49" Then UserForm2.Show
End Sub

Mas ainda vou tentar usar o seu!

Bom dia a todos!!! :mrgreen:

TOMOITI
Estudante de VBA

Postado : 29/05/2013 6:25 am