Busqueda con combobox

[Alfonso5597]

Hola amigos,

De nuevo acudo a ustedes para resolver un problema que me lleva atrancado, despues de muchas pruebas, tengo un formulario para buscar, si le pongo el nombre de la hoja a buscar funca perfecto, el problema lo tengo cuando la hoja la selecciono por medio de un combo, hay se me complica, le agradeceria toda la ayuda que me puedan prestar

Saludos cordiales

Prueba.xlsm

[Toldeman]

Hola.

	Private Sub UserForm_Initialize()
	ComboBox1.AddItem "Clientes"
	ComboBox1.AddItem "Pagos"
	Application.ScreenUpdating = False
	Application.ScreenUpdating = True
	ListBox1.MultiSelect = fmMultiSelectSingle
	End Sub

[Alfonso5597]

Muchas gracias amigo Toldeman por tu aporte, voy a probar y comento

Saludos

[Alfonso5597]

Hola amigo Toldeman, tu codigo no me sirvio,  se abre la aplicacion y me da error en esta linea, 

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

 

[Antoni]

Hace 1 hora, Alfonso5597 dijo:

Muchas gracias amigo Toldeman por tu aporte, voy a probar y comento

Saludos

Pues yo he probado el código de Toldeman, y si se abre la aplicación.

[Antoni]

Hace 18 minutos , Alfonso5597 dijo:

Hola amigo Toldeman, tu codigo no me sirvio, no se abre la aplicacion

 

Pues a mi si me abre la aplicación.

[Alfonso5597]

Hola Macro Antonio, saludos

He hecho una correccion en el comentario anterior pero no a salido, se abre el form pero me da un error en esta linea

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

Agradezco tu ayuda

Saludos

 

 

 

[Toldeman]

Hola, simplemente depure la parte del codigo que daba error al cargar el form y el combo.

De todas maneras no hay datos en ninguna hoja para hacer la busqueda, si puedes ser mas claro con lo que necesitas.

Un saludo.

p:s: un abrazo antoni de tu amigo atletista.

[Alfonso5597]

Hola esto es parte de un trabajo, utilizo un form para hacer albaranes, facturas , etc y lo hago cambiando la hoja donde guardo los  datos por medio de un combo, lo que pretendo es tambien utilizar solo un form para buscar en facturas, albaranes, abonos, pedidos  y presupuestos, asi no tengo que poner un buscador para cada hoja, solo le cambio el nombre  y le quito peso a la aplicacion, pero tengo problemas con rowsource por eso he subido la prueba y no el codigo con el error, gracias a tu codigo he conseguido arrancar el form, pero me tira el error

Saludos

[Antoni]

Sin datos para probar, nadie te va a responder mas allá de la ayuda que te ha proporcionado Toldeman.

[Alfonso5597]

Saludos maestro Macro Antonio

Subo el trabajo para poder comprobar 

http://www.4shared.com/file/sbjSMCJQba/Servicio_tecnico.html