Contar linha preenchidas em intervalo cheio de linhas em branco com macro.

[edcronos]

Qual a maneira mais fácil e rapida de contar a quantidade de linhas preenchidas em um intervalo cheio de linhas em branco?

 

com VBA

 

01 BBBBBBBB<-

02 BBBBBBBB<-

03

04 BBBBBBBB <-

05

06

07 BBBBBBBB<-

08

09 BBBBBBBB<-

10 BBBBBBBB <-  contar somente as preenchida

 

[zinhovba]

Bopm dia!!!

 

Já tentou assim...?

Sub ZinhoVBA()n = Worksheets("Plan1").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).CountMsgBox "Foram contadas " & n & " Linhas"End Sub

[edcronos]

 

Bopm dia!!!

 

Já tentou assim...?

Sub ZinhoVBA()n = Worksheets("Plan1").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).CountMsgBox "Foram contadas " & n & " Linhas"End Sub

ainda não, sou novo nisso e só aprendi aquilo que precisei usar, e a maioria já esqueci , vou testar aqui.

Edit:

Desculpe a falta de educação, Bom dia "quase boa tarde" para você também.

 

Edit2: Funcionando perfeito

 

Linc = Worksheets(Nome_Planilha).Range("GO" & PLin, "GO" & 6000).Cells.SpecialCells(xlCellTypeConstants).Count