Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
COUNTIF
 
Notifications
Clear all

COUNTIF

 
2024 - VBA & Macros
Post Recente por camalmeida 7 anos atrás
8 Posts
4 Usuários
0 Reactions
1,368 Visualizações
RSS
 camalmeida
(@camalmeida)
Posts: 0
New Member
Topic starter
 

Pessoal, bom dia,

Estou tentando fazer uma macro para fazer COUNTIF. O que eu preciso é contar na coluna A quantas vezes aparecem os valores da coluna E, e preciso que esse resultado apareça na coluna F.

Além do mais, a quantidade de valores inseridos na coluna E pelo usuário é variável e os dados começam a partir da linha 3.

Outro ponto é que a macro roda quando o usuário clica num command button.

Minha macro está assim:

Sub contarleasesativos()
Dim x As Double
Dim g As Integer
Dim linhavazia As Long

Sheets("Análise de Duplicidades").Select

linhavazia = Range("E3").End(xlUp).Row + 1

For g = 3 To linhavazia

Range("F" & g).FormulaLocal = "=COUNTIF(A:A;E " & g & ")"

Next g

End Sub

_____

Mas ela nem está rodando o For. Não sei mais o que fazer. Alguém pode me ajudar?

 
Postado : 08/02/2018 6:36 am
 klarc28
(@klarc28)
Posts: 0
New Member
 

Não paga nada para anexar arquivo.

Quando postar código neste fórum, aperte o botão Code.

Talvez também seja necessário mudar esta linha:

linhavazia = Range("E3").End(xlUp).Row + 1

Para:

linhavazia = Range("E3").End(xlUp).Row
 
Postado : 08/02/2018 6:46 am
 camalmeida
(@camalmeida)
Posts: 0
New Member
Topic starter
 

klarc, ainda não foi.. ele não coloca a fórmula na coluna F.. fica tudo vazio.. e se eu faço à mão a fórmula ele calcula normalmente.

Obrigada pela dica, estou começando aqui agora rsrs..

 
Postado : 08/02/2018 7:11 am
 leandroxtr
(@leandroxtr)
Posts: 0
New Member
 

Olá!

Poste a planilha para ajudarmos melhor, amigo!

 
Postado : 08/02/2018 7:16 am
 klarc28
(@klarc28)
Posts: 0
New Member
 
Range("F" & g).FormulaLocal = "=CONT.SE(A:A;E " & g & ")"

Em inglês ficaria assim:

Range("F" & g).Formula = "=COUNTIF(A:A,E " & g & ")"
 
Postado : 08/02/2018 7:23 am
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimente:

Sub contarleasesativos()
 Dim LR As Long
  With Sheets("Análise de Duplicidades")
   LR = .Cells(Rows.Count, 5).End(3).Row
   .Range("F3:F" & LR).Formula = "=COUNTIF(A:A,E3)"
  End With
End Sub
 
Postado : 08/02/2018 7:28 am
 leandroxtr
(@leandroxtr)
Posts: 0
New Member
 

Bom dia!

Veja se é isso!

 
Postado : 08/02/2018 7:29 am
 camalmeida
(@camalmeida)
Posts: 0
New Member
Topic starter
 

OBRIGADA OSVALDO!!!!!!!!!! FOI!!!! RSRSRS obrigada obrigada!

 
Postado : 08/02/2018 8:21 am
Forum Jump:
  Tópico Anterior
Próximo Tópico