Blog para publicación de prácticas, tareas, examenes de la materia Elaborar Hojas de Cálculo.
lunes, 7 de noviembre de 2011
practica 3.7
https://docs.google.com/open?id=0B4b0D88H-MS7NzljMjg0ZmQtZGFkZi00YTc2LWIxNGEtYTc2Zjk0OWQyOTY3
Código Botón Acepar Agenda BB
'Declaramos variable que nos permite manipublar las filas o renglones.
Dim Renglon As Integer
Renglon = 1
'Códgo para recorrer los datos que tenemos ya en nuestra hoja de cálculo y saber donde guardar el último dato.
Do While ActiveSheet.Cells(Renglon, 1) <> ""
Renglon = Renglon + 1
Loop
'Asignamos los datos contenidos en el formulario a la hoja de cálclo.
ActiveSheet.Cells(Renglon, 1).Activate
ActiveSheet.Cells(Renglon, 1) = Renglon - 1
ActiveSheet.Cells(Renglon, 2) = txtNombre.Text
ActiveSheet.Cells(Renglon, 3) = txtPin.Text
ActiveSheet.Cells(Renglon, 4) = txtcorreo.Text
'Código para limpiar los cadros de texto despues de guardar en la hoja de calculo.
txtNombre.Text = ""
txtPin.Text = ""
txtcorreo.Text = ""
'Poner el cursor en el cuadro de texto del nombre
txtNombre.SetFocus
Dim Renglon As Integer
Renglon = 1
'Códgo para recorrer los datos que tenemos ya en nuestra hoja de cálculo y saber donde guardar el último dato.
Do While ActiveSheet.Cells(Renglon, 1) <> ""
Renglon = Renglon + 1
Loop
'Asignamos los datos contenidos en el formulario a la hoja de cálclo.
ActiveSheet.Cells(Renglon, 1).Activate
ActiveSheet.Cells(Renglon, 1) = Renglon - 1
ActiveSheet.Cells(Renglon, 2) = txtNombre.Text
ActiveSheet.Cells(Renglon, 3) = txtPin.Text
ActiveSheet.Cells(Renglon, 4) = txtcorreo.Text
'Código para limpiar los cadros de texto despues de guardar en la hoja de calculo.
txtNombre.Text = ""
txtPin.Text = ""
txtcorreo.Text = ""
'Poner el cursor en el cuadro de texto del nombre
txtNombre.SetFocus
Etiquetas:
Entradas Maestra Gris,
Practica 3.7
Suscribirse a:
Comentarios (Atom)