Clicar na célula, a...
 
Notifications
Clear all

Clicar na célula, abrir um userform

4 Posts
1 Usuários
0 Reactions
5,303 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Como faço ao, clicar na célula C1, abrir um userform?

 
Postado : 24/06/2011 12:11 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Coloque no Evento da Aba que quer executar :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$C$1" Then
        UserForm1.Show
    End If
End Sub

[]s

 
Postado : 24/06/2011 12:18 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Muito obrigado.

Mas uma coisa, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"

tem que ser sempre desse jeito? abs

Ah, e se eu quiser aplicar isso pra qualquer célula da coluna "C"?

 
Postado : 24/06/2011 12:41 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Para a duvida em questão "Como faço ao, clicar na célula C1, abrir um userform?".
Sim, tem de ser deste jeito, se olhar no editor do vba, verá que temos vários Eventos, e, em sua outra duvida :

se eu quiser aplicar isso pra qualquer célula da coluna "C"?
A rotina ficaria :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 3 Then
       UserForm1.Show
    End If
End Sub

Spar, uma vez que está iniciando em VBA, segue uma dica que costumo passar para o pessoal, um Ótimo Curso com 120 lições, GRATUITO, disponibilizado pelo Julio, vale a pena perder um tempo para ler e seguir os exemplos do mesmo :
São 6 módulos :
http://www.juliobattisti.com.br/cursos/ ... odulo1.asp

[]s

 
Postado : 25/06/2011 9:01 pm