Scheila Dayane

Obrigada Osvaldo, agora deu certo, um "ponto" faz uma grande diferença. Valeu pela força, me adiantou muito o trabalho.

Osvaldo, Bom dia! Grata pela ajuda. Disponibilizo os arquivos em "teste", alterei na macro o nome para que funcione. Veja os exemplos que destaquei nas setas "vermelhas" nas planilhas. teste.zip

Osvaldo, Envio em anexo o detalhe de cada planilha. A planilha wsD gera os pdfs com base na informação da planilha wsO na aba "CONTRATOS". Preciso que a Range ("i1") da planilha wsD seja preenchida com a informação da cél ("A3") da planilha wsO em loop. Consegue entender? Pois agora tá pegando a cél ("A3") da planilha wsD e fazendo loop. o

Obrigada, Funcionou, mais está copiando da planilha errada Está parte esta mandando copiar da wsD e preciso que copie da wsO e cole na Range("I1") da planilha wsD. Troquei mais não funcionou. For lin = 3 To .Cells(Rows.Count, 1).End(3).Row Cells(lin, "A").Copy wsD.Range("I1") nomeArq = .Cells(lin, "B") Set wsO = Workbooks("GERENCIAL COOLERS PLACEMENT AT POS_OFF PREMISE.xlsm").Sheets("CONTRATOS") Set wsD = Workbooks("CONTRATO.xlsb").Sheets("COMODATO")

Olá Pessoal, Bom dia! Criei uma macro que gera e salva os arquivos num loop, a aba CONTRATOS dentro da planilha GERENCIAL COOLERS PLACEMENT AT POS_OFF PREMISE.xlsm chama o nome do arquivo pra salvar na Range ("B") . Porém os arquivos estão sendo salvos sobrepondo e sempre com o nome "0". Já mexi de várias formas, mas nada faz ele salvar 1 aquivo por vez com o nome correto, acredito que o erro esteja na variável, alguém consegue me dar um help. A planilha onde consta o modelo contrato é: Z:\PROMOCIONAL\PROMOCIONAL CONTRATOS/CONTRATO.xlsb A planilha com a base onde gera os arquivos em massa e renomeia é: Z:\PROMOCIONAL\PROMOCIONAL CONTRATOS/GERENCIAL COOLERS PLACEMENT AT POS_OFF PREMISE.xlsm ________________________ Dim lin As Long lin = 3 Dim nomeArq As Long nomeArq = Range("B" & lin) Do While Not IsEmpty(Range("A" & lin)) Windows("GERENCIAL COOLERS PLACEMENT AT POS_OFF PREMISE.xlsm").Activate Sheets("CONTRATOS").Select Range("A" & lin).Select Selection.Copy Windows("CONTRATO.xlsb").Activate Range("I1:K1").Select ActiveSheet.Paste Application.CutCopyMode = False ChDir "Z:\PROMOCIONAL\PROMOCIONAL CONTRATOS\CONTRATOS" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "Z:\PROMOCIONAL\PROMOCIONAL CONTRATOS\CONTRATOS\" & nomeArq, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True lin = lin + 1 Windows("GERENCIAL COOLERS PLACEMENT AT POS_OFF PREMISE.xlsm").Activate Loop End Sub ________________________