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

Colocar numeração da coluna A em sequecia

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
rodrazevedo
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Qui Out 06, 2016 12:50 pm

Colocar numeração da coluna A em sequecia

Mensagem por rodrazevedo »

Boa tarde,

Estou com dúvidas para conseguir organizar a numeração de uma coluna, preciso que essa coluna esteja com valores numéricos sequenciais.

Fiz uma macro que deleta algumas linhas com campos em branco, e com isso a minha coluna de numerador fica desordenada. Então temos na Sheet Cobertura a coluna "A" a partir da linha 3 com valores misturados 2,4,6,15, etc. Preciso que após a exclusão das linhas com caracteres em branco essa coluna "A" tenha a sequencia 1,2,3.. até o último registro que está em tela.

Poderia me ajudar?

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.


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Colocar numeração da coluna A em sequecia

Mensagem por Mauro Coutinho »

Azevedo, podemos fazer de várias formas, e dependendo de sua aplicação só com formula :

Como diz que a numeração inicia a partir da 3ª linha, você pode usar a formula :
Em A3 coloque : =LIN()-2 o resultado será 1, arraste a formula até a celula desejada e pronto, mesmo que exclua linhas a numeração estará sempre em sequencia.

Se precisa de Macro, uma das possibilidades seria :

Código: Selecionar todos

Sub NumeraLinhas()
    Dim srg As Range
    Dim sUltLin As Long
    Dim sNumeroInicial
           
    sNumeroInicial = 1
    
    sUltLin = Sheets("Plan1").Range("A" & Rows.Count).End(xlUp).Row
           
    Set srg = Range("A3" & ":" & "A" & sUltLin)
            
    For Each x In srg
        x.Value = sNumeroInicial
        sNumeroInicial = sNumeroInicial + 1
    Next

End Sub
[]s


rodrazevedo
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Qui Out 06, 2016 12:50 pm

Re: Colocar numeração da coluna A em sequecia

Mensagem por rodrazevedo »

Muito Obrigado Mauro, a Macro ficou melhor no meu processo.

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.


Responder