leno mota

Sim! Faz toda a diferença... 1 + 1 = 2 - Type Integer 1 & 1 = 11 -Type String rsrs.... Somente pra ilustrar. Substitua a linha: Nome = Range("Q3").Value + Range("Q2").Value Por: Nome = Range("Q2").Value & " " & Range("Q3").Value Coloquei um espaço entre o valor de q1 e q2, mas se quiser sem espaços, faça assim: Nome = Range("Q2").Value & Range("Q3").Value Espero ter ajudado e marca mais um polegar verde ae... rs Qualquer dúvida pode chamar... Att, Leno Mota

Claro que tem como ser Q2 + Q3!!! Podemos "TUDO" em VBA... rsrs... "Q2" & "Q3" são valores numericos? Subistitua a linha: MyLocal = "C:\Users\HP\SkyDrive\BONINI REPRESENTAÇÕES\1 - PEDIDOS\1 - PEDIDOS A ENVIAR\" Nome = Range("Q3").Value Por: MyLocal = "C:\Users\HP\SkyDrive\BONINI REPRESENTAÇÕES\1 - PEDIDOS\1 - PEDIDOS A ENVIAR\" Nome = Range("Q3").Value + Range("Q2").Value O meu e-mail é: <[email protected]> Quanto ao "incremento de Q3 faça assim: Inclua isso antes do "End Sub" desse seu código: Dim y As Integer y = Range("Q3").Value + 1 Range("Q3") = y Qual a próxima dúvida? rs... Não esqueça de marcar minhas respostas como úteis (clicando no polegar verde)...

Seria possivel postar sua planilha no sendspace? Se quiser pode me mandar por e-mail tambem. Essa parte do botão de zerar não entendi. Zerar: Apagar todos os dados? Alterei o Filename pra voce mas não tenho como testar ja que meu windows é o XP e não possuo a pasta "Users"... etc... O Código: Option Explicit Sub Salvando() Dim Nome As String Dim SDate As String Dim MyLocal As String MyLocal = "C:\Users\HP\SkyDrive\BONINI REPRESENTAÇÕES\1 - PEDIDOS\1 - PEDIDOS A ENVIAR\" Nome = Range("Q3").Value SDate = Now If Nome <> vbNullString Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo" Else MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo" End If End Sub Fico no aguardo da planilha ou de uma explicação mais clara sobre o botão de zerar... Att, Leno Mota

Boa noite renatobonini. Demorei mas consegui o que voce precisava. Option Explicit Sub Salvando() Dim Nome As String Dim SDate As String Nome = Range("Q3").Value SDate = Now If Nome <> vbNullString Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Nome & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo" Else MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo" End If End Sub Não esqueça de encerrar o tópico e marcar o polegar verde a sua direita. Qualquer dúvida estou à disposição, Leno Mota Boa noite renatobonini. Demorei mas consegui o que voce precisava. Option Explicit Sub Salvando() Dim Nome As String Dim SDate As String Nome = Range("Q3").Value SDate = Now If Nome <> vbNullString Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Nome & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo" Else MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo" Qualquer dúvida estou à disposição, Leno Mota. End If End Sub Não esqueça de encerrar o tópico e marcar o polegar verde a sua direita. Qualquer dúvida estou à disposição, Leno Mota