Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa resultou em 98 ocorrências
- Qui Jul 31, 2014 4:00 pm
- Fórum: VBA Básico
- Tópico: Ocultar Faixa de Opções
- Respostas: 6
- Exibições: 6646
Re: Ocultar Faixa de Opções
Boa tarde! Tente isso! Cole em EstaPasta_de_Trabalho Private Sub Workbook_Open() Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" Application.DisplayFormulaBar = False Application.DisplayStatusBar = Not Application.DisplayStatusBar ActiveWindow.DisplayWor...
- Ter Jul 29, 2014 8:16 am
- Fórum: VBA Básico
- Tópico: Como definir a Função LoadPicture?
- Respostas: 9
- Exibições: 8338
Re: Como definir a Função LoadPicture?
lovinho2000,
Bom dia!
Teria como você anexar o seu modelo para verificarmos dentro do código que você está usando?
Fica mais fácil lhe ajudar!!!
Att,
Bom dia!
Teria como você anexar o seu modelo para verificarmos dentro do código que você está usando?
Fica mais fácil lhe ajudar!!!
Att,
- Seg Jul 28, 2014 11:48 am
- Fórum: Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel
- Tópico: graficos e magro deixando excel lento
- Respostas: 9
- Exibições: 6233
Re: graficos e magro deixando excel lento
brunobyly,
bom dia!
Não sei se entendi direito, mais tente:
Att,
bom dia!
Não sei se entendi direito, mais tente:
Código: Selecionar todos
Sub Teste()
UserForm1.Show
End Sub
- Seg Jul 28, 2014 11:34 am
- Fórum: Freelancers e Serviços
- Tópico: ORÇAMENTO VBA EXCEL
- Respostas: 2
- Exibições: 4311
Re: ORÇAMENTO VBA EXCEL
arturcesar04,
Bom dia!
Já tem um modelo de como deseja?
Se sim, mande para o meu email: m-m@r7.com
Att,
Bom dia!
Já tem um modelo de como deseja?
Se sim, mande para o meu email: m-m@r7.com
Att,
- Sáb Jul 26, 2014 5:32 pm
- Fórum: VBA Básico
- Tópico: Problema Comunicação Impressora
- Respostas: 3
- Exibições: 3391
Re: Problema Comunicação Impressora
romanholi, boa tarde!
Inclua esse código antes da linha "Application.PrintCommunication = True"
Faça o teste!!!
Att,
Inclua esse código antes da linha "Application.PrintCommunication = True"
Código: Selecionar todos
On Error Resume Next
Att,
- Qui Abr 24, 2014 2:02 pm
- Fórum: VBA Básico
- Tópico: AJUDA - BANCO DE DADOS DEPARTAMENTO PESSOAL
- Respostas: 2
- Exibições: 2285
Re: AJUDA - BANCO DE DADOS DEPARTAMENTO PESSOAL
david.sps,
Boa tarde!
Veja se é exatamente o que precisa.
Att,
Boa tarde!
Veja se é exatamente o que precisa.
Att,
- Sáb Mar 29, 2014 4:39 pm
- Fórum: VBA Básico
- Tópico: Erro em Macro
- Respostas: 4
- Exibições: 3671
Re: Erro em Macro
Boa tarde Edudinha!
Pelo o que entendi faça o seguinte:
Altere esta linha:
linha = ActiveCell.Row - 1
If Target.Address = "$K,R$" & linha Then
Att,
Pelo o que entendi faça o seguinte:
Altere esta linha:
por esta:
linha = ActiveCell.Row - 1
If Target.Address = "$K$" & linha Then
linha = ActiveCell.Row - 1
If Target.Address = "$K,R$" & linha Then
Att,
- Qui Fev 20, 2014 8:13 am
- Fórum: Geral
- Tópico: RETIRAR UM ITEM DO LISTBOX1 [RESOLVIDO]
- Respostas: 5
- Exibições: 10147
Re: RETIRAR UM ITEM DO LISTBOX1
Hercules, Bom dia! Substitua o último código por este: Private Sub listbox1_Click() Dim indice indice = listbox1.listIndex + 2 'Verifica qual a linha esta seleciona no listbox e incremeta mais +2 If MsgBox("Deseja excluir este item ?", vbExclamation + vbYesNo) = vbYes Then Rows(indice).Del...
- Qui Fev 06, 2014 3:04 pm
- Fórum: Geral
- Tópico: Como localizar data em determinado local da planilha.
- Respostas: 2
- Exibições: 2413
Re: Como localizar data em determinado local da planilha.
Paolo,
Boa tarde!
Poste o seu exemplo aqui (dados fictícios)compactado para que fique mais fácil a solução do seu problema.
Att,
Boa tarde!
Poste o seu exemplo aqui (dados fictícios)compactado para que fique mais fácil a solução do seu problema.
Att,
- Qui Jan 30, 2014 6:48 am
- Fórum: Geral
- Tópico: Erro tempo de execução ao utilizar listbox
- Respostas: 6
- Exibições: 4915
Re: Erro tempo de execução ao utilizar listbox
nilson rafael,
bom dia!
Segue um exemplo mais completo para você estudar!
Att,
bom dia!
Segue um exemplo mais completo para você estudar!
Att,