buenas tardes, alguien me puede ayudar, toy tratando de hacer una macro donde existes varios textbox,
uno indica el día
otro el mes
otro factura
otro cliente
otro importe
otro iva
otro total
el problema surge cuanto capturo en la parte de clentes el nombre, este lo debe buscar en los ya capturados para evitarme volver a escribir todo el nombre, hasta este punto lo he logrado, lo unico que no logro es que cuadno me localice el cliente si existe, lo copie y lo pegue en el textbox destinado al cliente.
anexo macro, para una mejor visión
Private Sub CommandButton1_Click()
Rem Inserta un renglon
Selection.EntireRow.Insert
Rem Empty Limpia los Textbox
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
Rem Textbox1.Setfocus envía el cursor al Textbox1 Para Volver a Caputar Datos
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Range("A4").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("B4").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("c4").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Private Sub TextBox4_Change()
Range("d4").Select
ActiveCell.FormulaR1C1 = TextBox4
Cells.Find(What:=TextBox4, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub
Private Sub TextBox5_Change()
Range("e4").Select
ActiveCell.FormulaR1C1 = TextBox5
Rem Aqui Se Formula el iva
TextBox6 = Val(TextBox5) * 0.15
Rem Aqui se Coloca la suma de importe mas iva
TextBox7 = Val(TextBox5) + Val(TextBox6)
End Sub
Private Sub TextBox6_Change()
Range("f4").Select
ActiveCell.FormulaR1C1 = TextBox6
End Sub
Private Sub TextBox7_Change()
Range("g4").Select
ActiveCell.FormulaR1C1 = TextBox7
End Sub
por su tiempo y ayuda muchas gracias
