usando CON.SE no vba

Question

Galera é o seguinte não consigo que que o VBA retorno  o valor calculado pelo CONT.SE... olha como esta o código:

Sub Tabela()

num = Cells(7, 7)

num = num + 1

CONT = 0

menorE = Cells(6, 4)

ic = Cells(10, 7)

finalrow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To num

CONT = CONT + 1

Cells(i, 10).Value = CONT

Cells(i, 11).Value = menorE

Cells(i, 12).Value = "<"

menorE = menorE + ic

Cells(i, 13).Value = menorE

With Sheets("Plan1")

conttotal = WorksheetFunction.CountIf(.Range("A:A"), "<menorE") '<--------Nessa parte quando coloco um numero ele funciona, mas com a                                                                                                             variavel ele retorna o valor 0;

Cells(i, 14).Value = conttotal

End With

Next i

End Sub

Se alguém souber me ajudar fico grato!! Grande Abraço

Answer 1

Deu certo aqui foi só colocar assim:

With Sheets("Plan1")

conttotal = WorksheetFunction.CountIf(.Range("A:A"), "<" & menorE)

Cells(i, 14).Value = conttotal

End With

abraçoo

Answer 2

Olá Túlio,

Para maiores informações sobre questões utilizando vba, sugiro que poste sua dúvida no fórum específico sobre vba clicando no link abaixo:

http://social.msdn.microsoft.com/Forums/pt-br/vbapt/threads

Espero ter ajudado.

Até mais!!!