Milton Amorim Filho

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

Boa tarde Pessoal. Tudo beleza? Sou iniciante em vba e precisaria muito da ajuda dos senhores(as). Estou precisando de uma rotina que faça o seguinte: Leia a primeira linha de uma planilha x e cole as infos na planilha y e respeite o range e salve o arquivo na sequencia da rotina, a partir do nome de uma célula específica: Ou seja, após copiar e colar os valores da primeira linha. Salvará o arquivo com o nome da célula A2, por exemplo, e iniciará o processo de copiar e colar na proxima linha. Fara isso até a linha 3789, abaixo coloquei um código que eu monte copiando e colando os valores de uma unica célula e, apenas, da primeira linha e salvando na sequencia. Eu preciso que esse salvar, pegue também o valor da celula A2. Sub Teste() ' ' Teste Macro Range("A2").Select Selection.Copy Sheets("Informacoes_Gerais").Select Range("G6").Select ActiveSheet.Paste Application.CutCopyMode = False ChDir "C:\DAS\OI" ActiveWorkbook.SaveAs Filename:="C:\DAS\OI\teste1.xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub Poderia, humildemente, ajudar-me Absss