none
Variavel com loop RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Filial Usuario Ramal Email
    CBA Fulano 5000 a@bbbb.com.br
    CBA Ciclano 5004 a@bbbb.com.br
    CBA Beltrano 5005 a@bbbb.com.br
    CBA Esner 5006 a@bbbb.com.br

    Como eu posso utilizar a tabela acima, para pegar as variaveis em um loop.

    Exemplo, quero utilizar a variavel C2 e D2, e depois a C3 E D3, e assim por diante ate acabar as linhas.

    Vou utilizar a coluna C, para filtrar em uma outra planilha, e vou utilizar a coluna D para enviar email.

    POrtanto, preciso que isso execute em loop até acabar as linhas.

    Como posso declarar as variaveis e fazer o loop.

    Obrigado.

    terça-feira, 5 de março de 2013 20:30
    |

Respostas

  • Question
    Entrar para Votar
    1
    Entrar para Votar

    Estou considerando que as filiais estão na coluna C. Abaixo segue modelo de laço em células do Excel que costumo usar:

    Sub fExemplo()
    Dim lLin As Long
    Dim lLast As Long
    Dim ws As Worksheet
    Dim sFilial As String
    Dim sUsuário As String
    Dim sEmail As String
    Dim sRamal As String
    
    Set ws = ActiveSheet
    With ws
        lLast = .Cells(.Rows.Count, "C").End(xlUp).Row
        
        'Começa do 2 porque há uma linha de cabeçalho:
        For lLin = 2 To lLast
            sFilial = .Cells(lLin, "C")
            sUsuário = .Cells(lLin, "D")
            sRamal = .Cells(lLin, "E")
            sEmail = .Cells(lLin, "F")
            
            MsgBox "Linha número " & lLin & "." & vbNewLine _
            & "Filial: " & sFilial & vbNewLine _
            & "Usuário: " & sUsuário & vbNewLine _
            & "Ramal: " & sRamal & vbNewLine _
            & "E-mail: " & sEmail _
            , vbInformation

        Next lLin
    End With
        
    
End Sub

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 8 de março de 2013 00:44
    |
    Moderador