Hola a todos los foreros, otra vez por aqui para ver si me pueden colaborar con un atranque que tengo con el codigo de abajo, les explico, utilizo un combobox para elejir la hoja donde quiero guardar los datos, y a la hora de verlos en un listbox le pongo este codigo, pero me devuelve error, ya he probado varias cosas pero no doy con la tela, le agradeceria su ayuda

Gracias por adelantado, saludos

 

Rows(1).Copy Sheets(ComboBox1.Value).Rows(1)

ListBox1.RowSource = "ComboBox1.Value!A2:M" & Sheets(ComboBox1.Value).Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = True

Editado por Moderación: Colocar en etiquetas el código

Hola @Alfonso5597!

Cambia esta parte:

ListBox1.RowSource = "ComboBox1.Value!A2:M" & Sheets(ComboBox1.Value).Range("A" & Rows.Count).End(xlUp).Row

por esta:

ListBox1.RowSource = "'" & ComboBox1.Value & "'!A2:M" & Sheets(ComboBox1.Value).Range("A" & Rows.Count).End(xlUp).Row

¡Comentas! ¡Bendiciones!

johnmpl

Hola johnmpl, muchas gracias por tu pronta respuesta, pero tu solucion no me sirvio. te envio mejor el trabajo para que lo veas en conjunto, te agradezco tu ayuda

Bendiciones

Prueba.rar