Textbox con números

Hola experto quisiera hacerte una pregunta espero me lo puedas solucionar como ya lo has hecho otras veces mi duda es la siguiente en un formulario tengo un textbox al cual le asigno un numero que corresponde a unas horas trabajadas cuando le pongo 1 no tengo problema si cuando le pongo 1.5 que corresponde a una hora y media me sale lel numero 2 no se si tengo que tener el mismo formato en el textbox que la celda
Gracias de antemano
Respuesta
1
¿Dónde te sale el 2, en el TextBox o en la celda?. Si es en la celda podría ser que necesitas ponerle el formato de número. Si es en TextBox, revisa que no tengas algún código de redondeo.
[email protected]
Gracias por contestar el 2 me sale en la celda de destino es como si lo redondeara si de 1.5 a 2 o 2.5 a 3 si lo pongo en formato numero me sigue igual
Utiliza: TextBox2.Value = Format(Range("Tu_Celda"),"##.##")
[email protected]
Hola experto parece que soy más novato de lo creía. La linea que me has dado donde pone" tu celda " no se que poner por que la celda de destino no siempre es la misma porque la escoge de una condicional es decir si el dato de una combobox es "tal" y la fecha que me la coge de un dtpicker "cual" me la pone en la celda que corresponda de todas maneras yo he puesto en la celda el formato que me das y no cambia sigue igual creo que es más complicado de lo yo creía. Gracias
Lógicamente tienes que poner la celda destino. Cualquier cosa pon el código porque así es dar golpes de ciego, y aunque ellos ven con la mente y los sentidos, por medio de Internet se me hace difícil ponerlos en práctica.
[email protected]
Experto este es mi código
Sub dia1()
Dim VALOR2 As String
Dim horas As Integer
Dim fecha As Date
VALOR2 = ComboBox13.Value
horas = TextBox18.Value
fecha = DTPicker4.Value
Application.ScreenUpdating = False
Sheets("HORAS DIA").Select
Range("A4").Select
While ActiveCell.Value <> ""
If ActiveCell.Value = VALOR2 Then
ActiveCell.Offset(0, 2) = fecha
ActiveCell.Offset(0, 3) = "=DAY(RC[-1])"
If ActiveCell.Offset(0, 3).Value = "1" Then
ActiveCell.Offset(0, 4) = horas
End If
If ActiveCell.Offset(0, 3).Value = "2" Then
ActiveCell.Offset(0, 5) = horas
End If
If ActiveCell.Offset(0, 3).Value = "3" Then
ActiveCell.Offset(0, 6) = horas
End If
If ActiveCell.Offset(0, 3).Value = "3" Then
ActiveCell.Offset(0, 6) = horas
End If
Es más largo por que los valores llegan hasta "31" que son los días de mes. Gracias
Experto creo que lo he solucionado de casualidad he modificado en el código
dim horas as integre por dim horas as string y ahora me funciona "de lujo" de todas maneras para seguir aprendiendo me podria decir porque si funciona ahora .Muchas gracias por tu tiempo y espero me puedas ayudar en el  futuro . gracias por todo
Te funciona porque una cosa es hacer cálculos numéricos normales y otra es con horas.
[email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Alguien sabe cómo copiar un rango discontinuo y pegar solo valores en ese mismo rango y mismas celdas

Lo que pretende es que Alguien me explique cómo copiar un rango discontinuo y pegar solo valores en ese mismo rango y mismas celdas. Me gustaría sin macros, pero si no hay otra solución, pues con macros.
1 respuesta

Fórmula para poner en celda que haga la concatenación de celdas visibles en un rango dado.

NECesito una fórmula para poner en K1, según el cuadro que adjunto, para que en K1, me haga, de forma automática, la concatenación de las celdas que queden visibles en el rango k4:K11, YA que al filtrar se pueden mostrar todas o solo parte de ellas....
2 respuestas

Como pegar solamente valores de una celda a otra hoja

Sub CopiarImprimir() ' ' CopiarImprimir Macro ' Application.ScreenUpdating = False Sheets("Imprimir").Select Worksheets("Imprimir"). Range("A4:C50"). Clear Range("E4:J49"). Clear Sheets("Planillas").Select Sheets("Planillas"). Range("G4").Copy...
3 respuestas

Mantener el color de un botón al salir de un módulo

Quisiera por favor me ayuden, estoy haciendo una aplicación en vba para un restaurante y necesito lo siguiente: tengo 20 mesas que al momento de abrir el modulo de venta selecciono la mesa y cambia de color y su estado pasa a ocupada la idea es...
3 respuestas

Redondear decimales en números arábigos

Sres. T.E. La consulta es la siguiente, necesito una fórmula en excel para llevar los decimales a .00 y .50, ejemplo en una celda tengo el valor 45.12 levarlo a 45.00 en otra tengo 45.42 levarlo a 45.00.
2 respuestas

Sumar dos filas distintas mayor a 0

Quiero sumar dos filas separadas por ejemplo fila 5 de A4 a J4 y fila 10 de A4 a J4, cada fila tiene resultados positivos o negativos, quiero que me sume en la celda B3 por ejemplo los datos positivos y en la celda C3 los datos negativos. Solo se...
2 respuestas

Filtrar ultima fecha según el criterio de una celda

Tengo una tabla de excel con la siguiente información Columna A el código del equipo. (Código único para cada equipo) Columna B la fecha en que se realizo la ultima revisión. Columna C el nombre del equipo. Columna D El tipo de revisión (preventivo,...
2 respuestas

Cómo hacer un filtro múltiple en formulario Excel?

Tengo un formulario en Excel con 5 combos combinado(Tipo, Año, Mes, servicio y Especialidad) y un cuadro de lista. La idea es que al seleccionar un valor en el cuadro combinado Tipo, en el cuadro de lista se me filtren los registros con ese valor,...
2 respuestas

Suma en un formulario de Excel

Estoy realizando un formulario, el cual al salir del ultimo texbox me sume los anteriores, he usado el siguiente código Private Sub base0_Change() On Error Resume Next Me.totalfactura = Round((Me.base0 + Me.base10 + Me.base21 + Me.base4 + Me.base5) +...
2 respuestas

Copiar dato de una celda para filtrar una tabla en otra hoja

En la primera hoja tengo una tabla con datos que alimenta otra tabla que se encuentra en una segunda hoja. Quisiera una macro que copie el contenido de la celda que tenga seleccionada, después ir la segunda hoja y filtrar ese dato en la tabla que ahí...
2 respuestas