MACRO PARA CÉLULA A1 FAZER CONTAGEM DE 1 A 10

JSILVA 23/07/2015 17:08:34
#449168
Olá pessoal, preciso da ajuda de vocês, na minha planilha vou elaborar uma dinâmica, onde preciso que , no acionamento de um botão a célula A1 fique em uma contagem de 1 a 10 e fim a ação da macro.

jsilva
KERPLUNK 23/07/2015 22:54:52
#449173 Resposta escolhida
Molezinha:

Sub conta()

For i% = 1 To 10
        
    Sheets(1).Cells(1, 1).Value = i%
    hora = Now
    Do While DateDiff([Ô]s[Ô], hora, Now) <= 1
        DoEvents
    Loop
Next i%

End Sub
JSILVA 24/07/2015 09:46:08
#449180
KERPLUNK

Bom dia, obrigado por me atender, deu certo, mas tive que mudar meu projeto, o que eu preciso e que na célula A1, a macro após acionada fique contando na escala de -10 a 10 e depois ao contrario 10 a -10, ficando fazendo o loop até que um outro botão seja acionado para parar.
Ex.:-10, -9, -8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10

Meu objetivo e fazer uma animação gráfica, por isso e que eu preciso esta contagem nesta escala.

jsilva
KERPLUNK 24/07/2015 16:01:11
#449205
Simplesmente altere os parâmetros do for:

Sub conta()

For i% = -10 To 10
        
    Sheets(1).Cells(1, 1).Value = i%
    hora = Now
    Do While DateDiff([Ô]s[Ô], hora, Now) <= 1
        DoEvents
    Loop
Next i%

End Sub


Antes de simplesmente copiar e colar, que tal entender o que está ali? Não é tão difícil...
Tópico encerrado , respostas não são mais permitidas
Voltar