Elsa Matilde

Acabo de descargar tu ejemplo y probarlo. Sería como si lo hubiese recibido por mail, ¿verdad? Entonces la macro del botón funciona bien: el nuevo libro contiene solo 2 hojas y el botón para volver a ejecutar la macro tambien responde. Pero lo que...

Te dejo las instrucciones ajustadas. Observa que coloco la ruta en variable así te será más fácil ajustar la macro si en el futuro cambias la ruta de la carpeta. Sub HIPERVINCULOPRUEBA() 'ajustada x Elsamatilde ' HIPERVINCULOPRUEBA Macro ' ruta =...

Mis correos aparecen en la portada de mi sitio. Te indico uno al pie. Pero debes indicarme claramente qué parte del código no se ejecuta como debiera, qué resultados esperas. Sdos. Elsa cibersoft_arg de yahoo.com.ar

En Excel cada página (u hoja) se configura desde la opción Diseño de página. Desde allí le podes dar la orientación deseada. Si luego imprimes un rango de hojas cada una ira con su configuración. Espero haberte aclarado la duda sino comenta un poco...

Me parece que respondí una consulta posterior donde no aparecía el código. Viendolo aquí, en el For le estás indicando que vaya hasta la fila 2 pero debiera ser 3 para que no elimine las primeras. Comentame si es esto lo que necesitas. En ese caso no...

Qué pena no dejaste la instrucción de evaluación para agregarle la 2da condición, que es la de la fila (row): Ej: considerando que la fila es 'filx': If range("F" & filx) = 0 and filx > 2 then range("F" & filx).EntireRow.Delete Si esto resuelve tu...

Según surge de tus comentarios, lo que necesitas es ubicar la primer celda libre en B, esto lo podés obtener con esta instrucción: libre = Range("B" & Rows.count).End(xlup).Row +1 Luego volcarás en esa celda y de ahí hacia abajo: Range("B" & libre) =...

Enviame un mail a alguno de los correos que aparecen en la portada de mi sitio para que te envíe una muestra de lo que necesitas. No olvides recordarme la consulta que estamos tratando.

Para abrir el cuadro de diálogo y seleccionar la carpeta destino (sPath) estas son las instrucciones: Sub Pori_y_Salo() ' ' abrir pori Dim File As String Dim sPath Dim Direc Set Direc = Application.FileDialog(msoFileDialogFolderPicker) 'si se cancela...

Te dejo las instrucciones de un libro en mi haber para que observes los textos en negrita: Private Declare PtrSafe Function FindWindow Lib "USER32" _ Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Así en...