Agora entendi, huiauha. Era tão simples, só não sabia a linguagem para executar, Bastava trocar [E9].Value por ActiveSheet.NOMEDACAIXADETEXTO.Text.....

Bom dia!! Um exemplo: Sub Botão1_Clique() Dim b As Variant b = Application.GetOpenFilename("xls-files,*.xls", _ 1, &...

Funcionou perfeitamente, muito obrigado !!

Bom que conseguiu achar a resposta para as linhas "pontilhadas". Agora qto ao codigo o que não funcionou??? E preciso que a função Isfileope...

Consegui resolver o problema das linhas pontilhadas, bastou adicionar PrintArea = False

Obrigado pelo código, não consegui fazer funcionar não, percebi que ele está fora do código que gera o pdf, tem que adaptar algo ? Outra coisa, que d...

Obrigado mesmo Reinaldo, ficou perfeito ainda pude ajustar as margens, muito bom !!! Apenas uma resalva, que for utilizar o código: excluir ou colo...

Se o seu excel for 2007 ou acima veja o link: viewtopic.php?f=10&t=5193&p=27206&hilit=salvar+pdf#p27206 ; Nele o colega JValq alterou par...

Boa tarde, Veja se atende: 'Gera arquivo em PDF Private Sub CommandButtonPDF_Click() Dim SvInput As String Dim Data As String Dim var_MENSAGEM Dim N...

Experimente assim: Sub ERASELINHA_2() Dim cAdr As Long, nSh As String Application.ScreenUpdating = False Application.EnableEvents = False nS...