Olá pessoal
Como faço em VBA a função CONT.SE
Exemplo
A1 Elefante
A2 Elefante
A3 Girafa
A4 Girafa
A5 Elefante
A6 Elefante
A7 Elefante
A8 Girafa
A9 Girafa
A10 Elefante
E daí fazer aparecer em P3 6 e em Q3 4
Tentei aqui e não consegui, preciso que seja sempre as últimas 10 linhas
Sub Contse()
Dim i As Long
Dim elefante As String
Dim girafa As String
For i = Sheets("Plan1").Cells(Rows.Count, "A").End(xlUp).Row - 10 To Sheets("Plan1").Cells(Rows.Count, "A").End(xlUp).Row
If Plan1.Range("C" & i).Value = "Elefante" Then
elefante = cont.se(Plan1.Range("C" & i).Value = "Elefante")
End If
If Plan1.Range("C" & i).Value = "Girafa" Then
girafa = cont.se(Plan1.Range("C" & i).Value = "Girafa")
End If
Next i
Plan1.Range("P3").Value = elefante
Plan1.Range("Q3").Value = girafa
End Sub
Obrigado
Postado : 15/02/2018 5:10 am