Visual Basic - insertar Macros-Excel

Life is soft - evento anual de software empresarial
   
Vista:

insertar Macros-Excel

Publicado por luis (19 intervenciones) el 04/01/2008 19:54:25
no lo puedo creer no se que estoy haciendo mal.
inserto pero al insertar desaparece lo que quiero que aparezca en la casilla de excel
os pongo la formula del : CommandButton2
Private Sub CommandButton2_Click()
Selection.EntireRow.Insert
TextBox115 = Empty
TextBox110 = Empty
TextBox107 = Empty
TextBox106 = Empty
TextBox69 = Empty
TextBox72 = Empty
TextBox79 = Empty
TextBox78 = Empty
TextBox77 = Empty
TextBox76 = Empty
TextBox75 = Empty
TextBox120 = Empty
TextBox113 = Empty
TextBox111 = Empty
TextBox108 = Empty
TextBox104 = Empty
TextBox70 = Empty
TextBox71 = Empty
TextBox81 = Empty
TextBox82 = Empty
TextBox83 = Empty
TextBox68 = Empty
TextBox84 = Empty
TextBox158 = Empty
TextBox159 = Empty
TextBox162 = Empty
TextBox164 = Empty
TextBox166 = Empty
TextBox168 = Empty
TextBox170 = Empty
TextBox172 = Empty
TextBox174 = Empty
TextBox176 = Empty
TextBox66 = Empty
TextBox112 = Empty
TextBox109 = Empty
TextBox105 = Empty
TextBox88 = Empty
TextBox89 = Empty
TextBox90 = Empty
TextBox91 = Empty
TextBox92 = Empty
TextBox93 = Empty
TextBox94 = Empty
TextBox65 = Empty
TextBox141 = Empty
TextBox142 = Empty
TextBox143 = Empty
TextBox144 = Empty
TextBox145 = Empty
TextBox146 = Empty
TextBox147 = Empty
TextBox148 = Empty
TextBox149 = Empty
TextBox150 = Empty
TextBox645 = Empty
TextBox119 = Empty
TextBox115.SetFocus

Y ESTO ES LO QUE PONGO EN EL TEXTOBOX

Range("G19").Select
ActiveCell.FormulaR1C1 = TextBox115

SE SUPONE QUE QUIERO ACTIVAR TODOS LOS TEXTOBOX ANTERIOR MENTE MENCIONADOS
POR DAR UNOS DATOS,


End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder