• 0
Sign in to follow this  
Alex Miranda

For Com Intervalo

Question

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:

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

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...

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this