Abraham Valencia

[Hola Si para llenar el "ListBox" usaste "RowSource", para dejarlo en blanco basta usar algo como: ListBox1:RowSource = "" En donde obviamente debes reemplazar "ListBox1" por el nombre de tu objeto. Comentas Abraham Valencia

[Hola ¿No queda claro si te refieres a la última fila llena tal cual los datos o te refieres a la última fila llena tal cual queda al filtrar? Abraham Valencia

[Hola De lo que muestras, el problema no parece estar en el código, por si acaso. Otra cosa, el método "Workspaces" solo te sería válido si usases VBA desde Access pero tú usas el de Excel. Entonces, prueba lo siguiente: 1- Abre tu archivo Access,...

[Hola Prueba así: Workbooks("Nombredellibro").Close False Comentas Abraham Valencia

[Hola Prueba así: Sub InsertarFilas() Application.ScreenUpdating = False Dim UltimaFila As Long, x As Long Let UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row For x = UltimaFila To 3 Step -3 Rows(x & ":" & x + 1).Insert Next x...

[Hola Hay muchas cosas que se pueden hacer con VBA y los PDF de manera relativamente fácil: Convertir a pdf, rellenar formularios pdf, renombrar archivo y algunas cosas más. Lo de buscar y/u obtener los datos desde un pdf cuando dicho archivo...

[Hola Este ejemplo es algo antiguo pero aún útil: https://drive.google.com/file/d/1tUZKkYywp1kszoq2wjkwKdzniHpUPHeT/view?usp=sharing El nivel de transparencia va de 0 a 255 pero el mínimo que he colocado es 50 para evitar que se "pierda de vista"....

[Hola Faltan algunos detalles como para poder ayudarte ¿a qué le dices " menú inicial"? ¿A alguna herramienta de Excel? ¿A algo en tu Userform que parece lleva ese nombre? Si es "algo" de tu Userform ¿qué es y que código tiene? Etc. Abraham Valencia

[Hola ¿Se mantienen todos los archivos o se van borrando y queda uno solo? Si se quedan todos, en la carpeta respectiva ¿hay archivos más "antiguos" (así sea en minutos u horas) que el archivo que necesitas? Abraham Valencia

[Hola Pues si solo es eso que mencionas, basta un cambio bastante simple: Sub ImportWordTable() Dim wdDoc As Object Dim wdFileName As Variant Dim tableNo As Integer 'table number in Word Dim iRow As Long 'row index in Excel Dim iCol As Integer...