Celso Silvério
Mensagens : 1
Data de inscrição : 05/06/2015
 | | Assunto: Macro para gerar autonumeração em relatório Sex Jun 05, 2015 5:51 pm | |
| Olá pessoal do fórum,
Sou novo aqui no fórum e 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, | |
|
EdivanCabral
Mensagens : 4
Data de inscrição : 03/11/2015
| | Assunto: Re: Macro para gerar autonumeração em relatório Ter Nov 03, 2015 6:42 pm | |
| - Celso Silvério escreveu:
- Olá pessoal do fórum,
Sou novo aqui no fórum e 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, Olha não entendi muito bem, mas vamos lá, no caso você quer numerar sequencialmente na coluna "A" somente onde na coluna "B" houver informações? Se for isso use essa macro: Sub SEQUENCIAR()
Dim LIN, CONTADOR As Integer
LIN = 2
CONTADOR = 1
Do Until LIN > 53
If Sheets("NOME_SUA_PLANILHA").Cells(LIN, 2) <> "" Then
Sheets("NOME_SUA_PLANILHA").Cells(LIN, 1) = CONTADOR
CONTADOR = CONTADOR + 1
End If
LIN = LIN + 1
Loop
End Sub
HÁ E SE TIVER DE BOBEIRA VISITE MEU BLOG: programacaopassoapasso.wordpress.com | |
|
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Macro para gerar autonumeração em relatório Sex Nov 06, 2015 6:08 pm | |
| Boa tarde!! - Código:
-
Sub AleVBA_4244()
Dim LIN, CONTADOR As Integer
Dim lr As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Plan1")
lr = ws.UsedRange.Rows(ws.UsedRange.Rows.Count).Row
LIN = 2
CONTADOR = 1
Do Until LIN > lr
If ws.Cells(LIN, 2) <> "" Then
ws.Cells(LIN, 1) = CONTADOR
CONTADOR = CONTADOR + 1
End If
LIN = LIN + 1
Loop
End Sub Além da resposta anterior, veja também: http://usuariosdoexcel.forumeiros.com/t136-auto-numeracao http://usuariosdoexcel.forumeiros.com/t165-auto-numeracao-ii Att | |
|
Conteúdo patrocinado
| | Assunto: Re: Macro para gerar autonumeração em relatório | |
| |
|
