Rem Código para buscar, ya lo conocemos
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
Rem la etiqueta 4 toma el valor del renglón activo y permite modificar la información que encontró, ya que modifiques la información presionas el botón actualizar.
Label4 = ActiveCell.Row
noencontro:
End Sub
Private Sub CommandButton3_Click()
Rem Vuelve a indicar el renglón 9 para escribir en los Textboxs
Label4 = "9"
Range("a9").Select
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Rem si nos damos cuenta la etiqueta 4 sirve para llevar el renglón donde introducimos los datos o los modificamos, asi que cada textbox que programemos debe llevar estas lineas.
Range("A" + Label4).FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("B" + Label4).FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("C" + Label4).FormulaR1C1 = TextBox3
End Sub
Bueno amigos, espero les sea de provecho los ejemplos mostrados, por lo tanto nos vemos en la próxima edición, con mas de Macros en Excel.
1. Compartir información en Word 2003. Macros y entorno personalizado En este último curso de Word 2003 , vamos a ver la forma que tiene Word de... [23/11/10] |
860 | ||||
2. Presentaciones con Power Point El programa más empleado en el mundo para realizar presentaciones comerciales, el... [19/11/01] |
229.017 | ||||
3. Introducción al Access Hoy en día cualquier empresa, organización u asociación se enfrenta al manejo de... [03/12/01] |
232.435 |