Dante Amor

He realizado varias macros para unir libros; y te podría poner los enlaces de esas macros, pero cada usuario tiene sus necesidades y hay que adaptar la macro a las necesidades de cada usuario. Es difícil que encuentres una macro que se adapte a tus...

No entendí muy bien qué necesitas. Si quieres que la macro funcione en cualquier ordenador, sin cambiar la macro, entonces todos los ordenadores deberán tener la misma carpeta. O tu idea es modificar la macro para que funcione de acuerdo al usuario...

Te anexo la macro, utiliza una de las 3 líneas en la macro, según necesites por fila, por columna o por rango Set rango = Rows("4:11") 'por filas Set rango = Columns("C:E") 'por columnas Set rango = Range("C4:F11") 'por rango de celdas Ejemplo para...

¿Y qué quieres reparar? ¿Quieres hacerlo más compacto? ¿O quieres primero poner las validaciones y que no escriba en la hoja hasta que todos los campos esté completados?

No comentaste si la multiplicación la estás haciendo en excel o en el formulario. Pero puedes poner lo siguiente: TextBox1 = Format(Range("D9"), "#.00%") Eso te va a dar como resultado 7.50% Si quieres ver 8%, entonces pon lo siguiente: TextBox1 =...

Prueba con la siguiente macro Sub Generar_Archivo() 'Por.Dante Amor Const separador As String = "," ' Set h1 = Sheets("Hoja1") ruta = ThisWorkbook.Path & "\" If Left(ruta, 1) <> "\" Then ruta = ruta & "\" nombre = Format(h.Range("B1"), "dd-mm-yyyy")...

Te anexo la macro Sub Registrar_Datos() ' ' Por.Dante Amor ' Set h1 = Sheets("FICHA") Set h2 = Sheets("TABLA") ' If h1.Range("C7") = "" Then MsgBox "Poner el RUC" Exit Sub End If u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 If u < 5 Then u = 5...

¿Qué mensaje de error te aparece? ¿Qué versión de excel tienes? ¿Estás abriendo varios archivos o solamente uno? Tal vez no está reconociendo el nombre del archivo. Intenta con lo siguiente: Sub Open_Files2() Dim Hoja As Object Dim X As Variant '...

Te anexo la macro Private Sub CommandButton9_Click() 'Por.Dante Amor filas = ListBox1.ListCount If filas = 0 Then MsgBox "No hay registros a pasar" Exit Sub End If If txtFiltro1 = "" Then MsgBox "No hay registros a pasar" Exit Sub End If If...

Suponiendo que tu información está así, empezando en la celda A2: El resultado quedará en otra hoja, de esta forma: Utiliza la siguiente macro, cambia "Hoja5" y "Hoja6" por los nombres de tus hojas Sub Horizontales() ' ' Por.Dante Amor ' Set h1 =...