Quebrar linha

[juliocsf]

Olá, preciso de ajuda com uma macro que criei para selecionar linhas de 2 planilhas diferentes e copia-las para uma terceira planilha para que eu possa comparar os dados, e o meu problema é toda vez que eu executar a macro preciso que a mesma pegue os dados das próximas linhas de baixo das planilhas correspondentes, onde o 'Rows' esta para (3:3), precisa que mude para (4:4) na próxima execução. Segue o código;

Sub Compare()
'
' Compare Macro
'
' Atalho do teclado: Ctrl+i
'
    Sheets("Homologação").Select
    Rows("3:3").Select                         
    Selection.Copy
    Sheets("Teste").Select
    Range("A3").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("TIT").Select
    Rows("3:3").Select
    Selection.Copy
    Sheets("Teste").Select
    Range("A4").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

[rafael_galindo]

Julio, bom dia.

Acho que você precisa criar um loop para ter o que deseja.

Teste este código agora:

Sub Compare()
'
' Compare Macro
'
' Atalho do teclado: Ctrl+i
'

linha = 0

For i = 3 To 6
'neste caso, estamos fazendo um loop, estou dizendo que o mesmo ira começar na linha 3 e ira até a linha 6.
'   Logo, o mesmo ira copiar os dados da linha 3 de ambas as guias e colar, depois, da linha 4, 5 e assim por diante.
'       Você pode alterar os valores de 3 ou 6 da maneira que preferir, caso queira copiar os dados da linha 3 a linha 50, basta deixar "For i = 3 to 50"

     Sheets("Homologação").Select
    Rows(i & ":" & i).Select
    Selection.Copy
    Sheets("Teste").Select
    Range("A" & i + linha).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("TIT").Select
    Rows(i & ":" & i).Select
    Selection.Copy
    Sheets("Teste").Select
    Range("A" & i + linha + 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
    linha = linha + 1
    Next i
End Sub

 

[juliocsf]

Julio, bom dia.

Acho que você precisa criar um loop para ter o que deseja.

Teste este código agora:

Sub Compare()
'
' Compare Macro
'
' Atalho do teclado: Ctrl+i
'

linha = 0

For i = 3 To 6
'neste caso, estamos fazendo um loop, estou dizendo que o mesmo ira começar na linha 3 e ira até a linha 6.
'   Logo, o mesmo ira copiar os dados da linha 3 de ambas as guias e colar, depois, da linha 4, 5 e assim por diante.
'       Você pode alterar os valores de 3 ou 6 da maneira que preferir, caso queira copiar os dados da linha 3 a linha 50, basta deixar "For i = 3 to 50"

     Sheets("Homologação").Select
    Rows(i & ":" & i).Select
    Selection.Copy
    Sheets("Teste").Select
    Range("A" & i + linha).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("TIT").Select
    Rows(i & ":" & i).Select
    Selection.Copy
    Sheets("Teste").Select
    Range("A" & i + linha + 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
    linha = linha + 1
    Next i
End Sub 

Boa tarde Rafael!

Muito obrigado.

[rafael_galindo]

De nada, precisando estamos ae..