Errores en ListBox

3 envíos / 0 nuevos
Responder
Último envío
Mié, 29/06/2022 - 13:19
#1
Predi
Imagen de Predi
Offline
última acción: Hace 1 año 9 meses
alta: 09/06/2020 - 13:12
Puntos: 115
Errores en ListBox

Buenas tardes

 

Tengo problemas en un ListBox y quería haber si me podéis ayudar, gracias

 

Al hacer doble click fuera de la lista, da el error Se ha producido el error '381' en tiempo de ejecución: No se puede obtener la propiedad List. Índice de matriz de propiedades no valido y si se hace doble click encima de  Total de registros o en Linea, Id,Nombre de Archivo, etc, da el siguiente error Se ha producido el error '-214722014(8004101ea) en tiempo de ejecución: No se puede abrir el archivo especificado

Como se puede conseguir eliminar estos errores gracias

 

Un saludo, Predi

AdjuntoTamaño
File listar_pdf.xlsm257.63 KB

Etiquetas: 

Arriba
Mié, 29/06/2022 - 18:20
Predi
Imagen de Predi
Offline
última acción: Hace 1 año 9 meses
alta: 09/06/2020 - 13:12
Puntos: 115
Me respondo yo mismo, por si

Me respondo yo mismo, por si alguno le va bien

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) On Error Resume Next ruta = (UserForm9.ListBox1.List(ListBox1.ListIndex, 3)) If IsNull(ruta) Or InStr(ruta, ".pdf") = 0 Then Exit Sub ActiveWorkbook.FollowHyperlink ruta, , True End Sub

Se puede cerrar

 

Arriba
Mié, 29/06/2022 - 18:21
Predi
Imagen de Predi
Offline
última acción: Hace 1 año 9 meses
alta: 09/06/2020 - 13:12
Puntos: 115
Me respondo yo mismo, por si

Me respondo yo mismo, por si alguno le va bien

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
ruta = (UserForm9.ListBox1.List(ListBox1.ListIndex, 3))
If IsNull(ruta) Or InStr(ruta, ".pdf") = 0 Then Exit Sub
ActiveWorkbook.FollowHyperlink ruta, , True 
End Sub

Se puede cerrar

 

Arriba
Responder