hola:
TENGO un formulario que inserta un registro mediante un boton asignandole un numero correlativo.
este es el codigo que utilizo, pero necesito que este registro se ingrese n veces yo le indique:
Private Sub CommandButton1_Click()
Sheets("Registro").Select
Dim x As Integer
Aplication.Goto reference = "R1C1"
Selection.End(xlDown).Select
ActiveCell.Offset.Range("A1").Select
x = ActiveCell.Value
x = x + 1
ActiveCell.Offset(1, 0).Range("A1").Value = x 'inserto codigo sera correlativo
ActiveCell.Offset(1, 1) = txtnombre.Text 'ingreso nombre ingresado por usuario
ActiveCell.Offset(1, 2) = txtnombre.Text 'ingreso segundo dato
Aplication.Goto reference = "R1C1"
Aplication.CutCopyMode = False
ActiveWorkbook.Save
End Sub
espero e puedan ayudar
Gracias