Busqueda de registros visual basic con excel 2010
Publicado por luis ignacio (1 intervención) el 13/03/2017 08:51:35
tengo esta aplicacion
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
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 = ActiveCellActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCellActiveCell.Offset(0, 1).Select
TextBox5 = ActiveCellActiveCell.Offset(0, 1).Select
TextBox6 = ActiveCellActiveCell.Offset(0, 1).Select
TextBox7 = ActiveCellEnd Sub
Valora esta pregunta
0