Contar células pree...
 
Notifications
Clear all

[Resolvido] Contar células preenchidas após intervalo


Dunguinha
(@dunguinha)
Eminent Member Registered
Entrou: 2 anos atrás
Posts: 47
Topic starter  

Boa tarde.

Estou tentando um código para efetuar contagem das linhas preenchidas após uma célula vazia informada.

No exemplo detalho melhor.


ResponderCitar (Quote)
EdsonBR
(@edsonbr)
Prominent Member Moderator
Entrou: 5 anos atrás
Posts: 760
 

Boa tarde, @dunguinha

Private Sub CommandButton1_Click()
 MsgBox Title:="CONTAGEM DE VALORES", _
        Prompt:="Contagem de não vazias coluna A, linhas " & [C1].Value & " em diante: " & _
                 Application.CountA(Range(Cells([C1].Value, "A"), Cells(Rows.Count, "A"))), _
        Buttons:=vbOKOnly
End Sub


Dunguinha curtiu
ResponderCitar (Quote)
Dunguinha
(@dunguinha)
Eminent Member Registered
Entrou: 2 anos atrás
Posts: 47
Topic starter  

Ficou ótimo Edson. Obrigado.

 


ResponderCitar (Quote)
Dunguinha
(@dunguinha)
Eminent Member Registered
Entrou: 2 anos atrás
Posts: 47
Topic starter  

Amigo Edson, pintou outra necessidade.

Precisava que contasse as linhas em negrito e as normais separadamente.

 

Este post foi modificado 2 semanas atrás por Dunguinha

ResponderCitar (Quote)
Dunguinha
(@dunguinha)
Eminent Member Registered
Entrou: 2 anos atrás
Posts: 47
Topic starter  

Da para em vez de contar tudo, contar só se estiver em negrito?


ResponderCitar (Quote)
EdsonBR
(@edsonbr)
Prominent Member Moderator
Entrou: 5 anos atrás
Posts: 760
 
Private Sub CommandButton1_Click()
   Dim contTotal As Long, contNegrito As Long, c As Range
   For Each c In Range(Cells([C1].Value, "A"), Cells(Rows.Count, "A").End(xlUp))
       contTotal = contTotal - (c <> "")
       contNegrito = contNegrito + (c <> "") * (c.Font.Bold)
   Next c
   MsgBox Title:="CONTAGEM DE VALORES", _
          Prompt:="Contagem de não vazias coluna A, linhas " & [C1].Value & " em diante: " & Chr(13) & _
                   "Todas: " & contTotal & Chr(13) & _
                   "Negrito: " & contNegrito, _
          Buttons:=vbOKOnly
End Sub


Dunguinha curtiu
ResponderCitar (Quote)
Dunguinha
(@dunguinha)
Eminent Member Registered
Entrou: 2 anos atrás
Posts: 47
Topic starter  

Obrigado mais uma vez Edson.


ResponderCitar (Quote)