rafacba87

No sub_btn_novo_click tem um código que realiza várias funçoes. Quero que ao apertar F1, o comando clicar do btn_novo ativasse. Um atalho tipo o "ctrl + P" para imprimir. Com o código acima eu consigo fazer isso no evento keyup, porém, somente quando o botão está em foco (setfocus) - (Tabindex)

Bom dia, Preciso de uma ajuda. Queria que quando apertasse F1 no formulário, clicasse em um botão de comando. Tentei esse código aqui. SUB BTN_NOVO(keyup) SELECT CASE KEYCODE CASE 112 CALL BTN_NOVO_CLICK END SELECT END SUB porém, esse código so funciona se o foco (setfocus) estiver no botão de comando. Alguém tem outra solução?

Bom dia, Bom dia, A ideia era que se marcasse um botão de opções1 (controle activex) executasse a macro1, se marcasse o outro botão de opção2 executasse a macro2. O que eu estou fazendo de errado? Sub BTNDEOPCOES_CLICK() If optionbutton1.select Then Call Macro1 End If If optionbutton2.select Then Call Macro2 End If End Sub

Muito obrigado! Tinha tentando com "and" na de cima e não deu certo, mas na de baixo funcionou beleza. Valeu

Bom dia, Seguinte, eu tenho na célula G1 a data do lançamento e na Célula G3 o número da empresa, fiz uma macro assim Sub Button_DataLancamento_Numeroempresa_Gerar.txt If Range("G1") = "" or Range("G3") = "" then Msgbox "Favor preencher data do lançamento ou número da empresa conforme cadastro no sistema" End If 'Até aqui tudo ok, mas quando chego aqui If Range("G1") <> "" or Range("G3") <> "" then Call Macro1 End If End sub 'Se uma dessas duas celulas estiverem preenchidas e a outra não, executa a macro. E eu quero que só execute a macro se as duas células estiverem preenchidas, diferente de "" . Alguém sabe como resolve isso?

@miniCheed Isso eu sei, o que eu não estou conseguindo é escolher a aba que eu quero no macro que você postou acima, ele copia a aba ativa, e nem abrir a caixa para salvar ao invés de abrir o notepad e copiar. Mas obrigado de qualquer forma!

Exatamento isso. Muito Obrigado Sou iniciante, nessa macro como eu faço pra escolher a aba q ele vai copiar? porque o comando é dado em abas diferentes, e na macro copia a planilha ativa. adicionado 58 minutos depois E depois retorne a planilha onde executei o macro. E ao invés de abrir o notepad e colar, ele abra a caixa de salvar com um nome definido. f ileSaveName = Application.GetSaveAsFilename( _ InitialFileName:="C:\DEFINIRNOMEPADRAO" + _ ".txt", _ fileFilter:="Text Files (*.txt), *.txt") adicionado 59 minutos depois Não consegui encaixar esses comandos na tua macro. =/

adicionado 5 minutos depois miniCheed - Na imagem acima mostra a aba que é para ser copiada no .txt (bloco de notas). O que eu quero é que a ultima celula preenchida, no caso ai a 71, mas como tem formulas pra baixo, ele copia até onde tem. Vou tentar fazer do jeito que você explicou, porém com a caixa para salvar e com o nome pré-definido igual na que eu postei.

Boa tarde Essa macro abaixo seleciona uma determinada aba copia e salva a mesma em .txt, porém copia ela toda (até onde tem formula), e eu quero que copie até onde tem células NÃO vazias. Acredito que a mudança deve ser feita na parte de negrito. Alguém pode me ajudar? Sub EXPORTAR() Application.DisplayAlerts = False template_file = ActiveWorkbook.FullName fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:="C:\CTBIL" + _ ".txt", _ fileFilter:="Text Files (*.txt), *.txt") If fileSaveName = False Then Exit Sub End If Dim newBook As Workbook Dim plan As Worksheet Set newBook = Workbooks.Add ThisWorkbook.Worksheets("CTBIL.txt").Copy Before:=newBook.Sheets(1) For Each plan In newBook.Sheets If plan.Name <> ActiveSheet.Name Then newBook.Worksheets(plan.Index).Delete End If Next newBook.SaveAs Filename:= _ fileSaveName, FileFormat:=xlTextWindows, _ CreateBackup:=False newBook.Close SaveChanges:=True Set newBook = Nothing MsgBox "O arquivo foi exportado com sucesso! ", vbInformation, "Exportar arquivos" End Sub