Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Macro para gerar autonumeração em relatório

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Celso Silvério
Colaborador
Colaborador
Mensagens: 35
Registrado em: Ter Jun 29, 2010 2:23 pm

Macro para gerar autonumeração em relatório

Mensagem por Celso Silvério »

Olá pessoal do fórum,
Estou precisando de uma macro para autonumerar as células da coluna "A" de uma planilha desde que as células da coluna "B" estiver preenchida.
Exemplo: estão preenchidas as células de "B2:B50"; então preciso da macro para autonumerar em sequência as células de "A2:A50". Obs: não pode ser fórmulas nas células, tem que ser macro.

Abs,


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
netocasaroli
Consultor
Consultor
Mensagens: 219
Registrado em: Seg Mai 11, 2015 5:24 pm
Localização: Londrina-PR

Re: Macro para gerar autonumeração em relatório

Mensagem por netocasaroli »

Você não foi muito específico acerca da numeração. Segue uma opção onde a macro usa o número da linha para numerar:

Código: Selecionar todos

Sub AutoNumeracao()

    Dim Intervalo As Range, Celula As Range
    
    Set Intervalo = Range("B2:B50")
    
    For Each Celula In Intervalo
        If Not IsEmpty(Celula) Then
            Celula.Offset(0, -1).Value = Celula.Row
        End If
    Next Celula
    
End Sub


Celso Silvério
Colaborador
Colaborador
Mensagens: 35
Registrado em: Ter Jun 29, 2010 2:23 pm

Re: Macro para gerar autonumeração em relatório

Mensagem por Celso Silvério »

Olá meu caro Neto é quase isso. Somente gostaria que começasse com o nº 0 na célula A1 o restante está perfeito.

Abs,


Avatar do usuário
netocasaroli
Consultor
Consultor
Mensagens: 219
Registrado em: Seg Mai 11, 2015 5:24 pm
Localização: Londrina-PR

Re: Macro para gerar autonumeração em relatório

Mensagem por netocasaroli »

Vê se é isso:

Código: Selecionar todos

Sub AutoNumeracao()

    Dim Intervalo As Range, Celula As Range
    
    Set Intervalo = Range("B1:B50")
    
    For Each Celula In Intervalo
        If Not IsEmpty(Celula) Then
            Celula.Offset(0, -1).Value = Celula.Row - 1
        End If
    Next Celula
    
End Sub


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Celso Silvério
Colaborador
Colaborador
Mensagens: 35
Registrado em: Ter Jun 29, 2010 2:23 pm

Re: Macro para gerar autonumeração em relatório [Resolvido]

Mensagem por Celso Silvério »

Agora perfeito.
Muito obrigado...


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder