Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Macro para gerar autonumeração em relatório

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Celso Silvério



Mensagens : 1
Data de inscrição : 05/06/2015

MensagemAssunto: 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,
Voltar ao Topo Ir em baixo
Ver perfil do usuário
EdivanCabral



Mensagens : 4
Data de inscrição : 03/11/2015

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Macro para gerar autonumeração em relatório   Hoje à(s) 10:14 pm

Voltar ao Topo Ir em baixo
 
Macro para gerar autonumeração em relatório
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Página html para gerar vip
» Como criar um .APK para Android
» [Extensão e código em gml]Crypt & Decrypt
» Como valido cpf e cnpj em vba no access?
» Macro para exportar para o word

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: