Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Numeração automátic...
 
Notifications
Clear all

Numeração automática no vba

 
2024 - VBA & Macros
Post Recente por Osvaldomp 7 anos atrás
10 Posts
4 Usuários
0 Reactions
2,105 Visualizações
RSS
 ArthurS
(@arthurs)
Posts: 40
Eminent Member
Topic starter
 

Boa noite galera

Meu caso é o seguinte, estou criando uma macro, para gerar um relatório onde o número de linhas pode varia.
As células estão mescladas de duas em duas linhas.

Fiz a uma rotina, preencho a linha B3 que está mesclada com as B4 e inseri o número 1 e a linha B5 que está mesclada com as B6 e inseri o número 2, faço uma seleção e puxo até a última linha preenchida, gerando um sequencia nas próximas linhas 3,4,5,6...

Segue o macro gravada

Sub numeração()

    Range("B3:B4").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("B5:B6").Select
    ActiveCell.FormulaR1C1 = "2"
    Selection.AutoFill Destination:=Range("B3:B844"), Type:=xlFillDefault
    Range("B3:B844").Select
End Sub

Quando gero o relatório a coluna A e demais colunas já aparece informações, exceto a coluna B que irei preencher com número sequencial.
Porem como falei a última linha nem sempre vai ser a B844, ela pode varia tanto para mais quanto para menos de acordo com o relatório a ser gerado. Como posso resolver isso?

 
Postado : 24/10/2017 4:10 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

ArthurS,

Boa noite!

Anexe seu arquivo.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 24/10/2017 4:51 pm
 ArthurS
(@arthurs)
Posts: 40
Eminent Member
Topic starter
 

Como neste exemplo em anexo, a planilha começa a numeração no b2 e vai até b62 porem a última linha pode variar para 1000, 1550 não existe número fixo para a última linha.

 
Postado : 27/10/2017 11:51 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

ArthurS,

Baixei seu arquivo, todavia, o mesmo encontra-se zerado.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 27/10/2017 2:36 pm
 ArthurS
(@arthurs)
Posts: 40
Eminent Member
Topic starter
 

Desculpa, postei o errado. Agora é o exemplo correto!

 
Postado : 27/10/2017 3:36 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

ArthurS,

Boa tarde!

Desculpe pela demora. Estive muito ocupado esses dias. Fiz de uma forma que você pode executar o seu código independente da quantidade de linhas que tenha. Veja meus comentários no código que entenderá.

teste3.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 31/10/2017 1:52 pm
 ArthurS
(@arthurs)
Posts: 40
Eminent Member
Topic starter
 

Boa noite!
Eu que peço desculpa agora por não responder antes. rs
Obrigado pela resposta, porem fui tentar rodar a macro criada e está dando erro.

 
Postado : 07/11/2017 5:27 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Qual erro?

No arquivo modelo ou no original?

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 08/11/2017 5:41 pm
 ArthurS
(@arthurs)
Posts: 40
Eminent Member
Topic starter
 

Boa Tarde.
No arquivo que você enviou, ele trava na linha " Selection.AutoFill Destination:=Range("B3:B" & UltimaLinha), Type:=xlFillDefault"

Obrigado!

 
Postado : 22/11/2017 12:50 pm
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 
Sub NumeraçãoV2()
 Range("B3").Value = 1
 Range("B3:B4").AutoFill Destination:=Range("B3:B" & Cells(Rows.Count, "C").End(3).Row + 1), Type:=xlFillSeries
End Sub

Osvaldo

 
Postado : 23/11/2017 6:45 am
Forum Jump:
  Tópico Anterior
Próximo Tópico