codigo guardar y buscar
Publicado por HECTOR (12 intervenciones) el 21/01/2005 22:30:03
Buenas tardes , mi pregunta y problema es el siguiente :
tengo un documento de excell, en la hoja numero 1 tengo la presentacion, esta solamente pintada la hoja con unas imagenes insertadas, nada en especial , , una de ellas al darle click me despliega el userform1 donde se da la bienvenida y tiene un boton el cual al clikear muestra el userform2 el cual tiene labels y textbox, el valor de estos textbox los quiero vaciar en la hoja numero dos, para lo cual ya asigne a que celda quiero enviar la informacion de cada uno de los textbox, el problema lo tengo en el boton de ""guardar"" ya que no puedo darle la instruccion correcta, a continuacion expongo lo que tengo:Private Sub CommandButton2_Click()
Sheets("Hoja2").Select
Range("b1").Select
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
TextBox10 = Empty
TextBox11 = Empty
TextBox12 = Empty
TextBox13 = Empty
TextBox14 = Empty
TextBox15 = Empty
TextBox16 = Empty
TextBox17 = Empty
TextBox18 = Empty
TextBox19 = Empty
TextBox20 = Empty
TextBox21 = Empty
TextBox22 = Empty
TextBox23 = Empty
TextBox24 = Empty
TextBox25 = Empty
TextBox26 = Empty
TextBox27 = Empty
TextBox28 = Empty
TextBox29 = Empty
TextBox30 = Empty
TextBox31 = Empty
TextBox32 = Empty
TextBox33 = Empty
TextBox34 = Empty
TextBox35 = Empty
TextBox36 = Empty
TextBox37 = Empty
TextBox38 = Empty
TextBox39 = Empty
TextBox40 = Empty
TextBox41 = Empty
TextBox42 = Empty
TextBox43 = Empty%0
tengo un documento de excell, en la hoja numero 1 tengo la presentacion, esta solamente pintada la hoja con unas imagenes insertadas, nada en especial , , una de ellas al darle click me despliega el userform1 donde se da la bienvenida y tiene un boton el cual al clikear muestra el userform2 el cual tiene labels y textbox, el valor de estos textbox los quiero vaciar en la hoja numero dos, para lo cual ya asigne a que celda quiero enviar la informacion de cada uno de los textbox, el problema lo tengo en el boton de ""guardar"" ya que no puedo darle la instruccion correcta, a continuacion expongo lo que tengo:Private Sub CommandButton2_Click()
Sheets("Hoja2").Select
Range("b1").Select
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
TextBox10 = Empty
TextBox11 = Empty
TextBox12 = Empty
TextBox13 = Empty
TextBox14 = Empty
TextBox15 = Empty
TextBox16 = Empty
TextBox17 = Empty
TextBox18 = Empty
TextBox19 = Empty
TextBox20 = Empty
TextBox21 = Empty
TextBox22 = Empty
TextBox23 = Empty
TextBox24 = Empty
TextBox25 = Empty
TextBox26 = Empty
TextBox27 = Empty
TextBox28 = Empty
TextBox29 = Empty
TextBox30 = Empty
TextBox31 = Empty
TextBox32 = Empty
TextBox33 = Empty
TextBox34 = Empty
TextBox35 = Empty
TextBox36 = Empty
TextBox37 = Empty
TextBox38 = Empty
TextBox39 = Empty
TextBox40 = Empty
TextBox41 = Empty
TextBox42 = Empty
TextBox43 = Empty%0
Valora esta pregunta


0