For Com Intervalo

[Alex Miranda]

Quero fazer um For com Intervalo

So que estou em duvida como vou fazer com o intervalo

a1 ate a10 Exemplo sendo que o meu laco tem que

ir de 1 ate 10 so que Preciso testar os valores que eu passei dentro

das celulas

Function posicao(inicial, final)

Dim qtde

Dim I

inicial = 1

While inicial < final

If (inicial = 1) Or (final = 1) Then

qtde = qtde + 1

End If

Wend

End Function

:ph34r:

[RenatoMejias]

Não sei se entendi bem sua dúvida, mas veja um código que fiz uma vez para verificar as notas vermelhas em um intervalo de células.

Sub NotasVemelhas()
    Dim i, cont As Integer
    Dim nome(36), Texto As String
    cont = 0
    For i = 3 To 36
        If Range("G" & i).Value < 5 Then
            Range("G" & i).Font.ColorIndex = 3
            cont = cont + 1
            nome(i) = Range("f" & i).Value
        Else
            Range("G" & i).Font.ColorIndex = 5
        End If
    Next
    For i = 1 To 36
        If Not nome(i) = "" Then
            Texto = MsgBox(nome(i) & " tirou nota abaixo de 5", vbCritical, "Por Mejias")
        End If
    Next
End Sub

Qualquer coisa poste novamente...

[Graymalkin]

Use a propriedade Cells do seu objeto Sheet.

Abraços,

Graymalkin