marcospires1

Perfeito @Midori funcionou de boa. Obrigado pela atenção.

@Midori se não me engano é este, não estou com o pc que está dando o erro aqui comigo. Confirmei é esse mesmo.

@Midori Ficou show, mas será que pode dar problema com versão do Office? Pois consigo abrir em um pc (office mais atual), e no outro (office 2013) da erro em tempo de execução 5. Sabe o que pode causar isso? @Midori Ficou muito top o código e agradeço muito por isso, porém eu estive vendo algumas coisas e estou com o código abaixo. Ele cria um Popup "personalizado". E minha dúvida é a seguinte será que consigo utilizar o código que você me passou para este Popup, assim eu teria a informação somente quando tivesse dúvida. Consegue me ajudar nessa também? Sub CriarPopUp() Dim Mrs As CommandBar CommandBars("PopUpPersonalizado").Delete Set Mrs = CommandBars.Add("PopUpPersonalizado", msoBarPopup) With Mrs With .Controls.Add(msoControlButton) .Caption = "Quantidade Caixa Master" .FaceId = 1394 .OnAction = "CaixaMaster" End With End With End Sub Sub CaixaMaster() End Function Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) CommandBars("PopUpPersonalizado").ShowPopup Cancel = True End Sub

@Midori Ficou muito top o código e agradeço muito por isso, porém eu estive vendo algumas coisas e estou com o código abaixo. Ele cria um Popup "personalizado". E minha dúvida é a seguinte será que consigo utilizar o código que você me passou para este Popup, assim eu teria a informação somente quando tivesse dúvida. Consegue me ajudar nessa também? Sub CriarPopUp() Dim Mrs As CommandBar CommandBars("PopUpPersonalizado").Delete Set Mrs = CommandBars.Add("PopUpPersonalizado", msoBarPopup) With Mrs With .Controls.Add(msoControlButton) .Caption = "Quantidade Caixa Master" .FaceId = 1394 .OnAction = "CaixaMaster" End With End With End Sub Sub CaixaMaster() End Function Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) CommandBars("PopUpPersonalizado").ShowPopup Cancel = True End Sub

@Midori Funcionou perfeitamente. Muito obrigado Midori.

@Midori Boa noite, obrigado desde já com a ajuda. Segue PLANILHA PEDIDO.rar

Pessoal mais uma vez preciso de ajuda. Estou precisando fazer uma macro que quando um valor é digitado em qualquer intervalo entre A12:A40 da aba "Pedido", a mesma busque este valor na aba "Impostos" na coluna E, e seja apresentado em uma Msgbox. Por exemplo: Na minha aba pedido eu digito um código de produto na celula A12, por exemplo código "10" que é de uma caixa fechada de café. Na Msgbox eu preciso que apareça a quantidade total de café contida na caixa. A informação da quantidade está contida na aba Impostos. E assim sucessivamente na linhas abaixo, A13, A14..... Por favor poderiam me ajudar?

@Basole perfeito, muito obrigado pela ajuda Abraço

@Basole Muito obrigado, funcionou perfeitamente. Só adicionei espaço entre as informações. Sem querer abusar, um dos campos é data e causa erro na macro, sabe como posso corrigir? Visto que a data vai ser inserida por outras pessoas utilizando este arquivo. Obrigado

@Basole Não funcionou. Ele salva somente com o nome "Pedido". Não puxa nenhuma informação.

Boa tarde Até o momento estou com o código abaixo, mas ainda não consegui fazer com que ele salve com o nome das outras células. Sub SalvarArquivoPDF() LOCALNOME = ThisWorkbook.Path & "\Pedido" & "_" & ActiveSheet.Range("A5").Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ LOCALNOME, Quality:=xlQualityStandar, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False MsgBox "O arquivo foi salvo corretamente.", vbOKOnly, "Arquivo Salvo" End Sub

Boa tarde, Gostaria muito da ajuda de vocês, estou precisando criar uma macro que salve o arquivo em PDF, porém ele deve salvar no mesmo local onde o arquivo do Excel está e o nome do arquivo conforme 3 células (exemplo as células A1, K2 e G5), e somente um determinado pedaço da planilha. Estou me aventurando a pouco tempo com macros e estou me batendo com está. Agradeço desde já pela ajuda.

Pessoal, por favor me deem uma dica de um bom gabinete, porém não muito caro. Vi aqui no forum, mas tem muitas opções, se puderem me ajudar. Abraço

Ok, obrigado pelas dicas.

Valeu pela dica. Porém eu vi aquela que comentei, no paraguai por $115,00. E a que você colocou R$220,00, será que compensa e essa não achei no site de lá.