Ir ao conteúdo
  • Cadastre-se

Vics

Membros Plenos
  • Total de itens

    44
  • Registro em

  • Última visita

  • Qualificações

    N/D

Reputação

12

Informações gerais

  • Cidade e Estado
    Jundiaí - SP
  • Sexo
    Masculino

Outros

  • Biografia
    Paulista, 25 anos. Estudo programação porém minha maior experiência profissional é com logística. Inglês fluente. Formado no ensino Tecnico em Informática para internet
  • Ocupação
    Análise e Desenvolvimento de Sistemas
  • Interesses
    Meu Hobbie é Excel, por isso entrei no forum, além disso alguns jogos de RPG, como Tibia, PokeXGames, porém não sou ativo em nenhum, atualmente somente o Pokemon Go
    Fora da tecnologia, pratico taekwondo e estudo a bíblia.
  1. Então há duas opções. Ou você precisa instalar um plugin chamado "SaveAsPDF" para o excel 2007, pois o seu não tem esse plugin, por essa versão do excel não suportar salvar a seleção em PDF, ou converter o arquivo para PDF, por isso da esse erro. ou você, por método de gravação de macro, salve a planilha como PDF, ou a seleção como PDF para ver qual é o código gerado, que talvez no excel 2007 também seja outro. Eu só testei o código no excel 2013 e 2016. Segue o tutorial para gerar a macro gravada para salvar a seleção em PDF. 1. Guia de desenvolvedor, clicar em gravar macro. (para ativar a guia do desenvolvedor: ) 2. Nomear a macro 3. Selecionar a área 4. Guia Arquivo 5. Salvar como, selecione o local, ou procurar. 6. Selecione PDF 7. Opções e clique em seleção 8. Clique em Salvar 9. Na guia de desenvolvedor, clique em Parar Gravação 10. Na mesma Aba, clique em Macros e Editar a Macro Gerada 11. Resultado do código Gerado:
  2. @djacy.neto, bom, eu diria que não precisa mudar o "USERNAME", pois esse Environ é uma função,mas se mudando deu certo... Segue exemplos do Environ Environ("ALLUSERSPROFILE") Resultado: "C\ProgramData" Environ("APPDATA") Resultado: "C:\Users\totn\AppData\Roaming" Environ("CommonProgramFiles") Resultado: "C:\Program Files (x86)\Common Files" Então, dessa forma, funciona aqui perfeitamente. user = Environ("USERNAME") 'buscar nome de usuário do computador. localPasta = "C:\Users\" & user & "\Desktop\" ChDir "C:\Users\" & user & "\Desktop\" MsgBox localPasta 'resultado do local da pasta que os arquivos serão salvos como na imagem abaixo @Bikke, o que eu estou vendo o que ta acontecendo no seu erro, é que o seu excel não está suportando a opção de salvar a seleção em PDF, como diz na microsoft: Qual versão do excel você está usando?
  3. @ROBAOCIS Testei o código aqui e funcionou perfeitamente, além de que ficou simples e da pra entender super bem. Parabéns, ficou muito bom! Você poderia marcar esse tópico como resolvido, na minha assinatura tem um tutorial de como fazer. Quanto a pergunta a respeito da minha empresa, responderei por mensagem privada pra não mudar o assunto do tópico.
  4. @Bikke Qual foi o erro apresentado? Pois essa linha do código é justamente para transformar a seleção em PDF.
  5. @djacy.neto , Desculpe. a ultima linha do código, faltou um "s" em Sheets Sheets("Planilha1").Select de qualquer forma, segue atualizada. TESTE_PDF-1 - Vics.zip
  6. kkk. Obrigado pelo elogio. Na verdade eu não sou gênio, tem coisas que eu erro feio kk. Comecei acompanha Excel depois que comecei a trabalhar na empresa que estou hoje e coincidentemente estou sendo desligado hoje. Meu Ex-Chefe que foi desligado um tempo atrás, ele sim era o verdadeiro gênio e mestre, o melhor que conheci pessoalmente, foi ele que me inspirou a fazer alguns cursos pagos, video-aulas... muita coisa aprendi pesquisando também e ajudar os outros aqui no forum tem me ajudado bastante. É bom ter reconhecimento, obrigado mesmo.
  7. olá, não é isso que você quer?
  8. Olá, Desculpe, eu devia ter pensado nisso antes. no começo do código, você acrescenta a variável Dim user depois atribui user = Environ("USERNAME") 'buscar nome de usuário do computador. e coloca o loca da pasta. localPasta = "C:\Users\" & user & "\Desktop\" ChDir "C:\Users\" & user & "\Desktop" Veja se funcionou.
  9. Também estou pesquisando algo parecido. Qualquer novidade eu posto aqui.
  10. Olá. Veja se é isso que você precisa. TESTE_PDF-1 - Vics.zip
  11. @ROBAOCIS você precisa mudar a variável local_pasta desta forma ele não está salvando porque não está encontrando o caminho especificado.
  12. Olá! Tente o código abaixo: Sub SalvarArquivo() ' ' Salvar em PDF e XLSM ' Dim MyDate Dim Clinte As String Dim Separador As String Dim Veículo As String Dim local_pasta As String ' Cliente = Range("A7").Value 'ou onde estiver o nome do cliente. Separador = " - " Veículu = Range("D8").Value local_pasta = "C:\Users\nome de usuário\Desktop\" 'Local do arquivo ChDir "C:\Users\nome de usuário\Desktop" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ local_pasta + Cliente + Separador + Arquivo, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True ActiveWorkbook.SaveAs Filename:=local_pasta + Cliente + Separador + Arquivo, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ActiveWorkbook.Close End Sub
  13. Olá, desculpe. Você disse o que tem que fazer, e anexou uma planilha. Mas não está claro. Qual é a sua dúvida?
  14. @djacy.neto só para eu entender melhor. Nesse caso, cada página do PDFs irá salvar isso: ou é pra salvar 5 PDFs diferentes com essa informação de cada fornecedor?
  15. olá para débito: =somase(c:c;10;d:d) para crédito =somase(c:c;20;d:d)

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

×
×
  • Criar novo...

Aprenda_a_Ler_Resistores_e_Capacitores-capa-3d-newsletter.jpg

ebook grátis "Aprenda a ler resistores e capacitores", de Gabriel Torres

GRÁTIS! BAIXE AGORA MESMO!