Ir para conteúdo
  • Cadastre-se

A partir do dia 19/11/2018, o foco do Fórum do BABOO é apenas Windows e Segurança Digital conforme informado no início de 2018.
As áreas que não têm relação com esses dois assuntos foram arquivadas e seus tópicos estão disponíveis para consulta na área Tópicos Antigos.

Conheça as novidades de 2019 para o BABOO e Fórum do BABOO

Gustavo Paschoal

  • Postagens

    12
  • Desde

  • Última visita

Perfil

  • Estado
    São Paulo
  • Sexo
    masculino
  • Escolaridade
    Superior completo
  • Área Profissional
    Engenharia
  • Nível Profissional
    Profissional curso superior
  1. Gustavo Paschoal

    Macro de copiar e colar dentro da planilha(loop)

    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.
  2. Gustavo Paschoal

    Macro de copiar e colar dentro da planilha(loop)

    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
  3. Gustavo Paschoal

    Macro de copiar e colar dentro da planilha(loop)

    Primeiramente obrigado mais uma vez, o conteúdo da coluna J (comentários) se altera também, conforme a coluna A (coluna dos zeros), o código fica assim? Sub ReplicaCódigosAjustaLinhasGeraPDF() Dim LR As Long, i As Long, nome As String ActiveSheet.AutoFilterMode = False For i = 7 To LR Rows("13:113").EntireRow.AutoFit LR = Cells(Rows.Count, 12).End(3).Row [J7] = Cells(i, 12) 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
  4. Gustavo Paschoal

    Macro de copiar e colar dentro da planilha(loop)

    Isso, vou aplicar na planilha com vínculos, a coluna A se altera sim, conforme altera a célula J7.
  5. Gustavo Paschoal

    Macro de copiar e colar dentro da planilha(loop)

    É exatamente isso, os códigos não se alteram pois essa planilha estava com vínculos em outra que eu não tive a liberação de enviar aqui, mas conforme os códigos são inseridos na J7 pela sua macro, deveria fazer essa ordem que você citou, 1. filtra a coluna A ~~~> critério 0 2. ajusta a altura das linhas da coluna J 3. gera o PDF para cada código relacionado na coluna L 4. desfaz o filtro Após isso, recomeça a macro novamente. Espero que eu tenha conseguido passar como deveria ser o procedimento. Mais uma vez, muito obrigado por disponibilizar do seu tempo para me ajudar.
  6. Gustavo Paschoal

    Macro de copiar e colar dentro da planilha(loop)

    Bom dia Osvaldo, me desculpe, não vi que eu tinha limite para subir aquivos, segue o arquivo. Planilha_Teste_1.xlsm
  7. Gustavo Paschoal

    Macro de copiar e colar dentro da planilha(loop)

    Não altera o que? A macro não filtra os itens zerados da coluna A quando os códigos são alterados, de acordo com a lista de códigos. Cada código tem uma quantidade de 0, que geralmente não são iguais, uma coisa que percebi quando essa macro ajustar é executada, me parece que ela cria um filtro na aba Justificativas que não é alterado quando cada código é inserido na célula J7. Estou enviando 2 exemplos de como deveriam ficar a aba Justificativa nos arquivos em pdf gerados. O que é "trocar os códigos" ? Você quis dizer quando você insere nova lista de códigos? Quis dizer que a macro pega o primeiro número, ajusta as células e depois gera o pdf, depois pega o segundo código e repete o processo, nisso a aba Justificativas ela se altera, conforme a quantidade de 0 existente na coluna A, aumentando ou diminuindo as linhas da aba. Fica com o mesmo o que ? Fica com a mesma quantidade de zeros na coluna A, independente se você muda o código, na lista de códigos, fazendo com que as linhas da aba permaneçam as mesmas, não se alterando. Essa planilha é atualizada com links em outra planilha, Obrigado!
  8. Gustavo Paschoal

    Macro de copiar e colar dentro da planilha(loop)

    Bom dia Osvaldo, muuuito obrigado, era isso mesmo o que eu queria, só tem uma coisa que não está executando da maneira correta, a macro Ajustar não altera quando eu troco os códigos, ela fica com o mesmo para todos os arquivos gerados, não filtra os "0" de cada código, tirando isso tá perfeito!
  9. Gustavo Paschoal

    Macro de copiar e colar dentro da planilha(loop)

    Boa tarde Osvaldo, ficou claro a minha explicação ou ainda tem alguma dúvida? Obrigado.
  10. Gustavo Paschoal

    Macro de copiar e colar dentro da planilha(loop)

    Boa tarde Osvaldo, No exemplo que você postou as células L2 a L6 estão vazias. O que você quer fazer nesses casos ? Na lista de códigos poderão ocorrer células vazias ? Na verdade acabei confundindo, o certo mesmo é a partir da L7, acredito que se houver células vazias, a macro vai gerar um arquivo zerado, certo? 1. no seu exemplo nenhuma célula da coluna contém zero Na coluna A da aba "justificativa" tem um filtro, basicamente a macro filtra apenas as células que estejam zeradas e ajusta o texto para caber dentro das células da coluna J (Exemplo da conta D17 que está na Linha 37, não é possivel ler o texto da célula J37). Clicando no quadrado azul, ele executa a macro. 2. explique com exatidão o que você quer dizer com "ajustar o texto" Ajustar o texto seria aumentar a altura da linha para que seja possível a leitura do texto. 3. repetindo o que comentei antes: COLOQUE EXEMPLOS DE ZEROS NA COLUNA A E COLOQUE O RESULTADO DESEJADO NA COLUNA J Exemplo F6-1 linha 45, o é possível ler o texto da coluna J. 4. no exemplo postado não oculte linhas na planilha Segue a planilha com as células re-exibidas. Mais uma vez, obrigado pela força! Planilha.xlsm
  11. Gustavo Paschoal

    Macro de copiar e colar dentro da planilha(loop)

    Bom dia Osvaldo, obrigado pela resposta! Vamos lá, Sugestão: deixe de lado a tentativa de aproveitar o código e explique com exatidão o que você deseja que a macro faça. Gostaria que a macro pegasse uma sequencia de números que irei colar a partir da linha 2 da coluna L da aba "Justificativas" (talvez serão 180 códigos colados), pegue o código da célula L2, cole na célula J7 da mesma aba "Justificativas", após isso ele ajusta os textos da coluna J, as células que contenha os números 0 da coluna A (ajustar o texto para caber dentro das células da coluna J) e logo após esse ajuste ele gera um arquivo em pdf das duas abas Consistência e Justificativa. Disponibilize novo arquivo que não esteja protegido, com os esclarecimentos das dúvidas acima e com o resultado desejado. Segue a planilha sem senha. Sobre as macros, segue as que eu tinha criado: Gerar pdf: Sub PDF_() Dim nome As String nome = ThisWorkbook.Path & "\Consistencia" & "_" & 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 Ajuste das linhas: Sub ajustar() ' ' ajustar Macro ' ' Rows("14:113").Select Rows("14:113").EntireRow.AutoFit ActiveWindow.ScrollRow = 97 ActiveWindow.ScrollRow = 95 ActiveWindow.ScrollRow = 86 ActiveWindow.ScrollRow = 83 ActiveWindow.ScrollRow = 75 ActiveWindow.ScrollRow = 71 ActiveWindow.ScrollRow = 63 ActiveWindow.ScrollRow = 56 ActiveWindow.ScrollRow = 52 ActiveWindow.ScrollRow = 49 ActiveWindow.ScrollRow = 47 ActiveWindow.ScrollRow = 46 ActiveWindow.ScrollRow = 45 ActiveWindow.ScrollRow = 43 ActiveWindow.ScrollRow = 42 ActiveWindow.ScrollRow = 41 ActiveWindow.ScrollRow = 40 ActiveWindow.ScrollRow = 39 ActiveWindow.ScrollRow = 37 ActiveWindow.ScrollRow = 36 ActiveWindow.ScrollRow = 34 ActiveWindow.ScrollRow = 31 ActiveWindow.ScrollRow = 30 ActiveWindow.ScrollRow = 29 ActiveWindow.ScrollRow = 28 ActiveWindow.ScrollRow = 26 ActiveWindow.ScrollRow = 25 ActiveWindow.ScrollRow = 24 ActiveWindow.ScrollRow = 23 ActiveWindow.ScrollRow = 22 ActiveWindow.ScrollRow = 21 ActiveWindow.ScrollRow = 20 ActiveWindow.ScrollRow = 19 ActiveWindow.ScrollRow = 18 ActiveWindow.ScrollRow = 16 ActiveWindow.ScrollRow = 15 ActiveWindow.ScrollRow = 12 ActiveWindow.ScrollRow = 11 ActiveWindow.ScrollRow = 10 ActiveWindow.ScrollRow = 7 ActiveWindow.ScrollRow = 5 ActiveWindow.ScrollRow = 4 ActiveSheet.Range("$A$13:$A$113").AutoFilter Field:=1, Criteria1:="0" End Sub Macro para copiar e colar na célula desejada: Sub CopiaColaImprime() Dim LR As Long Dim i As Long LR = Range("L" & Rows.Count).End(xlUp).Row For i = 7 To 200 'LR Cells(7, 10) = Cells(i, 200) Call ajustar Call PDF_ Next i End Sub Espero que tenha ficado claro, qualquer coisa vou enviando mais dados para você. Sobre o local que vou colar os códigos, se você tiver uma sugestão melhor ou quiser criar uma aba para isso, fique a vontade, só preciso automatizar essa questão de gerar os arquivos em pdf automaticamente, pois isso me toma um tempo danado todo mês. Obrigado! Planilha.xlsm
  12. Gustavo Paschoal

    Macro de copiar e colar dentro da planilha(loop)

    Bom dia Osvaldomp, poderia me dar uma ajuda? Adaptei o seu código para uma necessidade minha, porém não estou conseguindo fazer dar certo, não sei o que pode estar errado. Tenho uma planilha que eu preciso selecionar varios códigos e depois a macro faz um ajuste nas linhas, logo apos isso ela gera um pdf das 2 guias. vou inserir a planilha para ficar mais facil o entendimento. Mais uma vez, obrigado! Planilha..xlsm
×