mauro quanto aos campo horas sem problema, meu problema esta no campo Me.HorasdeReprocesso.Text na planilha ele esta vazio se fizer alteração nele para qualquer valor ele é armazenado como texto, preciso que ele fica como numero.
Sua dica para os campos de porcentagem também não resolveram ficaram como texto.
Alguma dica de como tratar com campos nulos em valores numericos e porcentagem para não gravar como texto....
Veja o codigo em azul funciona em vermelho preciso fazer funcionar :
Private Sub SalvaRegistro(ByVal id As Long, ByVal indice As Long)
With wsCadastro
.Cells(indice, colCodigo).Value = id
.Cells(indice, colMaquina).Value = Me.Maquina.Text
.Cells(indice, colData).Value = Format(Me.Data.Text, "mm/dd/YY")
.Cells(indice, colHoraInicio).Value = CDbl(Me.HoraInicio.Text)
.Cells(indice, colHoraFim).Value = CDbl(Me.HoraFim.Text)
.Cells(indice, colTotalHora).Value = CDbl(Me.TotalHora.Text)
.Cells(indice, colHorasProducao).Value = CDbl(Me.HorasProducao.Text)
.Cells(indice, colUtilizacao).Value = CDbl(Me.Utilizacao.Text)
.Cells(indice, colUsinagemManual).Value = Me.UsinagemManual.Text
.Cells(indice, colHorasSemOperador).Value = Me.HorasSemOperador.Text
.Cells(indice, colDescontos).Value = CDbl(Me.Descontos.Text)
.Cells(indice, colUtilizacaoFinal).Value = CDbl(Me.UtilizacaoFinal.Text)
.Cells(indice, colTotalHorasFinal).Value = CDbl(Me.TotalHorasFinal.Text)
.Cells(indice, colHorasdeProducao).Value = CDbl(Me.HorasdeProducao.Text)
.Cells(indice, colHorasdeReprocesso).Value = Me.HorasdeReprocesso.Text
.Cells(indice, colPerformance).Value = Me.Performance.Text
.Cells(indice, colDisponibilidade).Value = Me.Disponibilidade.Text
.Cells(indice, colQualidade).Value = Me.Qualidade.Text
.Cells(indice, colOEE).Value = Me.OEE.Text
.Cells(indice, colHoras).Value = CDbl(Me.Horas.Text)
.Cells(indice, colPrincipalMotivo).Value = CVar(Me.PrincipalMotivo.Text)
End With
Call AtualizaRegistroCorrente
End Sub
Postado : 15/11/2011 2:51 pm