COMO COLOCO UN NUMERO EN LA CELDA Y ME LLEVA A OTRA HOJA

baioco escribió el 13/01/2013 15:18 :

¡ Hola ! TENGO UN LIBRO DE EXCEL CON DATOS DE VARIOS EMPLEADOS Y UNA HOJA
DE VIDA VACÍA, QUISIERA SABER COMO HAGO PARA QUE AL PONER EL NUMERO DE
IDENTIFICACIÓN DEL EMPLEADO ME LLEVE A LA HOJA DONDE ESTA SU EXPEDIENTE
EJEMPLO:
CEDULA DE IDENTIDAD EN CELDA A1 XXX.XXXX AL DAR CLIK ME LLEVE A LA HOJA
PERSONAL YA ELABORADA DEL EMPLEADO, DE ANTEMANO MUCHAS GRACIAS

Hola.. de pronto te sugiero que en el editor de VB en la macro en el objeto Hoja1 o en la hoja donde tengas los datos que ingresa el usuario, entonces el evento Worksheet Activate puedes poner este código:

Private Sub Worksheet_Activate()
Application.OnKey "{F1}", "CARGAFORMA"
End Sub

Lo que hace es cuando el usuario presiona la tecla F! se dispara la subrutina "CARGAFORMA", que para mi caso programé que se carga un formulario y se coloca los datos de la celda actual en el formulario; tú puedes hacer una subrutina que ponga en una variable el id y luego haces un
Sheets(variable).selected o activate.
Adjunto la rutina "CARGAFORMA", posiblemente te pueda dar una idea .

Sub CARGAFORMA()

FIL01 = ActiveCell.Row
COL01 = ActiveCell.Column
If FIL01 < 2 And FIL01 > U3 Then
MsgBox "Mal posicionado en FILA ...."
GoTo FINCARGA
End If
CUEN01 = Mid(Sheets(2).Cells(FIL01, 3), 3, 10)
CUENTA = "'" & CUEN01 & "'"
SQLSTRING = "SELECT CAFCPROCESO, CADIASMORA, CAMONTO, CACALIFFINAL, CAPORCENTAJE, CAPROVISION " & _
"FROM RSCALIFICACION WHERE CACGOPER = " & CUENTA & _
" ORDER BY CAFCPROCESO DESC "
Call CONSULTAPARTICULAR(NTABLA, SQLSTRING, NUMREGS, SINO)

If SINO = "NO" Then GoTo FINCARGA

UserForm2.TextBox1.Value = Sheets(2).Cells(FIL01, 3)
UserForm2.TextBox2.Value = Sheets(2).Cells(FIL01, 6)
Load UserForm2
UserForm2.Show
FINCARGA:
End Sub


Espero haberte apoyado con algo.
Saludos Cordiales
Jaime