Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Macro para gerar autonumeração em relatório
-
- Colaborador
- Mensagens: 35
- Registrado em: Ter Jun 29, 2010 2:23 pm
Macro para gerar autonumeração em relató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,
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,
- netocasaroli
- 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
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
-
- Colaborador
- Mensagens: 35
- Registrado em: Ter Jun 29, 2010 2:23 pm
Re: Macro para gerar autonumeração em relató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,
Abs,
- netocasaroli
- 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
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
-
- Colaborador
- Mensagens: 35
- Registrado em: Ter Jun 29, 2010 2:23 pm