×
Ir ao conteúdo
  • Cadastre-se

marcospires1

Membro Júnior
  • Posts

    18
  • Cadastrado em

  • Última visita

Reputação

0

Informações gerais

  • Cidade e Estado
    Curitiba
  1. Perfeito @Midori funcionou de boa. Obrigado pela atenção.
  2. @Midori se não me engano é este, não estou com o pc que está dando o erro aqui comigo. Confirmei é esse mesmo.
  3. @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
  4. @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
  5. @Midori Funcionou perfeitamente. Muito obrigado Midori.
  6. @Midori Boa noite, obrigado desde já com a ajuda. Segue PLANILHA PEDIDO.rar
  7. 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?
  8. @Basole perfeito, muito obrigado pela ajuda Abraço
  9. @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
  10. @Basole Não funcionou. Ele salva somente com o nome "Pedido". Não puxa nenhuma informação.
  11. 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
  12. 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.
  13. 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
  14. 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á.

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...

Como ganhar dinheiro montando computadores!

MINICURSO GRÁTIS!

Como ganhar dinheiro montando computadores!

CLIQUE AQUI E INSCREVA-SE AGORA MESMO!