none
Variavel com loop RRS feed

  • Pergunta

  • 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

  • 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