Visual Basic para Aplicaciones - Busqueda de registros visual basic con excel 2010

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 1
Ha disminuido su posición en 10 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Busqueda de registros visual basic con excel 2010

Publicado por luis ignacio (1 intervención) el 13/03/2017 08:51:35
tengo esta aplicacionbici

en el boton cedula se introduce cedula y el encuentra el resultado nombre datos , pero cuando le doy en el campo vacio azul salta error dice Error compilacion falta end sub
pero el end sub ya esta al final , este es el codigo q uso
que me faltara , tambien me gustaria hacer lo siguiente que si coloco el numero de la cedula y doy buscar . me encuentro todos los datos del lado , lo cual lo esta haciendo con este codigo muy bien , pero me gustaria agregarle otro boton que diga salida y me registre la hora de salida en una celda de lo que busco al lado como nombre cedula ficho este proyecto es un ingreso y salida

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub UserForm_Click()
Private Sub CommandButton3_Click()
MsgBox "click aceptar click buscar ficho mas fichos "
Application.ScreenUpdating = False
Sheets("Registro Alumnos").Select
Cells.Find(What:=TextBox8, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox5 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox6 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox7 = ActiveCell
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder