Pesquisar na Comunidade

Gleyson 0 Publicado 3 horas atrás Como criar um formulário onde tenha um Combobox de cargos... em que ele abre uma ListBox com os nomes dos Cargos... podendo clicar em várias linhas (ao mesmo tempo) da ListBox para excluir alguns cargos e apagar na Planilha?

Olá, sou iniciante no VBA e gostaria de criar um formulário de preenchimento de uma linha para um Fluxo de Caixa Diário, contendo essas informações, o que eu gostaria de de fazer é: Alterar a "Fonte" da ListBox "Item", de acordo com o Option Button selecionado (Entrada e Saída), fazendo com que a ListBox mostrasse a lista de Entradas se o Button de Entradas for selecionado, a mesma coisa c om o ListBox de Saídas. Em uma das imagens há um código que pega as células para aparecer na ListBox (de um dos tutoriais da Hashtag Treinamentos), se possível aproveitá-lo... Se alguém puder me dar uma explicação de como posso fazer ou tiver uma maneira melhor de fazer eu agradeço! Abraços!

Tenho um formulário que cadastra um contato de uma empresa com os seguintes campos: nome, cargo, telefone, email. Até ai ok, porém, quero fazer algo que funcione da seguinte forma: Vou preencher os campos do meu formulário: Empresa: Empresa Teste Nome: Fernando Cargo: Analista Telefone: 999999999 Email: teste@teste.com Após fazer o preenchimento vou clicar em um botão "Inserir registro" e ele deverá salvar na planilha, isso já está funcionando perfeitamente. A minha dúvida é a seguinte: Preciso inserir um ListBox abaixo desse meu formulário que após eu clicar no botão Inserir Registro irá carregar nele somente o que for referente a empresa "Empresa Teste" Exemplo: Empresa: Empresa Teste Nome: Fernando Cargo: Analista Telefone: 999999999 Email: teste@teste.com "Clico" no botão Inserir Registro ListBox Contatos cadastrados para cliente Fernando Nome Cargo Telefone Email Fernando Analista 999999999 teste@teste.com Joaquim Gerente 101010101 teste2@teste.com

Meus amigos, boa noite! Estou com uma listbox carregando apenas a primeira e ultima linha da planilha e as demais ficam em branco. já alterei algumas propriedades da listbox e até fiz um novo arquivo e não encontrei o erro. O código eu peguei comparei com outros e é bem simples. Podem me ajudar? Sub Filtro_Acumulado() linha = 1 linhalisbox = 0 Me.LBOrcadoRealizado.ColumnWidths = "80;70;70;80" Do Until Sheets("BANCO_DE_DADOS").Cells(linha, 1) = "" With Me.LBOrcadoRealizado .AddItem .List(linhalistbox, 0) = Sheets("BANCO_DE_DADOS").Cells(linha, 1) .List(linhalistbox, 1) = Sheets("BANCO_DE_DADOS").Cells(linha, 2) .List(linhalistbox, 2) = Sheets("BANCO_DE_DADOS").Cells(linha, 3) .List(linhalistbox, 3) = Sheets("BANCO_DE_DADOS").Cells(linha, 4) End With linha = linha + 1 'soma ela mesma, pula para próxima linha linhalistbox = linhalisbox + 1 Loop End Sub

ME AJUDA O QUE PODE TA ERRADO NO MEU CODIGO QUANDO ADICIONO: .List(linhalistbox, 10) = Sheets("Dados").Cells(linha, 66), DA ERRO Private Sub buscar_valores() Dim guia As Worksheet Dim linha As Integer Dim coluna As Integer Dim linhalistbox As Integer Dim valor_celula As String Dim conta_registros As Integer Set guia = ThisWorkbook.Worksheets("Dados") 'segunda guia da planilha linha = 2 coluna = 57 'coluna da busca na planilha linhalistbox = 0 conta_registros = 0 ListBox1.Clear With guia While .Cells(linha, coluna).Value <> Empty valor_celula = .Cells(linha, coluna).Value 'If UCase(Left(valor_celula, Len(valor_pesquisado))) = UCase(valor_pesquisado) Then If InStr(1, UCase(valor_celula), Trim$(UCase(valor_pesquisado))) > 0 Then With ListBox1 .AddItem .List(linhalistbox, 0) = Sheets("Dados").Cells(linha, 57) .List(linhalistbox, 1) = Sheets("Dados").Cells(linha, 58) .List(linhalistbox, 2) = Sheets("Dados").Cells(linha, 59) .List(linhalistbox, 3) = Sheets("Dados").Cells(linha, 67) .List(linhalistbox, 4) = Sheets("Dados").Cells(linha, 60) .List(linhalistbox, 5) = Sheets("Dados").Cells(linha, 61) .List(linhalistbox, 6) = Sheets("Dados").Cells(linha, 62) .List(linhalistbox, 7) = Sheets("Dados").Cells(linha, 63) .List(linhalistbox, 8) = Sheets("Dados").Cells(linha, 64) .List(linhalistbox, 9) = Sheets("Dados").Cells(linha, 65) '.List(linhalistbox, 10) = Sheets("Dados").Cells(linha, 66) linhalistbox = linhalistbox + 1 conta_registros = conta_registros + 1 End With End If linha = linha + 1 Wend End With lbl_registros = ListBox1.ListCount End Sub

Olá! Sou novo no fórum e em VB... Estava tentando criar um sistema de filtros utilizando 3 combobox. Estava tentando usar if, select case, etc.. porém pra o que eu quero, está ficando muito confuso e o código gigantesco, sem falar em pequenos erros. Gostaria de que alguém que saiba pudesse me ajudar a criar esse filtro utilizando um banco de dados, por exemplo do access ou sql... O filtro funciona assim: Combobox1, 2 e 3 tem por padrão o item "Qualquer" Combobox1: Seleciona se é Veículo ou Pessoa Combobox2: Se caso Combobox1 for Veículo ira selecionar automaticamente o item "Qualquer", listar as Categorias de cada Veículo: Passeio, Trabalho, Hach... Se for Pessoa ira listar o sexo: Masculino, Feminino Combobox3: Se caso Combobox1 for Veículo aparecerá os fabricantes: Ford, Chevrolet... Se caso combobox1 for Pessoa, o combobox 3 será inutilizado Listbox1: Vai aparecendo os nomes dos Veículos ou Pessoas conforme for filtrando... Outro exemplo: Se o usuário selecionar Veículo no Combobox1 e Ford no Combobox3 aparecerá no listbox todos os carros da Ford Se o usuário selecionar Veículo no Combobox1 e Passeio no Combobox2 aparecerá no listbox todos os carros de Passeio independente da marca (pois Combobox3, Fabricante, não foi selecionado e está no item "Qualquer") Se o usuário selecionar Veículo no Combobox1 e Passeio no Combobox2 e Ford no Combobox3 aparecerá no listbox todos os carros de Passeio da Ford. Emfim... tentei dar um exemplo do que estou tentando fazer. Até funcionou com If, e select case, porém como disse fica complexo, código grande e com erros. Como sou novo em VB e Banco de Dados estou com dificuldades. Comecei a criar um banco no access com a lista de carros pessoas, mas estou meio perdido ainda... Desde já obrigado! ^_^