Notifications
Clear all

Macro que executa o botão F9 e copia e cola valores

9 Posts
2 Usuários
0 Reactions
1,748 Visualizações
(@smartins)
Posts: 6
Active Member
Topic starter
 

Olá pessoal, tudo bem?

Em algum momento acho que já perguntei isso ... pois bem;

A ideia é que a macro fique 'apertando F9' e quando determinada condição for atendida ela pare de apertar o botão.

Coloquei no anexo +/- a ideia. Me parece bem simples, mas nunca achei uma saída.

Valeu! :)

 
Postado : 17/08/2018 10:46 am
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Tenho uma dúvida:

de que forma o número 2 iria aparecer na célula C12? Alguém iria digita-lo na célula? ou ele iria aparecer de outra forma?

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 17/08/2018 12:16 pm
(@smartins)
Posts: 6
Active Member
Topic starter
 

olá Xlarruda,

Na verdade é na célula C13
Editei! Escrevi errado na planilha :|

 
Postado : 17/08/2018 12:21 pm
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Ah sim blz! Mas, de qualquer forma, esse número 2 iria ser digitado na célula C13?

Ou iria ser colado nela?

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 17/08/2018 12:38 pm
(@smartins)
Posts: 6
Active Member
Topic starter
 

Na verdade ele vai aparecer apertando o F9. O Aleatório é entre 1 - 50, então em algum momento o número 2 vai aparecer lá.

A ideia da macro é que ela fique apertando o f9 até que o número 2 apareça nessa célula. E quando aparecer, ela para de apertar o F9

Não precisa nem copiar e colar. Só parar de apertar o F9, pq aí eu saberia em que momento o número 2 no caso, apareceu

 
Postado : 17/08/2018 12:44 pm
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Entendi.

Segue como você pediu:

Sub Parar_aleatório()
Do
Plan1.Calculate
Loop Until Plan1.Range("C13").value = 2
End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 17/08/2018 12:53 pm
(@smartins)
Posts: 6
Active Member
Topic starter
 

Olá André, obrigado!

É curioso que para essa planilha de exemplo ela funciona, mas quando tento usar em outra planilha ele dà a mensagem de ERRO 424 - Objeto obrigatório
Aí quando eu depuro, altero o nome da planilha na macro, mas ele continua com esse erro apontando para a linha Plan1.Calculate. mesmo quando eu altero o nome "Plan1" para o nome de outra planilha

Sub Parar_aleatório()
Do
Plan1.Calculate
Loop Until Plan1.Range("C13").Value = 2
End Sub

 
Postado : 17/08/2018 2:01 pm
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Entendi.

Tenta Assim:

Sub Parar_aleatório()
Do
ActiveSheet.Calculate
Loop Until ActiveSheet.Range("C13").value = 2
End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 17/08/2018 2:04 pm
(@smartins)
Posts: 6
Active Member
Topic starter
 

Olá André,
Deu certo
Muito obrigado!

 
Postado : 18/08/2018 12:56 pm