Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro para contar I...
 
Notifications
Clear all

Macro para contar Intervalos

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
603 Visualizações
RSS
 drfrancisc
(@drfrancisc)
Posts: 1
New Member
Topic starter
 

Pessoal ! preciso de uma ajuda, sou novato aqui no forum e no quesito macros. estou tentando fazer uma macro para contar os espaços vazios em uma coluna, ou seja que me de o intervalos entre as células preenchidas e as vazias.
EX:(0) leias-se vazio
a ao …
1ao resl.
0
0 4
0
0
1
0
0
0
0 5
0
1

 
Postado : 06/05/2015 8:58 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tente assim.

Sub AleVBA_15699()
  Dim Rng As Range, Ar As Range
  Set Rng = Range("A2:A" & Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row).SpecialCells(xlBlanks)
  For Each Ar In Rng.Areas
    Ar(1).Offset(-1, 1).Value = Ar.Count
  Next
End Sub

Att

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

 
Postado : 06/05/2015 9:51 am
Forum Jump:
  Tópico Anterior
Próximo Tópico