Este fórum está sendo desativado

[MMIQUETA]

Amigos preciso de uma ajuda

Estou com a seguinte linha de comando:

'Única Linha
'Atribuição de Valores
    contato = Range ("B3").Value
    msg = Range ("C3").Value
    arquivo = Range ("D3").Value

Neste formato elas fazem todo o comando usando como referencias os valores de B3, C3 e D3, e está funciona corretamente.

Seguindo para fazer o loop mudei as linhas de comando para:

'Varias Linhas
'Atribuição de Valores
linha = 2
    contato = Cells(linha + 1, 2).Value
    msg = Cells(linha + 1, 3).Value
    arquivo = Cells(linha + 1, 4).Value

Nesse formato eu gostaria que começasse com os valores de B3, C3 e D3 e fossem passando automaticamente para B4, C4 e D4 e logo após para B5, C5 e D5 e assim sucessivamente.

O loop funcionou, mas ele continuou usando somente os valores de de B3, C3 e D3 em cada loop. 

O que fiz de errado será????

Quem puder ajudar agradeço.

Marcio Anderson

[osvaldomp]

Olá, @MMIQUETA .

Experimente:

Código: Selecionar todos

Sub TesteComLoop()
 Dim linha As Long, contato As String, msg As String, arquivo As String
  For linha = 3 To 10
   contato = Cells(linha, 2).Value
   msg = Cells(linha, 3).Value
   arquivo = Cells(linha, 4).Value
   Debug.Print contato, msg, arquivo
  Next linha
End Sub

[MMIQUETA]

Osvaldo obrigado pela resposta.

Testei e não funcionou, fez exatamente a mesma coisa, usou os dados de B3, C3 e D3 e todos os loops, exatamente igual a situação anterior.

Obrigado da mesma forma.

[osvaldomp]

Você poderia disponibilizar uma amostra do seu arquivo Excel com alguns dados e com o código que passei instalado ?

Coloque também na planilha o resultado do código que passei e o resultado desejado.

[MMIQUETA]

Olá Osvaldo,

Agora com mais calma verifiquei o que tinha feito de errado ontem, e suas dicas foram ÓTIMAS... revi o código e deu certinho tudo o que precisava.

"MUITO OBRIGADO"