Ir ao conteúdo
  • Cadastre-se

Juliana Pereira Dias

Membro Júnior
  • Posts

    11
  • Cadastrado em

  • Última visita

Reputação

1
  1. @CasaDoHardware Gostaria que aparecesse no menu "Tipo" apenas o "PDF" e "Pasta de Trabalho Habilitada para Macro do Excel" para evitar que as pessoas que usarão a tabela salvem em outros formatos. Anexei uma imagem do lugar onde aparece o tipo. Obrigada.
  2. Boa tarde, Encontrei a macro abaixo que salva em .xlsm e .pdf, porém quando abre a janela de salvar preciso colocar no nome do arquivo o .xlsm ou o .pdf. Gostaria de saber se é possível ao clicar em Salvar / Salvar como apareça no "tipo" apenas o "Arquivo de excel habilitado para macro" e o "PDF", para que eu não tenha que colocar o formato no nome do arquivo. Neste código aparece apenas "All Files". O arquivo será utilizado por varias pessoas, então não preciso determinar o nome do arquivo e nem a pasta que será salvo. Obrigada!!! Juliana Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim vFilename As Variant 'Disable events so "new save" doesn't re-trigger this event Application.EnableEvents = False If SaveAsUI = True Then ' User selected SaveAs instead of Save Cancel = True ' Cancel the user's original save action 'Application.DisplayAlerts = False 'Simulate built in "SaveAs", Use desired "IntialFilename" & filter vFilename = Application.GetSaveAsFilename(fileFilter:="All Files (*.*), *.*", Title:="Save As: XLSM or PDF Only!") ' If vFilename <> False Then 'Check to see if user is trying to save as .xlsm, .pdf, or other If Right(vFilename, 5) = ".xlsm" Then 'Save file with desired parameters ThisWorkbook.SaveAs FileName:=vFilename, FileFormat:=xlOpenXMLWorkbookMacroEnabled ElseIf Right(vFilename, 4) = ".pdf" Then 'Export PDF with selected filename ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=vFilename, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False Else 'Alert user and do not save MsgBox "This workbook can only be saved in .xlsm or .pdf formats. Please try again." End If End If Debug.Print vFilename Application.DisplayAlerts = True End If 'Re-enable events Application.EnableEvents = True End Sub
  3. @osvaldomp Aeeeee!!!! Agora simmmmmmmm!!!!!!! Muitíííííssiiiiimoooooo obrigada!!! Em relação a não estar carregando todos os códigos eu já havia percebido e arrumado. Eu fiz caca quando fui alterar um negocio na macro. Obrigada pela paciência!!!! =)
  4. @osvaldomp Estou utilizando a planilha que você me enviou, nem passei o código para a minha. Se eu navegar pela barra de rolagem do Form e selecionar com a seta do mouse da certo, porém se eu uso a seta do teclado para descer ele insere na planilha todos os itens pelo qual eu passei ate chegar no que eu queria. Inseri uma imagem para você entender. O exemplo que eu dei é como se eu estivesse procurando um item "6mm 2,44" porém eu queira selecionar o ultimo item que aparece dentre as opções que ele achou. Fui com as setas do teclado até ele. Na tabela ao fundo ele preencheu as linhas com os itens pelo qual eu passei. É pra acontecer isso? Pode ter alguma coisa a ver com a versão que estou usando? Ou eu devo usar apenas o mouse pra rolar a barra do listbox?
  5. Deu pra entender ou eu to muito confusa ainda? Rsrs @danilo331 Quase... Estamos nos aprimoramentos! Rsrsrs
  6. Vamos lá... @osvaldomp Diga-me se é possível uma coisa... Dar os 2 cliques para carregar o Form e digitar parte do produto a ser procurado esta Ok... Na empresa utilizamos muito as setas para baixo e para cima para procurar o produto, mesmo digitando parte dele, pois temos produtos com especificações muito parecidas, seria possível navegar pela listbox com as setas sem ela selecionar o produto, e apenas selecionar e ir para célula abaixo se eu apertar enter? e que fique com o form aberto da forma que você deixou, para que eu possa fazer varias seleções, e feche quando eu aperte ESC. Acho que compliquei demais né? Veja se entendeu o que eu quis dizer... Obrigada e Parabéns novamente pelo trabalho que você fez!
  7. @osvaldomp Estou tentanto baixar o arquivo desde ontem, mas quando abre a pagina da um erro, poderia me enviar por email pra eu dar uma olhada? Obrigada!
  8. Valeu a dica @osvaldomp... O problema é que tenho muito itens com nomes parecidos, então quando começo a digitar o nome a tendencia é eu andar com a seta para baixo e escolher com a seta o produto... e na hora que eu desço com a seta ele escolhe o primeiro item da lista! Por isso a questão do "enter"... rsrsrs
  9. @CasaDoHardware Valeu por enquanto... Já ajudou bastante! Mas se alguém conseguir o lance do "Enter" darei pulinhos de alegria! rsrsrs
  10. Boa noite galera, Estou em uma batalha com uma USERFORM. A tabela ficou do jeitinho que eu queria, porém quando clico 2x na coluna C para inserir produto e abre a ListBox, só consigo fecha-la no (X), gostaria de saber se é possível escolher o produto na lista e apertar enter. Já tentei com o Unload Me, e a listbox fecha só de mover a seta para baixo e seleciona o primeiro produto da lista. Gostaria de escrever o produto na textbox, e poder descer com a seta e apertar enter para selecionar e fechar a caixa. Será que to pedindo demais?! Rsrs Segue link com o arquivo. http://www.4shared.com/file/tRCNW0tNba/Modelo_Proposta_Comercial_2016.html Obrigada, Juli Modelo_Proposta Comercial_2016.xltm.xlsm

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