Notifications
Clear all

Duplicando

4 Posts
2 Usuários
0 Reactions
1,074 Visualizações
(@tomoiti)
Posts: 41
Trusted Member
Topic starter
 

Bom Dia Pessoal, :D

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. :o
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:

 
Postado : 29/05/2013 5:37 am
(@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"

 
Postado : 29/05/2013 5:59 am
(@tomoiti)
Posts: 41
Trusted Member
Topic starter
 

Obrigado Vitor... :D
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:

 
Postado : 29/05/2013 6:25 am
(@vitor)
Posts: 57
Trusted Member
 

De nada :)

 
Postado : 29/05/2013 6:38 am