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...

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/

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...

Si te refieres a una multilínea en el listbox no es posible. Podrías agregar el comentario pero concatenando el comentario al nombre, algo como Listbox1. List(listobox1.listcount - 1, 1) = listbox2. List(listbox2. Listindex, 0) & textbox1 Nota:...

H o l a Rodolphe Pottier y bienvenido a TodoExpertos, Prueba lo siguiente, cambia "B3" por la celda donde tengas el monto Sub MuestraIva() MsgBox Range("B3").Value * 0.21 End Sub

Olvida la macro. Olvida que tienes muchos datos en la hoja. Yo entiendo que debe aplicar para todos los datos. Explica un ejemplo. 1. Si hay dato en la celda B9 entonces, si la celda B9 está vacía, ¿quieres un mensaje? 2. "Debe haber un dato en E9 o...

Si estás utilizando el métod AddItem, efectivamente el límite son 10 columnas, de la 0 a la 9. Para cargar más de 10 columnas, puedes utilizar la propiedad .List o . RowSource. Por lo que puedo ver en tu código, estás tratando de poner el número de...

Puedes poner otra vez la macro, pero utiliza el icono para insertar código:

Esta línea debería tomar la fila del dato seleccionado: fila = list_confirmacio.List(list_confirmacio.ListIndex, 8) Debería ser: fila = list_confirmacio.List(x, 8) Le hice unos ajustes a tu código. No es necesario seleccionar la celda, puedes...

Si copias y pegas, tal como comenta @Abraham Valencia, entonces deberías pasar los datos utilizando el valor de la celda destino = al valor de la celda origen. Es decir, si tienes algo como esto: Range("A5"). Copy range("B7") Entonces puedes poner...