Dante Amor

H o l a: Te propongo lo siguiente, en lugar de 2 combos, poner un listbox, en el listbox aparecerían todas las hojas. En el listbox seleccionarías las hojas que quisieras, pueden ser de forma seguida o salteada. En la hoja "parcial" también tendrías...

H o l a: Te anexo el código para sumar las horas y los minutos y presentarlos en un mensaje: Private Sub CommandButton1_Click() If ComboBox1 = Empty Then MsgBox ("Se requiere que seleccione una fecha"), vbCritical, "AVISO" ComboBox1.SetFocus Exit Sub...

H o l a: Te anexo la validación: Sub Guardar() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' If h1.[B2] = "" Then MsgBox "Captura un dato en B2", vbExclamation, "GUARDAR" Exit Sub End If Set b = h2.Columns("B").Find(h1.[B2],...

H o l a: Revisa el siguiente enlace, ahí pongo un ejemplo de cómo se envía la información entre 2 formularios del mismo libro...

H o l a: Recibí tu archivo, lo reviso y te comento. Sal u dos

H o l a: Todo depende de la necesidad que tengas. Ambas sentencias te van a traer la última fila de la columna A que tenga datos. Ejemplo, si los datos estuvieran así: Ambas macros te traen el número 5. Pero si los dato estuvieran así: La primera...

H o l a: Te anexo la macro Private Sub CommandButton1_Click() 'Por.Dante Amor If Not IsDate(ComboBox1) Then Exit Sub ' fec = CDate(ComboBox1) x = 1 n = Cells(1, Columns.Count).End(xlToLeft).Column Do While True For i = 1 To n If Cells(1, i) = fec...

H o l a: La hoja "descanso" tiene fórmulas con referencias circulares, por ejemplo, esta fórmula está en la celda DA13 y dentro de la fórmula hace referencia a la misma celda DA13...

H o l a: Pon el siguiente código en formulario1, en el botón Editar: Private Sub CommandButton1_Click() 'Por.Dante Amor 'Ocultar el userform1 UserForm1.Hide 'Mostrar el userform2 UserForm2.Show 'Mostrar nuevamente el userform1 UserForm1.Show End Sub...

H o l a: Si quieres guardar la hoja "OC" como archivo "xlsx", quedaría así: Sub guardar() Application.ScreenUpdating = False Application.DisplayAlerts = False Ruta = ThisWorkbook.Path & "\" nombre = InputBox("Ingrese Nombre", "Ingreso") If...