código para el cuadro de texto
Range("nombre de la celda").select
activecell.formulaR1C1=textBox1
Range("nombre de la celda").select
activecell.formulaR1C1=textBox2
Range("nombre de la celda").select
activecell.formulaR1C1=textBox1
para los botones
insertar o aceptar
Selection.EntireRow.Insert
textBox1=Empty
textBox2=Empty
textBox3=Empty
textBox1.setFocus
formulario
sub abrir formulario()
load userfrom1
userfrom1.show
End sub
No hay comentarios:
Publicar un comentario