Bom dia pessoal,
preciso de uma grande ajuda, o projeto funciona perfeitamente
do que eu preciso deltar uma unica linha na planinha correspondente ao listview quando vai carregar o listview fica dando esser
TIPO INCOMPATÍVEIS e não carrega eu achei o erro so que não conseguir tratar o mesmo segue a baxio o codigo

With LstEntrada
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
.ColumnHeaders.Add Text:="ID", Width:=20
.ColumnHeaders.Add Text:="Data", Width:=75, Alignment:=2
.ColumnHeaders.Add Text:="Placa", Width:=55, Alignment:=2
.ColumnHeaders.Add Text:="Peso Bruto", Width:=90, Alignment:=2
.ColumnHeaders.Add Text:="Tara", Width:=75, Alignment:=2
.ColumnHeaders.Add Text:="Peso Liq.", Width:=90, Alignment:=2
.ColumnHeaders.Add Text:="Umid.", Width:=45, Alignment:=2
.ColumnHeaders.Add Text:="Imp.", Width:=45, Alignment:=2
.ColumnHeaders.Add Text:="Total Descontos.", Width:=90
.ColumnHeaders.Add Text:="Peso Liq. Corrig..", Width:=90
.ColumnHeaders.Add Text:="Sacas", Width:=90
.ColumnHeaders.Add Text:="Lote", Width:=45
.ColumnHeaders.Add Text:="Armazem", Width:=25

End With

' Adiciona itens a lista
Lin = 2
Do Until Sheets("Producao").Cells(Lin, ID) = ""
Set li = LstEntrada.ListItems.Add(Text:=Sheets("Producao").Cells(Lin, ID).Value)
li.ListSubItems.Add Text:=Sheets("Producao").Cells(Lin, DATAENTRADA).Value
li.ListSubItems.Add Text:=Sheets("Producao").Cells(Lin, PLACADEENTRADA).Value
li.ListSubItems.Add Text:=FormatNumber(Sheets("Producao").Cells(Lin, PESOBRUTOENTRADA).Value, 2)
li.ListSubItems.Add Text:=FormatNumber(Sheets("Producao").Cells(Lin, TARADEENTRADA).Value, 2)
li.ListSubItems.Add Text:=FormatNumber(Sheets("Producao").Cells(Lin, PESOLIQENTRADA).Value, 2)
STOTALBTENTRADA = STOTALBTENTRADA + Sheets("Producao").Cells(Lin, PESOLIQENTRADA).Value se eu remo essa variavel de soma o liste view carrega normalmente como deveria mais o contrario continua dando erro
li.ListSubItems.Add Text:=FormatNumber(Sheets("Producao").Cells(Lin, UMIDADEENTRADA).Value, 1)
li.ListSubItems.Add Text:=FormatNumber(Sheets("Producao").Cells(Lin, IMPUREZAETNRADA).Value, 1)
li.ListSubItems.Add Text:=FormatNumber(Sheets("Producao").Cells(Lin, TOTALDESCONTOENTRADA).Value, 2)
li.ListSubItems.Add Text:=FormatNumber(Sheets("Producao").Cells(Lin, PESOLIQCORRIGIDOENTRADA).Value, 2)
STOTALLQENTRADA = STOTALLQENTRADA + Sheets("Producao").Cells(Lin, PESOLIQCORRIGIDOENTRADA).Valuee eu remo essa variavel de soma o liste view carrega normalmente como deveria mais o contrario continua dando erro
li.ListSubItems.Add Text:=Sheets("Producao").Cells(Lin, TOTALDESACASENTRADA).Value
li.ListSubItems.Add Text:=Sheets("Producao").Cells(Lin, LOTEENTRADA).Value
li.ListSubItems.Add Text:=Sheets("Producao").Cells(Lin, ARMAZEMENTRADA).Value
Lin = Lin + 1
Loop
TxtTotalEntradaLq.Value = FormatNumber(STOTALLQENTRADA, 2)
TxtProduzidoBtE.Value = FormatNumber(STOTALBTENTRADA, 2)

Alguem poderia me ajudar
desde ja agradeço a todos

At.
Marcelo Araujo