Home Excel - Dicas Microsoft Excel VBA Excel VBA - Autonumeracao Excel planilha vba autonumeracao incrementa ou decrementa um numero

Excel planilha vba autonumeracao incrementa ou decrementa um numero

E-mail Imprimir PDF

Saberexcel - o Site das Macros

Essas macros do Aplicativo Microsoft Excel VBA, incrementa e decrementa um determinadado número em um célula escolhida, neste exemplo de planilha foi feito para execução da macro manualmente, mas você poderá inserir no Evento Auto_Open do Objeto Workook, ao abrir incrementa mais um número.

Sub Incrementa_autonumeracao()
Dim ValVelho As Integer
Dim ValNovo As String

'retorna o valor corrente (atual)
ValVelho = Sheets("Autonumeracao").Range("A2").Value
ValNovo = Format(ValVelho + 1, "0000")

'insere o novo valor na celula(A2)
Sheets("Autonumeracao").Range("A2").Value = "'" & ValNovo
End Sub


Essa macro decrementa o número na célula (A2)
Sub Decrementa_autonumeracao_manual()
Dim ValVelho As Integer
Dim ValNovo As String

'retorna o valor corrente (atual)
ValVelho = Sheets("Autonumeracao").Range("A2").Value
ValNovo = Format(ValVelho - 1, "0000")

' insere o novo valor na celula(A2)
Sheets("Autonumeracao").Range("A2").Value = "'" & ValNovo
End Sub




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




  Baixe o exemplo de planilha contendo as macros acima
Excel planilha vba autonumeracao incrementa ou decrementa um numero (22.04 kB)

Última atualização em Qua, 10 de Agosto de 2011 08:09  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje1656
mod_vvisit_counterOntem5672
mod_vvisit_counterEsta Semana11787
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês25516
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10448345
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA