Ir ao conteúdo
  • Cadastre-se

Copiar e Colar Valores em Loop


Posts recomendados

Boa tarde a todos!

 

Gostaria muito da ajuda de vocês.

 

Estou com uma barreira no vba, conheco absolutamente nada !!!

 

Preciso copiar dados entre a mesma pasta de trabalho, só que ao final da cópia de cada linha, o arquivo precisa ser salvo com o nome de uma célula especifica.

 

O meu código abaixo é um exemplo de como fiz a cópia, porém preciso incrementá-lo com um loop e parametrizar o "salvar" com esta informação que está em uma célula

 

Sub COPIAR_DADOS()

Sheets("SOX").Range("A2").Copy Destination:=Sheets("Informacoes_Gerais").Range("G6")
Sheets("SOX").Range("BB2").Copy Destination:=Sheets("Informacoes_Gerais").Range("G8")
' Gerencia Resp Sheets("SOX").Range("BB2").Copy Destination:=Sheets("Informacoes_Gerais").Range("G8")
Sheets("SOX").Range("AD2").Copy Destination:=Sheets("Informacoes_Gerais").Range("G12")
Sheets("SOX").Range("AE2").Copy Destination:=Sheets("Informacoes_Gerais").Range("G14")
' Responsável CI Sheets("SOX").Range("AE2").Copy Destination:=Sheets("Informacoes_Gerais").Range("G14")
Sheets("SOX").Range("U2").Copy Destination:=Sheets("Informacoes_Gerais").Range("G18")
Sheets("SOX").Range("Q2").Copy Destination:=Sheets("Informacoes_Gerais").Range("N6")
' Fase Sheets("SOX").Range("Q2").Copy Destination:=Sheets("Informacoes_Gerais").Range("N8")
Sheets("SOX").Range("DW2").Copy Destination:=Sheets("Informacoes_Gerais").Range("N10")
' Gestão Sheets("SOX").Range("DU2").Copy Destination:=Sheets("Informacoes_Gerais").Range("N10")
Sheets("SOX").Range("H2").Copy Destination:=Sheets("Informacoes_Gerais").Range("N14")
Sheets("SOX").Range("T2").Copy Destination:=Sheets("Informacoes_Gerais").Range("N16")
Sheets("SOX").Range("X2").Copy Destination:=Sheets("Informacoes_Gerais").Range("N18")
Sheets("SOX").Range("M2").Copy Destination:=Sheets("Informacoes_Gerais").Range("D39")
' cONCAT Sheets("SOX").Range("CI2 + CV2").Copy Destination:=Sheets("Informacoes_Gerais").Range("D42")
' Sistemas Sheets("SOX").Range("X2").Copy Destination:=Sheets("Informacoes_Gerais").Range("D46")
' Fatores Relacionados Sheets("SOX").Range("X2").Copy Destination:=Sheets("Informacoes_Gerais").Range("D46")
' Procedimentos de Tetes Sheets("SOX").Range("X2").Copy Destination:=Sheets("Informacoes_Gerais").Range("D46")

Application.CutCopyMode = False

ChDir "C:\DAS\OI"
    ActiveWorkbook.SaveAs Filename:="C:\DAS\OI\"&"A2".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub
 

As células de informações gerais são estaticas, porém as células SOX, vão variar até o numero 4000, ou seja para cada linha que o vba copiar e colar, ele salvará o arquivo e pulará para próxima colará e ira salvar, assim sucessivamente até a linha 4000, alguém consegue me auxiliar nesse loop e salvar o arquivo com a info da célula A2?

 

Obrigado

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...