rafacba87

Boa tarde, Fiz uma procura no forum e não achei nada concreto. Tenho um projeto VBA com alguns formulários contendo textbox, listbox etc. No meu notebook o formulário fica certinho, mas por exemplo, no pc do trabalho ja fica todo cortado faltando textbox. Como faço para redimensionar o formulário e seus componentes (listbox, textbox, etc) automaticamente de acordo com a resolução do monitor?

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, Pessoal Fiz um código para carregar uma foto em uma image no vba, no Excel 2010 funciona tudo certo, mas no Excel 2007 (uma máquina mais antiga) da um erro de automação e de tempo de execução. Alguém sabe como resolve isso?

Bom dia, pessoal Eu criei um formulário com uma listbox que carrega dados de uma planilha, bem como, um combobox e uma textbox, no combobox eu seleciono a coluna que eu quero pesquisar (2 - Nome), usando a formula left(combobox.value, 1) para selecionar a coluna 2. O código que carrega dados na listbox funciona beleza, eu utilizo ele no evento initialize do formulário. O problema esta nesse código, ele não da erro, porém quando eu começo a digitar algo na textbox os dados da listbox somem e não carrega mais nada. Private Sub TEXTBOX_PESQUISA_Change() Dim Linha As Integer Dim Coluna As Integer Dim LinhaListbox As Integer Dim Valor_Nome As String Dim W As Worksheet Dim Valor_Pesq As String Valor_Pesq = Me.TEXBOX_PESQUISA Set W = Sheets("Contas à Receber") W.Select LinhaListbox = 0 Linha = 2 Coluna = Left(Me.Combox_CAR_Pesquisa.value, 1) Me.LISTBOX_CAR_PESQUISA.Clear With W While .Cells(Linha, Coluna).Value <> Empty Valor_Nome = .Cells(Linha, Coluna).Value If UCase(Valor_Nome) = UCase(Valor_Pesq) Then With Me.LISTBOX_CAR_PESQUISA .AddItem .List(LinhaListbox, 0) = Cells(Linha, 1) .List(LinhaListbox, 1) = Cells(Linha, 2) .List(LinhaListbox, 2) = Cells(Linha, 3) .List(LinhaListbox, 3) = Cells(Linha, 4) .List(LinhaListbox, 4) = Cells(Linha, 6) .List(LinhaListbox, 5) = Format(Cells(Linha, 7), "currency") .List(LinhaListbox, 6) = Format(Cells(Linha, 8), "currency") .List(LinhaListbox, 7) = Format(Cells(Linha, 9), "currency") .List(LinhaListbox, = Format(Cells(Linha, 10), "currency") .List(LinhaListbox, 9) = Cells(Linha, 13) LinhaListbox = LinhaListbox + 1 End With End If Linha = Linha + 1 Wend End With Me.Label_CAR_CONTREG = Me.LISTBOX_CAR_PESQUISA.ListCount & " Título(s) Encontrado(s)"

Bom dia, pessoal Minha dúvida vba é a seguinte; tenho um formulário e quero que a textbox vencimento preencha automático conforme a textbox emissão, até ai tudo bem, eu consegui fazer de forma simples. o problema é a edição, se eu quiser colocar outra data na textbox vencimento quando eu aperto tab ela volta a ser igual a textbox emissão, como consigo fazer isso, pra ser igual porém se eu quiser editar eu consiga? Obrigado

Bom dia, Gostaria de saber se tem um código vba que abre a caixa de diálogo, você escolhe um determinado arquivo de qualquer extensão e cole o diretório do arquivo completo em uma determinada celula da planilha ou em um textbox. Tentei esse aqui mas não deu certo <> Caminhodoarquivo = Application.GetOpenFilename(filefilter:="(*.*),", _ MultiSelect:=False) TextBox1.text = caminhodoarquivo <>

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

Boa tarde, Ao digitar no Executar: mstsc /v:nomedocomputador e dar ok eu acesso remoto normalmente, só que eu queria digitar no executar um comando que além de abrir o acesso remoto, abrisse um deterninado programa também. por exemplo: mstsc /v:nomedocomputador c:\arquivo de programas\programa.exe Alguém sabe se tem jeito?

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