Comparando Valores Das Celulas

[Zeroton]

Opa, galera, tudo bom?

Eu to começando agora em vba, e tava querendo fazer umas comparações nas células

Eu queria o seguinte:

que depois que inicia a function, ele faça uma comparação com as colunas b e c, e na e retorne um valor

eu já comecei a montar o prog ele está assim

Private Sub Calcular_Click()

With ActiveSheet

Dim tc As String

Dim I, ttc, m1 As String

tc = "=count(a3:a200)"

.Range("F5").Value = tc

ttc = Range("f5").Value

m1 = "ttc + 3"

For I = 3 To m1

If Cells(I, "B").Value > Cells(I, "C").Value Then

Cells(I, "E").Value = "quente"

End If

Next I

For I = 3 To m1

Cells(I, "E").Value = "Frio"

Next I

End With

End Sub

mas sempre está retornando erro

queria uma ajuda de vocês pra montar isso corretamente

[RenatoMejias]

Veja isso:

Dim I, ttc, m1 As String

For I = 3 To m1

m1 é uma string, você precisa estar usando um tipo de variável numérico.

[Zeroton]

Valeu!!