Este fórum está sendo desativado

[LeoHenrique]

Tudo bem pessoal !!
Preciso de uma ajuda... tenho um loop (conforme abaixo) ele importa os clientes do representante de outra aba, mas como faço para que pule duas linhas, ao invés de aparecer na sequência ?

Segue código...
ultimaLinha = Folha2.Cells(Rows.Count, "d").End(xlUp).Row
lin = 5
For i = 4 To ultimaLinha
If Folha2.Cells(i, 4) = Range("J2") Then
Folha1.Cells(lin, 4) = Folha2.Cells(i, 3)
lin = lin + 1
End If
Next

Desde já agradeço quem puder ajudar !!
Leandro Moreira

[osvaldomp]

Olá, Leandro.

Veja se atende. Acrescente a parte em vermelho, conforme abaixo.

For i = 4 To ultimaLinha Step 2

[LeoHenrique]

Grande Osvaldo !! Muito obrigado pela ajuda novamente !!

Teste o código, mas ao invés de pular no resultado, ele está pulando na base das informações. Segue em anexo a planilha, com destaque em amarelo no local onde pula duas linhas.

Mais uma vez, obrigado Osvaldo !!

Leandro Moreira - leandro.manhani@gmail.com

[osvaldomp]

Olá, Leandro.

É que você pediu para alterar o VBA Loop, e o Loop clássico que existe no seu código é o For ... Next, mas me parece que você quer alterar o incremento da variável lin. Experimente alterar conforme em vermelho abaixo.
lin = lin + 1 ~~~> altere para lin = lin + 2 ou ~~~> lin = lin + 3

[LeoHenrique]

É isso mesmo !!! Funcionou perfeito !!

Muito obrigado, de novo Osvaldo !!
Leandro Moreira - leandro.manhani@gmail.com