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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Colocar numeração da coluna A em sequecia
-
- Acabou de chegar
- Mensagens: 6
- Registrado em: Qui Out 06, 2016 12:50 pm
- Mauro Coutinho
- 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
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 :
[]s
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
-
- Acabou de chegar
- Mensagens: 6
- Registrado em: Qui Out 06, 2016 12:50 pm
Re: Colocar numeração da coluna A em sequecia
Muito Obrigado Mauro, a Macro ficou melhor no meu processo.
Abs
Abs