Ayuda con macros

[marco_macf]

:vientos:Hola hermanos bakunos, espero que alguien me pueda ayudar, mi problema es el siguiente:

Necesito hacer una macro en VBA(Visual Basic Applications) que realice una busqueda en diferentes hojas del libro de excel, ya que en estas hojas del libro tengo una base de datos de una nomina (en cada hoja estan los salarios de los empleados de una sola quincena, o sea cada hoja representa una quincena) y necesito que en una hoja diferente me muestre los datos de cada quincena de un determinado empleado.

Realice un pequeño codigo pero este solo me muestra los datos de la hoja activa y solo me muestra el primer registro que encuentra.

Les envio el codigo que realice y de antemano muchas gracias.

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

clave = Cells(ComboBox1.ListIndex + 6, 1)
nombre = Cells(ComboBox1.ListIndex + 6, 1).Offset(0, 1)
apellidos = Cells(ComboBox1.ListIndex + 6, 1).Offset(0, 2)
salario = Cells(ComboBox1.ListIndex + 6, 1).Offset(0, 3)
hrs_extras = Cells(ComboBox1.ListIndex + 6, 1).Offset(0, 4)
deducciones = Cells(ComboBox1.ListIndex + 6, 1).Offset(0, 5)
puesto = Cells(ComboBox1.ListIndex + 6, 1).Offset(0, 6)

Sheets("Hoja2").Select
'escribimos los datos en la fila 6
Range("A6").Select
ActiveCell = clave
ActiveCell.Offset(0, 1) = nombre
ActiveCell.Offset(0, 2) = apellidos
ActiveCell.Offset(0, 3) = salario
ActiveCell.Offset(0, 4) = hrs_extras
ActiveCell.Offset(0, 5) = deducciones
ActiveCell.Offset(0, 6) = puesto
End Sub

 

[malilla_man]

ya solucionaste tu problema amigo? a lo mejor yo te pudo ayudar pero necesitaria un ejemplo de tu oja