Ir ao conteúdo
  • Cadastre-se

Bikke

Membros Plenos
  • Total de itens

    90
  • Registro em

  • Qualificações

    0%

Reputação

28

Sobre Bikke

  • Data de Nascimento 20/07/1980 (39 anos)

Informações gerais

  • Cidade e Estado
    Lisboa
  1. @Vics Boa noite Agora sim, agora já funciona direitinho. O meu obrigado pela atenção e explicação. Uma boa noite Cumprimentos
  2. @Vics Boa noite Estou usando o excel 2007. E continua a não dar nada
  3. Olha eu já fiz isso tudo e não dá. Desisto Vai para o lixo Obrigado por tudo. Cumprimentos
  4. Não dá na mesma Dá erro Alguma coisa está a falhar aqui Eu quero que as gravações vão para o Ambiente de trabalho para a Pasta Gravações PDF
  5. Sim Vai anexado TESTE_PDF-1 - Vics.rar
  6. Fiz isso que disseste, dá o mesmo erro. Sub SalvarPDF() ' ' SalvarPDF Macro ' Lembrando que mesmo que execute a macro várias vezes, um arquivo subscreve o outro. Dim user Dim localPasta As String Dim cliente As String user = Environ("Bikke") 'buscar nome de usuário do computador. localPasta = "C:\Users\Bikke\Desktop\" ChDir "C:\Users\Bikke\Desktop" Sheets("modelos").Select Range("A1").Select Selection.End(xlToRight).Select Selection.End(xlDown).Select While ActiveCell <> "" cliente = ActiveCell.Offset(-1, -6).Range("A1").Value Range(Selection, Selection.End(xlUp)).Select Range(Selection, Selection.End(xlToLeft)).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=localPasta + cliente, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False Selection.End(xlToRight).Select Selection.End(xlDown).Select ActiveCell.Offset(2, 0).Select Selection.End(xlDown).Select Wend Range("A1").Select Sheets("Planilha1").Select MsgBox "PDFs na area de trabalho", vbOKOnly, "Sucesso" End Sub
  7. @djacy.neto Assim, não saimos daqui. É mais fácil dizeres como fazer, com exemplos. Porque dessa forma não vou entender nem saber como o fazer. Cumprimentos
  8. @djacy.neto Boa tarde Sim, copiei e colei o código. Fiz alterações mas não dá nada. Em chDir: coloquei utilizadores, mas é igual, não dá na mesma.
  9. @Vics O erro é este....
  10. @janiosba Faz uma cópia da planilha e coloca dados ficticios. Não precisa de ser a planilha completa, mas sim um bocadinho para que te possam ajudar. Elimina os dados que não possam ser vistos, e coloca dados inventados. Se não, fica difícil.
  11. Boa noite A mim deu um erro
  12. Esse problema já foi colocado aqui há já algum tempo e parece que foi resolvido. Vê se te ajuda também. Vê aqui: https://www.clubedohardware.com.br/forums/topic/10436-barra-de-menus-do-word-sumiu/
  13. @João Paulo Lucas Faz assim: 1º - Clicas em Programador 2º - Clicas em Modo de Estrutura 3º - Clicas no Botão que queres mudar o nome 4º - Clicas em Propriedade 5º - onde diz Caption, á frente está o nome, mudas para o nome que queres Depois disso feito, clicas de novo em Modo de Estrutura, para desactivar o botão. E pronto Segue imagem para veres
  14. Ao clicar para Gerar Cartelas, dava erro: Como mudaste o nome da planilha, o erro era aqui: Windows("Bingo.xlsm").Activate 'Ativar esta planilha Mudei o nome para o correcto: Windows("Bingo_Atualizado.xlsm").Activate 'Ativar esta planilha Agora sim, já funciona...
  15. Boa noite Excelente @osvaldomp . Ficou cinco estrelas. Os meus agradecimentos, pela tua paciência e pela tua excelente ajuda. Continuação de uma boa semana. Cumprimentos.

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!