Formulario VBA para insertar datos





Este es un ejemplo de formulario que introduce datos en hoja Excel esta programado mediante VBA o Macro de Excel, es algo sencillo, pero te dará una idea de como modificar o complementar el formulario que tu tengas, en el link del final podrás bajar el archivo de ejemplo.



Por favor lee un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.





  

  
Código que se inserta en el formulario

Private Sub CommandButton1_Click()
'Inserta fila
Selection.EntireRow.Insert
'LimpiaLimpia Los Textbox
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
'Envia el cursor al Textbox1 para volver a capturar los datos
TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
Range("a2").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("b2").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("c2").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Private Sub TextBox4_Change()
Range("d2").Select
ActiveCell.FormulaR1C1 = TextBox4
End Sub
Private Sub TextBox5_Change()
Range("e2").Select
ActiveCell.FormulaR1C1 = TextBox5
End Sub



 Código que se inserta en el un módulo

 Sub CargaFormulario()
'llama al formulario
    Load UserForm1
    UserForm1.Show
  End Sub






Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends