Ver Mensaje Individual
  #3 (permalink)  
Antiguo 10/11/2010, 10:27
Avatar de Pablus00
Pablus00
 
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 20 años, 4 meses
Puntos: 11
Respuesta: Generar correlativo con While VBA - Excel

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
__________________
-- Nunca te des por vencido, aún vencido -- Web