Código Fuente para Activación de Formularios
Descargar URL: http://www.gigasize.com/get.php?d=wop20p8wyzb
Guía práctica Nº1 de Macros
Descargar URL: http://www.gigasize.com/get.php?d=23ndwtj4o7f
Guía práctica Nº2 de Macros
Descargar URL: http://www.gigasize.com/get.php?d=ymzvy7gj5xc
Código Buscar
BUSCAR
Private Sub CommandButton1_Click()
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
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
lunes, 10 de agosto de 2009
Suscribirse a:
Enviar comentarios (Atom)
No hay comentarios:
Publicar un comentario