Ir ao conteúdo
  • Cadastre-se
Gilson Ricardo

Outro codigo visual basic, salvar em pdf

Recommended Posts

Prezados,

 

Tenho o código abaixo, que gera um relatório excel de comissão de venda de representante que está funcionando perfeitamente.Todo mês faço isso para cada representante e são mais de 180!!!

 

Gostaria de receber dos prezados um código que rodasse em sequência (tudo em um mesmo código) do descrito abaixo, que pudesse pegar o relatório excel gerado e salvá-lo em PDF, com o nome especifico de uma célula na planilha ("C2") em uma determinada pasta chamada “Relatórios”

 

E que tão logo a planilha gerada para o representante “01-João” salve o seu respectivo PDF, o código parta para o representante seguinte “02-Pedro”, e assim por diante.

 

Meu objetivo é que através de um unico código, ser possível gerar a planilha excel e salvar em PDF para todos os representnates.

 

'Esse comando irá copiar as informações da panilha bdFATURAMENTO para a planilha "RelcomFATURAMENTO", conforme o filtro

 

Sheets("RelcomFATURAMENTO").Range("A9:M13").ClearContents

lin = 9

Linha = 9

Do Until Sheets("bdFATURAMENTO").Cells(lin, 1) = "" ' ORIGEM

    If Sheets("bdFATURAMENTO").Cells(lin, 2) Like "*" & UCase(ComboBox2) & "*" And _

       Sheets("bdFATURAMENTO").Cells(lin, 1) Like "*" & UCase(ComboBox1) & "*" And _

       Sheets("bdFATURAMENTO").Cells(lin, 3) Like "*" & UCase(ComboBox3) & "*" And _

       Sheets("bdFATURAMENTO").Cells(lin, 4) Like "*" & UCase(ComboBox4) & "*" Then

   

 

        Sheets("RelcomFATURAMENTO").Cells(Linha, 1) = Sheets("bdFATURAMENTO").Cells(lin, 1) 'CÓDIGO DO REPRESENTANTE

        Sheets("RelcomFATURAMENTO").Cells(Linha, 2) = Sheets("bdFATURAMENTO").Cells(lin, 2) 'NOME DO REPRESENTANTE

        Sheets("RelcomFATURAMENTO").Cells(Linha, 3) = Sheets("bdFATURAMENTO").Cells(lin, 3) 'MêS

        Sheets("RelcomFATURAMENTO").Cells(Linha, 4) = Sheets("bdFATURAMENTO").Cells(lin, 4) 'ANO

        Sheets("RelcomFATURAMENTO").Cells(Linha, 5) = Sheets("bdFATURAMENTO").Cells(lin, 5) 'CODIGO

        Sheets("RelcomFATURAMENTO").Cells(Linha, 6) = Sheets("bdFATURAMENTO").Cells(lin, 6) 'CLIENTE

        Sheets("RelcomFATURAMENTO").Cells(Linha, 7) = Sheets("bdFATURAMENTO").Cells(lin, 7) 'DUPLICATA

        Sheets("RelcomFATURAMENTO").Cells(Linha, 8) = Sheets("bdFATURAMENTO").Cells(lin, 8) 'EMISSÃO

        Sheets("RelcomFATURAMENTO").Cells(Linha, 9) = Sheets("bdFATURAMENTO").Cells(lin, 9) 'VENCIMENTO

        Sheets("RelcomFATURAMENTO").Cells(Linha, 10) = Sheets("bdFATURAMENTO").Cells(lin, 10) 'VALOR

        Sheets("RelcomFATURAMENTO").Cells(Linha, 11) = Sheets("bdFATURAMENTO").Cells(lin, 11) 'PEDIDO

        Sheets("RelcomFATURAMENTO").Cells(Linha, 12) = Sheets("bdFATURAMENTO").Cells(lin, 12) '%COMISSÃO SOBRE O FATURAMENTO

        Sheets("RelcomFATURAMENTO").Cells(Linha, 13) = Sheets("bdFATURAMENTO").Cells(lin, 13) 'COMISSÃO

         

      

       

        Linha = Linha + 1

    End If

    lin = lin + 1

 

 

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×