BOTÓN GUARDAR EN EXCEL

registro
Sheets("datos").Select
ult = Cells(Rows.Count, 1).End(xlUp).Row
Cells(ult + 1, 1) = TextBox1.Text
Cells(ult + 1, 2) = TextBox2.Text
Cells(ult + 1, 3) = TextBox3.Text
Cells(ult + 1, 4) = TextBox4.Text
Cells(ult + 1, 5) = TextBox5.Text
Cells(ult + 1, 6) = TextBox6.Text

_____________________________________________
ESTO PERMITE INGRESAR LOS DATOS A NUESTRA HOJA DATOS

Comentarios

Publicar un comentario

Entradas populares de este blog

efecto hover

#menu{ height:100px; width:100%; text-align:center; } #menu a img{ width:80px; height:80px; } #menu a{ display:inline-block; } #menu a:hover img{ width:90px; height:90px; -webkit-transition: all .3s ease-in-out; -moz-transition: all .3s ease-in-out; -o-transition: all .3s ease-in-out; -ms-transition: all .3s ease-in-out; transition: all .3s ease-in-out; }
Leer más