Eliminar una "x" desde un Userform
Para Dante. Amor.
En el programa poseo un Userform que se introduce unos valores: el día (fila) y la hora de inicio y hora final y dicho userform coloca el texto "x" en las horas inscrita en el userform. Lo único que deseo es que si por ejemplo yo indico el dia 6 se trabajo en las hora de 12 a 15, la macro coloque las "x" en las 12, 13 y 14, es decir coloque 3 "x" no cuatro como hace actualmente. Cuando se indica que se trabajo de 12 a 15 en la fila de las horas si se señala las 12 significa que se trabajo una hora desde las 12, por eso lo de retirar una "x".
Se enviado un correo con el archivo en cuestión a Dante. Amor.
1 respuesta
H o l a:
Te anexo la macro para NO poner una x
Private Sub CommandButton1_Click()
'Por.Dante Amor
If validar = False Then Exit Sub
Set h1 = Sheets("DESCANSO")
Set h2 = Sheets("HORAS")
For i = Val(TextBox2) To Val(TextBox3) - 1
h1.Cells(Val(TextBox1) + 12, i + 2) = "X"
Next
f = Val(TextBox1) + 8
n = 1
k = Columns("J").Column
Do While True
If h2.Cells(f, k) = "" Then
h2.Cells(f, k) = TimeSerial(Val(TextBox2), 0, 0)
h2.Cells(f, k + 1) = TimeSerial(Val(TextBox3), 0, 0)
Exit Do
End If
k = k + 2
n = n + 1
If n = 4 Then
MsgBox "Se llegó al límite de rangos"
Exit Do
End If
Loop
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
End Sub':) ':)
Buenas noches
Una pregunta mas referente al Userform, como consigo que los valores que inserte en el userform no sean exactos? Explico: En los textbox donde se introducen las horas, se puedan poner por ejemplo las 12:15 a 13:20 y este valor se pase tal cual en la hoja de calculo "HORAS", mientras que en la hoja de calculo "DESCANSO" al ser un texto "x" aproxime al numero entero para así colocar las "x" necesarias, en este caso a las 12.
Gracias
Con mucho gusto te ayudo con todas tus peticiones.
Crea una nueva pregunta en todoexpertos, en el tema de microsoft excel, en el desarrollo de la pregunta escribe: "para Dante Amor", ahí me describes con detalle y ejemplos lo que necesitas.
Sal u dos
