Hola a todos nuevamente con un problemita...tengo un Userform en la cual tengo un listbox..que me despliega datos...cuando le doy click me pasa algunos datos en 3(tres) textbox..hasta todo bien..

Cuando hago búsqueda en un textbox para filtrar y cuando le doy click para que me arroje los datos a los 3(tres) textbox me arroja el siguiente error....

se ha producido el error '1004' en tiempo de ejecución: Error en el método 'Range' de objeto'_Worksheet'

En esta parte de la macro

Private Sub ListBox1_Click()
Dim fila As Single
fila = ListBox1.ListIndex + 2
    With Hoja27.Range(ListBox1.RowSource).....(Esto me Pinta en AMARILLO)
        TextBox7.Text = .Offset(ListBox1.ListIndex, 0).Resize(1, 1).Value
        TextBox6.Text = .Offset(ListBox1.ListIndex, 1).Resize(1, 1).Value
        TextBox5.Text = .Offset(ListBox1.ListIndex, 2).Resize(1, 1).Value
    End With
End Sub

Si me pudieran dar una mano..les agradezco desde ya

Link del archivo en caso necesario

https://drive.google.com/drive/folders/0B5-NlIfimBMURGRzeDh6bEJGaVU

https://onedrive.live.com/?id=E55EF42198BD63DF!3096&cid=E55EF42198BD63DF

Saludos, no he visto el archivo pero el problema pareciera ser aqui

With Hoja27.Range(ListBox1.RowSource)..

solamente estas indicando la fila del rango, faltaria la columan, algo asi

With Hoja27.Range(ListBox1.RowSource,  1)

Suerte

 

A mi me parece mucho más simple así:

Private Sub ListBox1_Click()
  TextBox7 = ListBox1.List(ListBox1.ListIndex, 0)
  TextBox6 = ListBox1.List(ListBox1.ListIndex, 1)
  TextBox5 = ListBox1.List(ListBox1.ListIndex, 2)
End Sub

 

Muchisimas gracias bigpetroman por tu tiempo...pero en realidad Macro Antonio eres un genio, me funcionó a la perfección con algunos ajustes para que me aparezca en el TexBox5, pero era por un error mio nada mas...mil gracias por su tiempo a los dos

Abrazo...espero sigan teniendo paciencia por todos los que les necesitamos

Tema cerrado