DaviCN

Ok @Basole, desde já te agradeço.

@Basole to te mandando aqui a minha pasta do excel na versão mais atualizada, no formulario "frminspecao" tentei implementar o codigo fornecido na minha listbox, porém não consegui ter êxito. Desde já agradeço o apoio. SISTEMA IDEO.rar

@Basole vou te mandar aqui a minha pasta do excel, ta um pouco bagunçada porque ainda estou organizando ela, qualquer dúvida com ela só me falar. Maior parte dos arquivos está no formulário frminspecao. Desde já agradeço sua ajuda. SISTEMA CADASTRO.rar adicionado 4 minutos depois Além do mais, é a planilha "ARQUIVO" que está sendo importada para a listbox, no caso parte dela, logo são os itens correspondentes a esta planilha que eu queria que no caso aparecesse quando passasse o mouse sobre elas dentro da listbox

Olá @Basole, primeiramente muito obrigado pela sua dica, o porém é que quando coloquei o codigo adapatando o nome para minha listbox, deu erro na linha que está em negrito falando que o objeto é obrigatório, como não sou experiente em vba não entendi bem o porque. segue o trecho abaixo Private Sub Lst_Busca_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim Position As Long Position = Int(Y / 10) If Position < UserForm.Lst_Busca.ListCount And Position >= 0 Then With Controls("TIPTEXT") .Caption = Me.Lst_Busca.List(Position) .Left = X + 75 .Width = 50 .Top = Y + 35 .Height = 10 End With Controls("TIPTEXT").Visible = True Else Controls("TIPTEXT").Visible = False End If End Sub

Bom dia Pessoal, estou desenvolvendo um sistema de cadastro em vba, tendo como base uma planilha de excel onde estão todas as informações dos individuos que estão incluídos no cadastro, porém quando passo a planilha para o listbox no vba, alguns itens por serem um pouco grandes acabam que não aparecem completo na linha da listbox, logo precisaria saber se teria como de alguma forma fazer com que estes itens apareçam por completo na listbox, sendo cada linha um item especifico, seja por quebra de linhas ou mesmo passando o mouse e apareçendo o item completo. Desde já agradeço. Segue uma parte da listbox no vba.

Boa Tarde Basole, Em qual parte do meu código eu coloco esse exemplo seu com a função find?

Pessoal bom dia, estou desenvolvendo um sistema no vba de cadastro em que após a realização de uma atividade, ela é registrada no sistema de acordo com a data em que foi realizada, e isso eu faço por meio de um filtro, quando eu filtro a data aparece a atividade daquele dia. A minha planilha a data está colocada em colunas, onde cada coluna é um dia do mês em ordem crescente, no meu caso as datas estão da coluna 40 até a 70. O porém é que não estou conseguindo fazer a leitura das datas em cada coluna, apenas uma coluna por vez. Tipo, consigo fazer a leitura da data na coluna 40, mas não consigo fazer pra todo o intervalo de 40 a 70, que pega todos os dias do mês. Gostaria muito da ajuda de vcs. Abaixo segue o código pra esta parte da data que estou desenvolvendo. Private Sub txt_data_Change() Application.ScreenUpdating = False Dim Linha As Integer Dim coluna As Integer Dim LinhaListBox As Integer Dim Valor_data As String Dim W As Worksheet Dim Valor_Pesq As String Valor_Pesq = Me.txt_data Set W = Sheets("ARQUIVO") W.Select LinhaListBox = 0 Linha = 2 coluna = 40 Lst_Busca.Clear With W While .Cells(Linha, 5).Value <> Empty 'For coluna = 40 To 70 Valor_data = .Cells(Linha, coluna).Value If UCase(Valor_data) = UCase(Valor_Pesq) Then With Me.Lst_Busca .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, 5) .List(LinhaListBox, 5) = Cells(Linha, 6) LinhaListBox = LinhaListBox + 1 End With End If Linha = Linha + 1 Wend 'Next coluna End With Me.Registros.Object = Me.Lst_Busca.ListCount & " Registro(s)" Application.ScreenUpdating = True End Sub