Generar correlativo con While VBA - Excel

[tazzwt]

Como se puede hacer esto con codigo VBA.

Que desde la celda A1 hasta la A100 muestre los numeros correlativo.

Es decir recorrer la columna A1 desde el 1 hasta el 100 .

Demo:





Tengo este codigo:

Código Excel:

Sub misnumeros()
    Dim x As Integer
    x = 1
    While x < 100
    Sheets("Hoja1").Range("A" & x).Select = x
    x = x + 1
    Loop
End Sub
 

[3pies]

Prueba esto:

Código:

Sub correlativos()
'nos situamos en la celda A1
Range("A1").Select
'desde 1 hasta 100...
For i = 1 To 100
  'escribe el valor en la celda activa
    ActiveCell = i
  'baja una fila
    ActiveCell.Offset(1, 0).Select
'continúa con el bucle
Next
End Sub

Salu2

[Pablus00]

Hola tazzwt, proba con el siguiente codigo:

Sub correlativos()

Hoja1.Range("a1").Value = 1
Hoja1.Range("a2").Select

Do While ActiveCell.Offset(-1, 0).Value < 100
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
ActiveCell.Offset(1, 0).Select
Loop

End Sub

Saludos

[jchuk]

Hola,

Incluso con el mismo código que has puesto.

Sólo pon un Do delante del While y cambia el Select por Value.

Saludos.