busqueda con macros

[omardoit]

Hola Necesito Hacer Una Busqueda Sencilla Con Macros Me Pidieron Que Hiciera Un Boton Y Un Combobox De Eso No Tengo Problema Lo Que Necesito Es Que Del Combobox Elija Una Opcion Y Con El Boton Me Arroje Todos Los Datos De La Misma Fila, Por Ejmplo Tengo Una Agenda En El Combobox Estan Los Nombres Cuando Eliga Un Nombre Y Aplique El Boton Me Arroje El Nombre La Direccion El Telefono Oea Todos Los Datos De La Fila Alguien Me Puede Ayudar.

[3pies]

Hola, omardoit. Bienvenido al foro.

Te dejo una posible solución (solo tendrás que añadir más labels, y listo). Como no diste muchos datos, he supuesto que querías mostrar todos los datos en un UserForm.

Descárgate la solución desde aquí: http://www.megaupload.com/es/?d=0OT13D2W

Salu2

[omardoit]

gracias ya lo baje pero puedo enviarte un correo con lo que estoy haciendo para que me puedas ayudar mas

[3pies]

Sin que sirva de precedente: mikorreo*gmail.com

Sustituye * por @

[omardoit]

AGREGUE UN COMBOTEXT Y DOS BOTONES UNO DE AGREGAR AL PRESIONARLO ME ENLISTA TODOS LOS CODIGOS DE MI HOJA DE EXCEL HASTA AHI VOY BIEN EL PROBLEMA ES QUE QUIERO QUE YA HALLA ELEGIDO UN CODIGO DEL COMBO TEXT Y CUANDO APLIQUE BUSCAR ME MANDE EN OTRA HOJA DE EXCEL TODOS LOS DATOS DE LA FILA DE ESE CODIGO MANDO EL ARCHIVO PARA QUE LO CHEQUES HABER SI ME PUEDES AYUDAR

http://www.megaupload.com/?d=B3T4WESB

[3pies]

Varias cosas:

Cambia el nombre del evento para que se te carguen los datos. Cámbiale el nombre a esto:

Código:

Private Sub CommandButton1_Click()

y le pones este otro:

Código:

Private Sub ComboBox1_Enter()

En realidad tienes que poner esto, en sustitución de lo que tienes:

Código:

Private Sub ComboBox1_Enter()
Range("a5").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
ComboBox1.AddItem ActiveCell
Loop
End Sub

Y a continuación, esto otro:

Código:

Private Sub CommandButton2_Click()
'pasamos los datos a variables
codigo = Cells(ComboBox1.ListIndex + 6, 1)
nombre = Cells(ComboBox1.ListIndex + 6, 1).Offset(0, 1)
apellidos = Cells(ComboBox1.ListIndex + 6, 1).Offset(0, 2)
direccion = Cells(ComboBox1.ListIndex + 6, 1).Offset(0, 3)
telefono = Cells(ComboBox1.ListIndex + 6, 1).Offset(0, 4)
estado_civil = Cells(ComboBox1.ListIndex + 6, 1).Offset(0, 5)
cp = Cells(ComboBox1.ListIndex + 6, 1).Offset(0, 6)
'pasamos a la hoja 2
Sheets("Hoja2").Select
'escribimos los datos en la fila 6
Range("A6").Select
ActiveCell = codigo
ActiveCell.Offset(0, 1) = nombre
ActiveCell.Offset(0, 2) = apellidos
ActiveCell.Offset(0, 3) = direccion
ActiveCell.Offset(0, 4) = telefono
ActiveCell.Offset(0, 5) = estado_civil
ActiveCell.Offset(0, 6) = cp
End Sub

Salu2

[omardoit]

muchisimas gracias como dijiera un ilustre cantante mexicano : "muy agradecido, muy agradecido"

[3pies]

Me alegro que te haya servido, como diría este español