Buscador y modificador de datos Excel visual basic

Necesito tres botones, tres textbox y tres labels, lo que quiero con esto es que al colocar en el textbox1 el dato a buscar el textbox2 y 3 me den los datos que contienen las celdas consecutivas a la derecha. Y luego de tener esta informacion poder modificarla desde el mismo textbox donde se econtraba el dato. Si existe una forma sencilla se los agradeceria, estoy utilizando esto pero el boton de buscar no me arroja ningun dato
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 Direccion = ActiveCell ActiveCell.Offset(0, 1).Select Telefono = ActiveCell TextBox2 = Direccion TextBox3 = Telefono End Sub Private Sub CommandButton2_Click() Selection.EntireRow.Delete Range("A1").Select TextBox1 = Empty TextBox2 = Empty TextBox3 = Empty TextBox1.SetFocus End Sub Private Sub CommandButton3_Click() Range("A1").Select Selection.EntireRow.Insert TextBox1 = Empty TextBox2 = Empty TextBox3 = Empty TextBox1.SetFocus End Sub Private Sub TextBox1_Change() Range("A1").FormulaR1C1 = TextBox1 End Sub Private Sub TextBox2_Change() Range("B1").FormulaR1C1 = TextBox2 End Sub Private Sub TextBox3_Change() Range("C1").FormulaR1C1 = TextBox3 End Sub
0

Añade tu respuesta

Haz clic para o