Pra gerar um contador pode ser assim:
Supondo o Contador em A1 e data em D1
Sub contador()
range("A1").value = range("A1").value
range("A1").value =range("A1").value + 1
range("D1").value = date
end sub
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Postado : 24/01/2016 4:41 pm