Jump to content
Fórum Script Brasil
  • 0

Quebrar linha


juliocsf
 Share

Question

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

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0

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

 

Link to comment
Share on other sites

  • 0

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.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      149.9k
    • Total Posts
      646.8k
×
×
  • Create New...