Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Erro Tipo Incompatí...
 
Notifications
Clear all

Erro Tipo Incompatíveis ao carregar ListVeiw

 
2024 - VBA & Macros
Post Recente por m_araujo 13 anos atrás
9 Posts
2 Usuários
0 Reactions
2,208 Visualizações
RSS
 m_araujo
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

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

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 18/02/2012 9:40 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Enquanto os especialista não respondem, poste seu arquivo, e deixe mais detalhes do erro!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/02/2012 9:51 am
 m_araujo
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Boa tarde Alexandre,
Obrigado por responder segue em anexo o arquivo
o trexo do condigo que adiocionei no inicio da postagem esta no INICIALIZAR DO FORM ESTOQUE SOJA
obrigado

At.
Marcelo Araujo

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 18/02/2012 12:53 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!!

Vou verificar e depois retorno!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/02/2012 12:57 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Araujo, o problema de Tipos Incompativeis, é devido os valores na aba "Produção" coluna "PESO LQ" estarem armazenados com "TEXTO" e não Numeros, desta forma temos de convertelos para poder Soma-los, sendo assim adicione no inicio da rotina :

Private Sub UserForm_Initialize()
Dim STOTALBTENTRADA As Double

With LstEntrada
.............
......................
..........................
Depois troque a linha abaixo :
STOTALBTENTRADA = STOTALBTENTRADA + Sheets("Producao").Cells(Lin, PESOLIQENTRADA).Value
por esta :
STOTALBTENTRADA = STOTALBTENTRADA + CDbl(Sheets("Producao").Cells(Lin, PESOLIQENTRADA).Value)

Ajuste as outras variaveis da mesma forma.

Para entender melhor d]sobre a Funções de Tipos de Variaveis, de uma olhada no link abaixo :
Lição 14: Funções do VBA - Funções de Tipo - Parte 1
http://www.juliobattisti.com.br/cursos/ ... icao14.asp

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/02/2012 1:39 pm
 m_araujo
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Opa!! Mauro .. obrgiado mais uma vez hem cara vlw mesmo
funcionou que uma beleza, ficou perfeito
obrigado, e tambem obrigado Alexandre
to aprendendo muito com vocês aqui.. vlw mesmo

Mauro aproveitando se tu baixo o arquivo teria como tu me dar uma ajuda na aba LISTA DE SAIDA do meu projeto
tem o seguinte, quero imprimir por CONTRATANTE E POR DATA
teria como gerenciar isso, tipo quando eu mandar imprimir eu seleciona um intervalo de data e um contratante X e eu imprimir somente
Entede.. no mais muito obrigado

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 18/02/2012 2:46 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!!

M_araujo, me desculpa por não ter te ajudado mas, ainda bem que o mestre mauro o fez!!

Caso queira minha opinião para sua pergunta seria melhor, abrir outro tópico.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/02/2012 3:55 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Araujo, como o Alerxandre disse, se este tópico foi solucionado, adicione "Resolvido" e abra um novo para esta nova duvida.

Quando abrir, reveja suas abas no arquivo que anexou, pois não localizei a "aba LISTA DE SAIDA", só as abas : "Saida, Contratos, ResumoEstoque, Producao, etc..."

Uma outra obs, como a nova questão se refere ao mesmo arquivo, não será necessário anexa-lo novamente, é só citar em qual tópico o mesmo está anexado, assim evitamos de ficar repetindo anexos e economizamos espaço no servidor.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/02/2012 4:01 pm
 m_araujo
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Opa tudo bem Mauro obrigado..

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 19/02/2012 6:40 am
Forum Jump:
  Tópico Anterior
Próximo Tópico