PROCURAR VALOR DE LISTVIEW EM PLANILHA

GUIMA 05/09/2010 21:19:43
#352311

Olá,

Estou precisando tirar uma dúvida sobre o objeto Listview, pois estou migrando meus LIstbox para o View.


No Listbox eu utilizo um FIND para procurar os dados similares na planilha e fazer uma soma ou subtração. Ou seja, preciso fazer uma rotina que pesquisa o valor da coluna A do LISTVIEW numa planilha e após achar efetue o valor da coluna A do LISTVIEW menos o valor que encontra-se na planilha. tentei da seguinte forma:


For Y = 0 To ListBox1.ListCount - 1
Set r = Sheets([Ô]BDCQE[Ô]).Range([Ô]C2:C5000[Ô]).Find(What:=Val(ListBox1.List(Y, 0)), After:=Sheets([Ô]BDCQE[Ô]).Range([Ô]C2[Ô]), LookIn:=xlValues, LOOKAT _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)

If Not r Is Nothing Then
Sheets([Ô]BDCQE[Ô]).Range([Ô]E[Ô] & r.Row) = Sheets([Ô]BDCQE[Ô]).Range([Ô]E[Ô] & r.Row) - ListBox1.List(Y, 2)
End If
Next


Qual seria as propriedades semelhante do Listview ? Tentei dessa forma e nao deu certo.

For Y = 1 To LISTA.ListItems.Count - 1

Set r = Sheets([Ô]BDCQE[Ô]).Range([Ô]C2:C5000[Ô]).Find(What:=Val(LISTA.ListItems(Y).SubItems(1)), After:=Sheets([Ô]BDCQE[Ô]).Range([Ô]C2[Ô]), LookIn:=xlValues, LOOKAT _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)

If Not r Is Nothing Then
Sheets([Ô]BDCQE[Ô]).Range([Ô]E[Ô] & r.Row) = Sheets([Ô]BDCQE[Ô]).Range([Ô]E[Ô] & r.Row) - LISTA.ListItems(Y).SubItems(3)
End If


Next

Qual então seria o meio correto de fazer o que hoje no Listbox pelo Listview ?

Abraço e obrigado