Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Chamar userform de ...
 
Notifications
Clear all

Chamar userform de acordo com o valor da célula

 
2024 - VBA & Macros
7 Posts
2 Usuários
0 Reactions
1,336 Visualizações
RSS
 juliov
(@juliov)
Posts: 4
New Member
Topic starter
 

Olá pessoal. tenho uma célula (A1) onde vai ficar um valor que sera atualizado constantemente e automáticamente. Agora vou digitar essa formula em B1 =SE(A1<1,35;0;1).
A partir daí sempre que B1 for igual a 0 vai chamar uma userform e sempre que for igual a 1 vai chamar outra userform. o problema que a célula muda e não está dando certo. somente quando eu clico em B1 e digito 0 ou 1 e dou enter que a userform é chamada. Alguem Pode me ajudar?
segue a macro que usei...

Private Sub Worksheet_change(ByVal Target As Range)
On Error Resume Next
If Target.Address = Range("B1").Address Then
If Range("B1") = "0" Then userform1.Show
End If
If Target.Address = Range("B1").Address Then
If Range("B1") = "1" Then UserForm2.Show
End If
End Sub

 
Postado : 23/12/2014 9:18 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Se a modificação das células por formulas, não dispara o evento change, então pode esperimentar no evento Calculate, assim:

Private Sub Worksheet_Calculate()
If Range("B1") = "0" Then MsgBox userform1.Show
If Range("B1") = "1" Then MsgBox UserForm2.Show
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/12/2014 10:13 pm
 juliov
(@juliov)
Posts: 4
New Member
Topic starter
 

Valeu reinaldo, deu certinho. só apaguei o Msgbox ficando assim

Private Sub Worksheet_Calculate()
If Range("B1") = "0" Then userform1.Show
If Range("B1") = "1" Then UserForm2.Show
End Sub

Tinha umas duas semanas que estava agarrado com isso. Valeu mesmo.

 
Postado : 24/12/2014 11:39 pm
 juliov
(@juliov)
Posts: 4
New Member
Topic starter
 

Poxa, o problema agora é outro. Como a célula atualiza a cada 3 segundos, ela fica chamando essa userform sem parar tipo um loop.
se puder me ajudar de novo eu agradeço.

 
Postado : 25/12/2014 1:58 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Precisaria conhecer a dinâmica de sua planilha.
Porque da atualização constante? o que muda etc...

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/12/2014 8:01 am
 juliov
(@juliov)
Posts: 4
New Member
Topic starter
 

Reinaldo qual o seu email para que eu possa te enviar a planilha?

 
Postado : 10/01/2015 1:54 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Você também pode postar o arquivo aqui no fórum!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/01/2015 6:35 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico