Dante Amor

H o l a: Exactamente no sé lo que hace tu macro, pero para leer los archivo xml, realiza estos cambios: Esta línea: archivo = Dir(carpeta) Por esta línea: archivo = Dir(carpeta & "*.xml") Esta línea carpeta = carptea & "\" Por esta línea: carpeta =...

H o l a : Te anexo la macro. Cambia en la macro "hoja x" por el nombre de la hoja donde quieres poner la información de archivo importado. Sub AbreArchivo() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 =...

Macro actualizada Dim mirango As Range Dim mifila As Range Set mirango = Selection For Each mifila In mirango.Rows If mifila.Row > 2 Then If mifila.Row Mod 2 = 0 Then mifila.Interior.ColorIndex = 3 Else mifila.Interior.ColorIndex = 2 End If End If...

H o l a : Te anexo la macro, asigna la macro a un botón. Sub Actualizar() 'Por.Dante Amor If Range("A2") = "" Then MsgBox "Introduce la clave", vbCritical, "ERROR DE DATOS" Exit Sub End If If Range("D2") = "" And Range("E2") = "" Then MsgBox...

Te anexo la macro para cargar más de 10 columnas. Cambia la "M" por la última columna que quieras cargar. Cambia "Cobros" por el nombre de tu hoja con datos. Crea en tu libro una hoja llamada "temp" Private Sub CommandButton1_Click() 'Por.Dante Amor...

¿Pero en la columna A tienes celdas vacías? Te recomiendo que siempre pongas la categoría a la que pertenece cada subcategroría, de esta forma: Categoría 1 Subcategoria1 Categoría 1 Subcategoria2 Categoría 1 Subcategoria3 Categoría 2 Subcategoria1...

H o l a: Voy a suponer lo siguiente. - Estás poniendo la información en la hoja "temp" de manera temporal y después la cargas en el listbox. - En la columna "D" tienes un importe. - En la columna 4 del listbox estás poniendo el importe - El ancho de...

H o l a: Según la imagen, en el listbox1 los datos KEY están en la primer columna. Entonces pon lo siguiente en el evento ListBox1_Click Private Sub ListBox1_Click() 'Por.Dante Amor ListBox2.Clear wkey = ListBox1.List(ListBox1.ListIndex, 0) Set h =...

H o l a: En un correo nuevo me explicas de cuál hoja se debe tomar el formato para ponerlo en las otras hojas.

H o l a: En estar instrucción, estás indicando que se ejecute la macro "conexion" Private Sub UserForm_Initialize() Call conexion End Sub La macro "conexion" la debes tener dentro del formulario en algún módulo. Revisa que el nombre de la macro sea...