Rem Código

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.

Cursos similares a Macros de excel