Dante Amor

Pon el siguiente código en un botón: Private Sub CommandButton1_Click() 'Por.Dante Amor 'Guarda rango en un Pdf If cmbNombres = "" Or cmbNombres.ListIndex = -1 Then MsgBox "Selecciona un nombre" Exit Sub End If Application.DisplayAlerts = False ruta...

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

H o l a : Al parecer la nueva versión no tiene por defecto la propiedad value, por eso hay que indicarle la propiedad de la celda. Prueba con la siguiente actualización: Sub Mails() Dim J As Integer J = 2 While Range("B" & J).Value <> "" Set Dam1 =...

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

Dentro del botón pon lo siguiente: Private Sub CommandButton1_Click() Application.Visible = False End Sub Si es lo que necesitas, recuerda valorar la respuesta.

Te anexo la fórmula con un par de cambios =SI(C20="";"";SI(ESERROR(BUSCARV(C20;'Datos Banco'!$A$3:'Datos Banco'!$C$6007;3;FALSO));0;(BUSCARV(C20;'Datos Banco'!$A$3:'Datos Banco'!$C$6007;3;FALSO)))) Te explico, si es error, le dices que te ponga...

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

Te anexo la fórmula =SI.ERROR(BUSCAR(2;1/(INDIRECTO(B2&"!B2:B1000")="P");INDIRECTO(B2&"!A2:A1000")); "No hay pagos") 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias