Notifications
Clear all

Como ficaria essa fórmula no VBA?

6 Posts
4 Usuários
0 Reactions
1,290 Visualizações
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
Topic starter
 

Ela conta quantos valores diferentes de vazio existem na coluna A.
Queria inserir ela em um código vba, como ficaria?

=CONT.SE(A:A;"<>")

desde já, agradeço.

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 09/10/2017 7:23 am
gfranco
(@wzxnet7)
Posts: 653
Honorable Member
 

Bom dia.
Eu faria assim:

Sub CONTAR()

Dim X As Long
Dim WKF As WorksheetFunction

Set WKF = Application.WorksheetFunction

X = WKF.CountIf(Planilha1.Range("a:a"), "<>")

End Sub

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 09/10/2017 7:42 am
leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 

Bom dia!

Tente isso e dê o FEEDBACK

Application.Worksheetfunction.countif(Sheets("Planilha1").Range("A:A");"<>")

OBS: para calcular o número de células vazias dentro de um intervalo não seria melhor usar Cont.valores?

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 09/10/2017 7:44 am
leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 

Pode usar também:

Application.WorksheetFunction.Count(Range("A:A"))

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 09/10/2017 7:48 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

xlarruda,

Bom dia!

Segue mais uma sugestão.

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 : 09/10/2017 8:13 am
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
Topic starter
 

Pessoal muito obrigado pela ajuda, gostei de todas as respostas.

Obrigado a todos!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 09/10/2017 8:37 am