Código Botón Acepar Agenda BB

Private Sub cmdAceptar_Click()
Dim Renglon As Integer
Renglon = 1
Do While ActiveSheet.Cells(Renglon, 1) <> ""
Renglon = Renglon + 1
Loop
ActiveSheet.Cells(Renglon, 1).Activate
ActiveSheet.Cells(Renglon, 1) = Renglon - 1
ActiveSheet.Cells(Renglon, 2) = txtNombre.Text
ActiveSheet.Cells(Renglon, 3) = txtPin.Text
txtNombre.Text = ""
txtPin.Text = ""
End Sub


'Para que este código trabaje los componentes de el formulario se deben llamar tal y como estan escritos en el código.

ma. jose s

agenda bb

practica 3.7

practica 3.7

Practica 3.7

https://docs.google.com/leaf?id=0B_Lv-jBhptTOOTRhYWExNmUtMzdiZS00ZGE1LTlkZDgtMmM2MTQyMDkwZDIx&hl=en_US

Practica 3.7

https://docs.google.com/open?id=0B-dbr-sjAPk-YWE5NGVkMGItYWZiYS00NmQwLWI3OGItNDRkYWMxMDU5Yzg5

Practica3.7MiriamValdez

Practica3.7MiriamValdez

Practica 3.7, Agenda

Practica 3.7

Agenda BlackBerry

Practica 3.7

liga

Practica 3.7

a

Practica 3.7

Liga

Practica 3.7

Practica 3.7

Practica 3.7

Practica 3.7

practica 3.7

practica 3.7

Agenda BB

Liga Lizzy

3.7 Agenda BB

Liga Graciela

Jose Manuel

Formulario 1

Ma. Jose S

3.6

practica3.5,MiriamValdez

practica3.5,MiriamValdez

practica 3.6

practica 3.6

3.6 Lista de Numeros

Liga graciela

PRACTICA 3.6

Numeritos