Botão para gerar contador númerico (VBA)

rafabertram · 13 de abril de 2015

Boa Tarde

Gostaria de uma ajuda para criar um botão para atualizar a VBA abaixo:

Sub ApertandoF9()
Plan19.Range("B1") = Plan19.Range("B1") + 1

If [s1] > [s4] Then [C4].Resize(, 17).Value = [C1].Resize(, 17).Value

End Sub

Quero criar um botão para iniciar a sequencia e outro para parar a contagem (parecido com um cronograma), hoje utilizo a uma macro para atualizar a contagem...

Desde já agradeço,

rafabertram · 20 de maio de 2015

Boa Noite

Gostaria de uma ajuda para resolver essa dúvida.

Desde já agradeço,

21 de maio de 2015

Gostaria de ajudar mas a dificuldade (ou a impossibilidade) é entender o que você está querendo aqui.

Gostaria de uma ajuda para criar um botão

Para criar um botão na planilha clique no menu Desenvolvedor / Iniciar / clique em um dos botões e crie o botão... é isso?

para atualizar a VBA abaixo:

VBA é a linguagem utilizada para escrever códigos para macros. Eu suponho que somente o pessoal da Microsoft possa atender ao seu pedido de atualização. Sugestão, ligue direto para o celular do Bill Gates.

Sub ApertandoF9()
Plan19.Range("B1") = Plan19.Range("B1") + 1

If [s1] > [s4] Then [C4].Resize(, 17).Value = [C1].Resize(, 17).Value

End Sub

Este código acima adiciona 1 ao valor que estiver em "B1" e copia/cola um intervalo. O que mais você deseja que ele faça?

Quero criar um botão

Veja acima.

para iniciar a sequencia

Que sequência?

e outro para parar a contagem

Que contagem?

(parecido com um cronograma)

O que se parece com cronograma?

, hoje utilizo a uma macro para atualizar a contagem...

Que contagem?

Sugestão, disponibilize uma amostra do seu arquivo com alguns dados e com o resultado esperado.

rafabertram · 5 de junho de 2015

Boa Tarde

Anexei a planilha que preciso gerar a sequencia...

Desde já agradeço,

Sequencia Numerica Automatica.rar

5 de junho de 2015

Instale os códigos abaixo em um módulo comum (menu Inserir / Módulo), não em módulo de planilha como está no seu arquivo, e associe o botão 'iniciar' ao código AdicionaUm e o botão 'parar' ao código EncerrarAdicionaUm.

Dim stp As BooleanSub AdicionaUm() Dim k As Long stp = False  For k = 1 To 10000   DoEvents   [B1] = [B1] + 1   If stp Then Exit Sub  Next kEnd SubSub EncerrarAdicionaUm() stp = TrueEnd Sub

curiosidade - qual a aplicação para esses códigos?

obs.

1. coloquei um 'loop' que, se não for encerrada a execução do código, vai repetir a adição de uma unidade a 'B1' até o limite de 10.000 vezes; é necessário impor um limite para não incorrer em 'loop' infinito; altere o limite se quiser.

2. melhor título para este tópico seria 'Macro para encerrar outra macro'