Ir para conteúdo
Fórum Script Brasil
  • 0

Quebrar linha


juliocsf

Pergunta

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 para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...