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"
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
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"
Boa tarde!!!
Vou verificar e depois retorno!
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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
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"
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
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
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"