Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
EXPORTAR PDF COM AL...
 
Notifications
Clear all

EXPORTAR PDF COM ALGUMAS CONDICOES

 
2024 - VBA & Macros
Post Recente por MPrudencio 8 anos atrás
10 Posts
2 Usuários
0 Reactions
1,304 Visualizações
RSS
 marciobin
(@marciobin)
Posts: 0
New Member
Topic starter
 

Boa tarde ,
Em busca pelo Planilhando encontrei varios codigos parecidos com o que preciso ,
mas porém extamente o que preciso fazer não encontrei .

as macros que esta na planilha anexada, estão todas funcionando blz , o unico problema
é a de exportar para PDF , ou seja , a mesma não esta aceitando cancelar a exportacao
no formulario do windows , ela salva mesmo clicando em cancelar .
O outro problema é que não consegui fazer exportar com o nome da celula D2 e F3.

Peguei alguns códigos do planilhando e deu quase certo , não deu somente pq
nesta macro que uso para imprimir , eu uso uma tabela com deslocamento , para imprimir somente o que
tiver preenchido .

se tiver como resolver esses pobleminhas vai facilitar muito , pois não preciso preucupar com
colocar o nome do arquivo manualmente.

Obrigado .

 
Postado : 03/03/2017 1:33 pm
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Boa tarde, para nao mexer nos seus codigos inseri um novo modulo.

O codigo tem alguns comentarios que deveram ser substituidos para que o codigo funcione corretamente

Ve se serve

 
Postado : 03/03/2017 2:04 pm
 marciobin
(@marciobin)
Posts: 0
New Member
Topic starter
 

Prudencio ,
nao funcionou , pois eu preciso da tabela tambem .que esta no codigo

precisava so de salvar com o nome da celula .
mais de todo jeito muito obrigado

 
Postado : 03/03/2017 2:10 pm
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Ajustei a sua macro dessa vez

Para testar crie uma pasta com o nome Backup em C:, ou troque o caminho onde o arquivo devera ser salvo.

 
Postado : 03/03/2017 2:24 pm
 marciobin
(@marciobin)
Posts: 0
New Member
Topic starter
 

PRUDENCIO ,nao tem como deixar pra a gente escolher a pasta ?

a macro ta dando um erro de argumento .

a macro que estava na primeira que postei nao tem como so adcionar somente a linha para salvar com o nome da celula ?
obrigado

 
Postado : 03/03/2017 2:35 pm
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Vc fez o que eu falei pra fazer?

Criou a pasta Backup em C:?

Ou editou o codigo no local indicado ?

Qdo vc clica em Depurar onde marca?

Se for em "C:/Backup"

Tem um comentario logo a frente

 
Postado : 03/03/2017 2:40 pm
 marciobin
(@marciobin)
Posts: 0
New Member
Topic starter
 

vou tentar aqui .
Qualquer coisa falo aqui

 
Postado : 03/03/2017 2:53 pm
 marciobin
(@marciobin)
Posts: 0
New Member
Topic starter
 

Deu certo mesmo não.
Precisava somente de adicionar o código para salvar com o nome da celula .do jeito q está eu posso escolher um local pra salvar ,pois não uso somente em uma maquina .
Daí tem algumas máquinas q tem uma unidade e a outra já num tem .
Por isso q precisava somente de adicionar a linha de código para salvar com o nome da célula.
Obrigado

 
Postado : 03/03/2017 7:23 pm
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Amigao o codigo que passei se vc seguir o que foi orientado tem que funcionar pq aqui funciona perfeitamente fazendo exatamente o que vc quer que faça.

Dizer somente que nao esta funcionando sem dizer o que nao esta funcionando e onde para o a execução do codigo nao ajuda a resolver o seu problema.

A parte do codigo que faz o que vc pediu

Ou seja

Salvar com o nome na celula D2 e a data em F3 é este

E este

Dim WSH As Worksheet
Dim NomeArquivo As String
Dim R As String

Set WSH = Sheets("TESTE") ' Troque pelo nome da sua planilha
NomeArquivo = WSH.Range("D2").Value & " " & Format(WSH.Range("F3").Value, "DD.MM.YYYY") ' usei pontos pq "/" nao é aceito na hora de salvar o arquivo

'Pede Confirmação para salvar em PDF

R = MsgBox("Deseja Criar uma Folha em PDF", vbYesNo, "Criando PDF")

'Se a resposta for NAO O CODIGO ENCERRA

If R = vbNo Then Exit Sub

Coloque esse codigo dentro de sua Sub

 
Postado : 04/03/2017 11:13 am
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Dim WSH As Worksheet
Dim NomeArquivo As String
Dim R As String

Set WSH = Sheets("TESTE") ' Troque pelo nome da sua planilha
NomeArquivo = WSH.Range("D2").Value & " " & Format(WSH.Range("F3").Value, "DD.MM.YYYY") ' usei pontos pq "/" nao é aceito na hora de salvar o arquivo

'Pede Confirmação para salvar em PDF

R = MsgBox("Deseja Criar uma Folha em PDF", vbYesNo, "Criando PDF")

'Se a resposta for NAO O CODIGO ENCERRA

If R = vbNo Then Exit Sub
 
Postado : 04/03/2017 11:14 am
Forum Jump:
  Tópico Anterior
Próximo Tópico