Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Numerar linhas com ...
 
Notifications
Clear all

Numerar linhas com intervalos

 
2024 - VBA & Macros
Post Recente por Osvaldomp 7 anos atrás
5 Posts
3 Usuários
0 Reactions
857 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia colegas.
Arrumei um código para numerar as linhas da coluna "A" de acordo com o preenchimento da coluna "B".
Só preciso aprimorar esse código para quando houver intervalo em branco coluna "B" inicie novamente a contagem.
Segue exemplo:

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/08/2017 7:22 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Dunguinha,

Bom dia!

Veja se é assim.

Contagem.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 : 03/08/2017 8:14 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Beleza Wagner, era isso mesmo, muito obrigado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/08/2017 8:25 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Dunguinha,

De nada. Por gentileza, vote positivamente clicando na mãozinha existente ao lado da ferramenta CITAR.

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 : 03/08/2017 8:57 am
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Outra solução:

Sub InsereNúmeros()
 Dim Ar As Range
  For Each Ar In Columns("B").SpecialCells(xlConstants).Areas
   Cells(Ar.Row, 1) = 1: Cells(Ar.Row, 1).AutoFill Destination:=Cells(Ar.Row, 1).Resize(Ar.Rows.Count), Type:=xlFillSeries
  Next
End Sub

Osvaldo

 
Postado : 03/08/2017 10:48 am
Forum Jump:
  Tópico Anterior
Próximo Tópico