Dante Amor

Quita el evento Chante y prueba con el evento Exit: Private Sub horasalida_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsDate(horasalida.Value) Then horasalida.Value = Format(horasalida.Value, "HH:MM AM/PM") Else MsgBox "Debes introducir el...

En las filas de "Mes" y "Semana" en ambas hojas, tienes fechas o directamente tienes números enteros. En la hoja2, para la suma de horas semanales, quieres el total para "Alberto", o quieres 3 totales para "Alberto" uno para la mañana, ¿otro para la...

Aquí otra macro para considerar: Sub Cruces() Dim c As Range, n As Long With Sheets("Hoja1") n = .Range("B" & Rows.Count).End(3).Row - 1 For Each c In .Range("A2", .Range("A" & Rows.Count).End(3)) Sheets("Hoja2").Range("A" &...

Prueba lo siguiente, pon el código dentro del formulario. Haz click en cualquier parte del formulario para deseleccionar el registro del listbox. Private Sub UserForm_Click() ListBox1.ListIndex = -1 End Sub

Puedes poner el código, pero utiliza el icono para insertar código Aquí puedes encontrar información del Dictionary https://excelmacromastery.com/vba-dictionary/

Supongo que el primer resultado va en la columna H, el segundo en I, luego J y K. Podría ser así: Sub test() Dim x As Long For x = 2 To Range("A" & Rows.Count).End(xlUp).Row Cells(x, "H").Value = WorksheetFunction.VLookup((Cells(x, "A"). Value),...

Pon esta fórmula en B3 y copia hacia abajo =SI(RESIDUO(FILA(),2),A3&" a granel"=A4,"") Nota: Si tu separador de argumentos es el punto y coma ( ; ) Cambia en la fórmula la coma (, ) por punto y coma ( ; )

Prueba esto: TextBox1.Value = Right(Date, 2)

Me funciona pero es demasiado lento, se tarda hasta media hora en mostrar los resultados ¿Cuántos registros existen en cada hoja? Puedes explicar con ejemplos lo que hace la macro, apóyate con algunas imágenes. Si los datos son confidenciales,...

Debes hacer referencia a la hoja en cada línea, puede ser así: Private Sub CommandButton1_Click() 'siguiente fila hace que me agregue una línea en la tabla inventario With Worksheets("ENTRADAS") .Range("A8").EntireRow.Insert 'hace que en cada parte...