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