Buenos dias, estoy haciendo un programa en excel para la realizar la
produccion de mi empresa, el programa contiene macros, los cuales
simplemente son para poner cuanto se quiere producir y el me devuelve
cuanto hay que agragar de cada materia prima, al programa le agregue la
opcion que cuando me haga la formulacion me de la opcion de guardar en
un hoja de calculo los resultados e ingresar el numero del lote que se
va a producir, pero cuando le doy en aceptar el pasa todo a la hoja de
calculo como lo desee, pero todo queda como si fuera formato de texto y
en realidad son numeros, asi que no puedo sumar la tatalidad de
produccion sin antes darle click en cada celda y convertir en numero,
quisiera saber que puedo hacer para corregir este error, excel me da la
opcion de escojer el rango y multiplicarlo por 1, pero entre mas grande
se vuelve la base de datos mas lento se pone macro para transformar lo
requerido en numeros y ciertas celdas que contien formulas son
remplazadas por el valor y borran la formula
hay algun comando en los macros para que el directamente lo tome como
valor numerico y no texto. el programa tiene varias partes y es muy
extenso asi que solo pondre el codigo de como guardo los datos.
'Accion que es ejecuta el dar Click En Formular
Private Sub Guardar_Click()
Dim iRow As Long
Dim ws As Worksheet
'FMC
If Worksheets("Referencias").Cells(2, 3) = 1 Then
Set ws = Worksheets("Informe FMC")
'Comando Para Encontrar La Primera Fila Vacia en la Base de Datos
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
If Worksheets("Referencias").Cells(2, 2) = 1 = True Then
ws.Cells(iRow, 1).Value = Formular.txtDate.Value
ws.Cells(iRow, 2).Value = Formular.Reactor.Value
ws.Cells(iRow, 3).Value = Formular.Reaccion.Value
ws.Cells(iRow, 4).Value = Worksheets("FMC").Range("C7").Value
ws.Cells(iRow, 6).Value = Worksheets("FMC").Range("C14").Value
ws.Cells(iRow, 7).Value = Worksheets("FMC").Range("C8").Value
Else
ws.Cells(iRow, 1).Value = Formular.txtDate.Value
ws.Cells(iRow, 2).Value = Formular.Reactor.Value
ws.Cells(iRow, 3).Value = Formular.Reaccion.Value
ws.Cells(iRow, 4).Value = Worksheets("FMC").Range("G7").Value
ws.Cells(iRow, 6).Value = Worksheets("FMC").Range("G14").Value
ws.Cells(iRow, 7).Value = Worksheets("FMC").Range("G8").Value
End If
End If
Formular.Hide
Inicio.Show
Unload Me
End Sub
Nota: lo unico que me queda en formato numerico es cuando ingreso la
opcion de numero de lote.
Leer las respuestas