Boa noite todos!
Olá Pessoal,
Alguém pode dar uma ajudinha?
Primeiro quero agradecer este fórum todos vocês pela ajuda e aprendizado nestes anos, obrigado.
Estou com este projeto de "Registro de Ocorrência Diária", estou apanhando no carregamento da ListView1.
ao abri o formulário teria que carregar os lançamentos e os lançamento do dia ficar com a cor cinza, loco acima filtro
entre duas dadas para filtragem no mesmo ListView1.
e tenho que criar um código para o relatório ainda.
Segue em anexo toda da Planilha, desde já agradeço.
Obrigado!
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Carregar ListView com dados externo
Re: Carregar ListView com dados externo
Uma luz
Estou escrevendo este código, onde pode esta o erro? para carregar o ListView 1 no formulario2
Sub carregar_dados()
modWorkDB.sbIniciaObjetos
Dim Valor_Celula As String
Dim linha As Integer
linha = 1
Dim LinhaListbox As Integer
LinhaListbox = 0
Do
linha = linha + 1
Valor_Celula = objWsheet.Cells(linha, 1).Text
If Ucse(Left(Valor_Celula, Len(txt_data_inicial.Text))) = UCase(txt_data_inicial.Text) Then
With ListView1
.AddItem
.List(LinhaListbox, 1) = objWsheet.Cells(linha, 1).Text
.List(LinhaListbox, 2) = objWsheet.Cells(linha, 2).Text
.List(LinhaListbox, 3) = objWsheet.Cells(linha, 3).Text
.List(LinhaListbox, 4) = objWsheet.Cells(linha, 4).Text
.List(LinhaListbox, 5) = objWsheet.Cells(linha, 5).Text
.List(LinhaListbox, 6) = objWsheet.Cells(linha, 6).Text
.List(LinhaListbox, 7) = objWsheet.Cells(linha, 7).Text
.List(LinhaListbox, 8) = objWsheet.Cells(linha, 8).Text
.List(LinhaListbox, 9) = objWsheet.Cells(linha, 9).Text
.List(LinhaListbox, 10) = objWsheet.Cells(linha, 10).Text
.List(LinhaListbox, 11) = objWsheet.Cells(linha, 11).Text
.List(LinhaListbox, 12) = objWsheet.Cells(linha, 12).Text
.List(LinhaListbox, 13) = objWsheet.Cells(linha, 13).Text
.List(LinhaListbox, 14) = objWsheet.Cells(linha, 14).Text
.List(LinhaListbox, 15) = objWsheet.Cells(linha, 15).Text
.List(LinhaListbox, 16) = objWsheet.Cells(linha, 16).Text
.List(LinhaListbox, 17) = objWsheet.Cells(linha, 17).Text
.List(LinhaListbox, 18) = objWsheet.Cells(linha, 18).Text
.List(LinhaListbox, 19) = objWsheet.Cells(linha, 19).Text
.List(LinhaListbox, 20) = objWsheet.Cells(linha, 20).Text
End With
LinhaListbox = LinhaListbox + 1
End If
Loop Until objWsheet.Cells(linha, 2).Value = ""
Call Desconecta
End Sub
Estou escrevendo este código, onde pode esta o erro? para carregar o ListView 1 no formulario2
Sub carregar_dados()
modWorkDB.sbIniciaObjetos
Dim Valor_Celula As String
Dim linha As Integer
linha = 1
Dim LinhaListbox As Integer
LinhaListbox = 0
Do
linha = linha + 1
Valor_Celula = objWsheet.Cells(linha, 1).Text
If Ucse(Left(Valor_Celula, Len(txt_data_inicial.Text))) = UCase(txt_data_inicial.Text) Then
With ListView1
.AddItem
.List(LinhaListbox, 1) = objWsheet.Cells(linha, 1).Text
.List(LinhaListbox, 2) = objWsheet.Cells(linha, 2).Text
.List(LinhaListbox, 3) = objWsheet.Cells(linha, 3).Text
.List(LinhaListbox, 4) = objWsheet.Cells(linha, 4).Text
.List(LinhaListbox, 5) = objWsheet.Cells(linha, 5).Text
.List(LinhaListbox, 6) = objWsheet.Cells(linha, 6).Text
.List(LinhaListbox, 7) = objWsheet.Cells(linha, 7).Text
.List(LinhaListbox, 8) = objWsheet.Cells(linha, 8).Text
.List(LinhaListbox, 9) = objWsheet.Cells(linha, 9).Text
.List(LinhaListbox, 10) = objWsheet.Cells(linha, 10).Text
.List(LinhaListbox, 11) = objWsheet.Cells(linha, 11).Text
.List(LinhaListbox, 12) = objWsheet.Cells(linha, 12).Text
.List(LinhaListbox, 13) = objWsheet.Cells(linha, 13).Text
.List(LinhaListbox, 14) = objWsheet.Cells(linha, 14).Text
.List(LinhaListbox, 15) = objWsheet.Cells(linha, 15).Text
.List(LinhaListbox, 16) = objWsheet.Cells(linha, 16).Text
.List(LinhaListbox, 17) = objWsheet.Cells(linha, 17).Text
.List(LinhaListbox, 18) = objWsheet.Cells(linha, 18).Text
.List(LinhaListbox, 19) = objWsheet.Cells(linha, 19).Text
.List(LinhaListbox, 20) = objWsheet.Cells(linha, 20).Text
End With
LinhaListbox = LinhaListbox + 1
End If
Loop Until objWsheet.Cells(linha, 2).Value = ""
Call Desconecta
End Sub