Ir ao conteúdo
  • Cadastre-se

ExcelBA

Membro Júnior
  • Posts

    2
  • Cadastrado em

  • Última visita

Tudo que ExcelBA postou

  1. Basole, muito obrigado!!! Ficou perfeito!!! Abs!! adicionado 0 minutos depois @Basole , muito obrigado! Ficou perfeito! Abs!
  2. Pessoal, boa noite. Preciso de ajuda. No código abaixo onde insiro o endereço para salvar em uma pasta específica? No caso, uma pasta de rede: F:\Materiais\Requisições\... Sub Salvando() Dim Nome As String Dim SDate As String Nome = Range("B1").Value SDate = Now If Nome <> vbNullString Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Nome & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True Range("M8").Value = Range("M8").Value + 1 MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo" Else MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo" End If End Sub Desde já, muito obrigado!

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!