Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

A área de Remoção de Malwares está aberta na Comunidade BABOO. LEIA AQUI

Ir para conteúdo
mfp2010

Macro de copiar e colar dentro da planilha(loop)

Mensagem Recomendada

Assim:

Sub ReplicaCódigosAjustaLinhasGeraPDF()
 Dim LR As Long, i As Long, nome As String
  ActiveSheet.AutoFilterMode = False
  LR = Cells(Rows.Count, 12).End(3).Row
   For i = 7 To LR
    [J7] = Cells(i, 12)
   
Rows("13:113").EntireRow.AutoFit
    ActiveSheet.Range("A12:J12").AutoFilter Field:=1, Criteria1:=0
    nome = ThisWorkbook.Path & "\Consistência" & "_" & ActiveSheet.Range("MES").Value & " - " & ActiveSheet.Range("Nome_Concessionaria").Value & ".pdf"
    nome = Replace(nome, "/", "-")
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    ActiveSheet.AutoFilterMode = False
   Next i
End Sub

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
23 horas atrás, osvaldomp disse:

Assim:

Sub ReplicaCódigosAjustaLinhasGeraPDF()
 Dim LR As Long, i As Long, nome As String
  ActiveSheet.AutoFilterMode = False
  LR = Cells(Rows.Count, 12).End(3).Row
   For i = 7 To LR
    [J7] = Cells(i, 12)
   
Rows("13:113").EntireRow.AutoFit
    ActiveSheet.Range("A12:J12").AutoFilter Field:=1, Criteria1:=0
    nome = ThisWorkbook.Path & "\Consistência" & "_" & ActiveSheet.Range("MES").Value & " - " & ActiveSheet.Range("Nome_Concessionaria").Value & ".pdf"
    nome = Replace(nome, "/", "-")
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    ActiveSheet.AutoFilterMode = False
   Next i
End Sub

 

Boa tarde Osvaldo, o filtro dos valores zerados da coluna A da aba Justificativa me parece q não está correto, ao gerar o arquivo, a macro acaba pegando contas que não deveriam ser pegas, a pagina 2 dos pdfs ficam com a mesma informação vou te enviar 2 pdf como exemplo e encaminhar o link para o download da planilha original.

Link: https://drive.google.com/open?id=16hUTkRMipWXdBKI_4BilNaCNVnL-eOaf

Mais uma vez, obrigado.

Consistência_Dezembro 2018 - DESTAQUE POA.pdf

Consistência_Dezembro 2018 - APJ OURINHOS.pdf

Compartilhar este post


Link para o post
Compartilhar em outros sites

Amigo, o código que passei não interfere na página 2 e a parte que gera o .pdf está exatamente como no seu código original.

dica - não acessei o arquivo; não aumente desnecessariamente o seu trabalho e também o nosso, anexe arquivos diretamente aqui no fórum


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
18 horas atrás, osvaldomp disse:

Amigo, o código que passei não interfere na página 2 e a parte que gera o .pdf está exatamente como no seu código original.

dica - não acessei o arquivo; não aumente desnecessariamente o seu trabalho e também o nosso, anexe arquivos diretamente aqui no fórum

Bom dia, Osvaldo

 

O código está funcionando sim, o que não está funcionando é o filtro da coluna A, que deveria ser alterado conforme o código é alterado. Eu não consigo mais colocar anexo no fórum, por isso coloquei o link do google drive, só tenho 0,84MB de espaço para enviar anexos.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...