Abraham Valencia

[Hola De ser posibles, lo es. Para casos como el tuyo, yo la verdad no me haría tanto mundo y me apoyaría en herramientas propias de Excel antes que andar programando. Por ejemplo, vamos a suponer que son solo cuatro celdas de la hoja en las cuales...

[Hola No hay forma de hacer lo que deseas, tanto los "MsgBox" como los "PopUp" (de Windows) no permiten la ejecución de macros en "segundo plano", por lo que necesariamente tienen que descargarse antes de continuar el procedimiento. La forma de hacer...

[Hola No has mencionado que versión de Visual Basic usas. Abraham Valencia

[Hola Vamos a suponer varias cosas: - Tus datos están en el rango "A1:B20", en la columna "A" los nombres y la "B" los DNI. - Se llama "Combobox1" y "Label1" - Los DNI son números y NO texto Entonces, en la propiedad "RowSource" del "Combobox1"...

[Hola Prueba así: =SI(ESERROR(COINCIDIR(A2, E3:N3, 0)), 0, COINCIDIR(A2, E3:N3, 0)) Comentas Abraham Valencia PD: OJO, yo uso "coma" como separador de lista, si tú usas "punto y coma" solo reemplaza

[Hola Pues basta usar las misma variables, por ejemplo: ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Ruta & "\" & "PARTES DIARIS" & "\" & CLIENT & "\" & AÑO & "\" & TRIM & "\" & "PDF" & \miarchivo.pdf", Quality:=xlQualityStandard, _...

[Hola Quita el "On Error Resume Next" (y si es necesario también la fila que borra la hoja) y comenta en que línea te marcar el error y envía también una captura de pantalla del error. Abraham Valencia PD: Incluso si puedes mejor deja el archivo en...

[Hola Siempre los procesos que recorren celdas seleccionándolas son más lentos que aquellos en que no las seleccionas. Prueba así: Sub Prueba() Dim UltimaFila As Long Let UltimaFila = Cells(Rows.Count, "AW").End(xlUp).Row For x = UltimaFila To 1 Step...

[Hola No se termina de entender qué es lo que tienes o qué es lo que necesitas. Trata de explicar un poco más detalladamente para poder ayudarte. Abraham Valencia

[Hola ¿Qué es el objeto "intranet" en tu "UserForm"? Qué se supone que debe hacer, para ti, esta línea: If Not IsNull(Me. Intranet) Then Comentas Abraham Valencia