Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa resultou em 67 ocorrências
- Qui Mar 01, 2018 9:51 pm
- Fórum: Modelos Prontos
- Tópico: VBA - Preenchendo um listbox com mais de 10 colunas
- Respostas: 13
- Exibições: 13791
Re: VBA - Preenchendo um listbox com mais de 10 colunas
fbzam, com o Listbox acrescentando dados de textbox e combobox, seria mais ou menos assim: With ListBox1 .List(.ListCount - 1, 0) = TextBox1.Text .List(.ListCount - 1, 2) = comboBox1.Text .List(.ListCount - 1, 3) = TextBox2.Text .List(.ListCount - 1, 4) = TextBox3.Text .List(.ListCount - 1, 5) = com...
- Qua Fev 28, 2018 12:45 pm
- Fórum: VBA Básico
- Tópico: TECLA DE ATALHO
- Respostas: 1
- Exibições: 2130
Re: TECLA DE ATALHO
Voce pode usa a propriedade accelerator. referenciando uma letra, por exemplo a letra z, quando seu formulário estiver aberto e apertando as teclas [ Alt+z ], o botão é acionado tomáticamente.
- Qua Fev 28, 2018 12:25 am
- Fórum: VBA Básico
- Tópico: [RESOLVIDO]Pesquisa direto no listview
- Respostas: 3
- Exibições: 2757
Re: Pesquisa direto no listview
Veja se é isso que entendi o que você quer. Ajustei o ComboBox para 2 colunas e carreguei o nome e a data, lado-a-lado. https://s17.postimg.org/tkyz2w39b/combobox.jpg 'CONFIGURA O COMBOBOX With ComboBoxNomePesquisa .ColumnCount = 2 .ColumnWidths = "150 pt;65 pt" .ListWidth = 215 End With W...
- Qui Fev 08, 2018 9:23 am
- Fórum: VBA Básico
- Tópico: NAVEGAR E CADASTRAR INFORMAÇÕES EM GUIAS DO EXCEL PELO COMBOBOX
- Respostas: 2
- Exibições: 2352
Re: NAVEGAR E CADASTRAR INFORMAÇÕES EM GUIAS DO EXCEL PELO COMBOBOX
Segue um exemplo veja se consegue adaptar.
É com Listbox, para selecionar a aba, mas pode substituir por um combobox, com pequenas alterações no código.
É com Listbox, para selecionar a aba, mas pode substituir por um combobox, com pequenas alterações no código.
- Qui Fev 01, 2018 9:10 pm
- Fórum: Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel
- Tópico: APLICATIVO DE CADASTRO
- Respostas: 5
- Exibições: 5871
Re: APLICATIVO DE CADASTRO
Amigo, Aperte as teclas [ ALt+F11 ], e em Ferraemntas>Referencias> E procure por "Microsoft ActiveX Data Objects 2.XXX Library" e MARQUE.
Com isso pelo menos esse erro nao vai aparecer.
Com isso pelo menos esse erro nao vai aparecer.
- Seg Jan 29, 2018 11:26 am
- Fórum: VBA Básico
- Tópico: Erro Listview VBA
- Respostas: 2
- Exibições: 2645
Re: Erro Listview VBA
Mes passado, formatei uma maquina e re-instalei o office, e alguns arquivos que continham userform, apresentaram este erro de falha catastrófica. Após algumas atualizações automáticas do windows ao office, este problema não apareceu mais. De qualquer forma, se puder, anexe o seu arquivo para que pos...
- Seg Jan 29, 2018 8:13 am
- Fórum: Modelos Prontos
- Tópico: Índice/Menu no TreeView
- Respostas: 16
- Exibições: 18057
Re: Índice/Menu no TreeView
Bom dia amigo,
Não, no ambiente 64 bits, não é possivel utilizar o treeview.
Abc.
Não, no ambiente 64 bits, não é possivel utilizar o treeview.
Abc.
- Sex Jan 26, 2018 8:18 am
- Fórum: VBA Básico
- Tópico: AJUSTE AUTOMÁTICO DE USERFORM A RESOLUÇÃO TELAS DESCONHECIDA
- Respostas: 16
- Exibições: 35023
Re: AJUSTE AUTOMÁTICO DE USERFORM A RESOLUÇÃO TELAS DESCONHECIDA
Sim, veja se é isso que precisa.
- Seg Jan 22, 2018 9:06 am
- Fórum: VBA Básico
- Tópico: Macro para ampliar imagem
- Respostas: 1
- Exibições: 2359
Re: Macro para ampliar imagem
Segue abaixo exemplo genérico, veja se consegue adaptar:
Insira esta macro em um modulo padrão e atribui a imagem a esta macro. Ao clicar na imagem, será ampliada e clicando novamente, volta ao normal.
Insira esta macro em um modulo padrão e atribui a imagem a esta macro. Ao clicar na imagem, será ampliada e clicando novamente, volta ao normal.
- Sex Jan 19, 2018 8:05 pm
- Fórum: VBA Básico
- Tópico: ListBox com filtro interno
- Respostas: 2
- Exibições: 2483
Re: ListBox com filtro interno
Veja este exemplo: Altere os nomes dos objetos de acordo com a sua planilha. Dim rng As Range Dim Lr As Long Dim c As Range Dim i As Integer With ActiveSheet Lr = .Cells(Rows.Count, 1).End(xlUp).Row Set rng = .Range("A2:A" & Lr) With Me.ListBox1 .ColumnCount = 8 .ColumnWidths = "6...