Foros del Web » Soporte técnico » Ofimática »

Generar correlativo con While VBA - Excel

Estas en el tema de Generar correlativo con While VBA - Excel en el foro de Ofimática en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 10/11/2010, 08:53
 
Fecha de Ingreso: marzo-2010
Mensajes: 432
Antigüedad: 12 años, 2 meses
Puntos: 11
Generar correlativo con While VBA - Excel

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:
Ver original
  1. Sub misnumeros()
  2.     Dim x As Integer
  3.     x = 1
  4.     While x < 100
  5.     Sheets("Hoja1").Range("A" & x).Select = x
  6.     x = x + 1
  7.     Loop
  8. End Sub
  #2 (permalink)  
Antiguo 10/11/2010, 10:15
Avatar de 3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 18 años, 5 meses
Puntos: 144
Respuesta: Generar correlativo con While VBA - Excel

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
  #3 (permalink)  
Antiguo 10/11/2010, 10:27
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 18 años, 5 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
  #4 (permalink)  
Antiguo 10/11/2010, 11:08
 
Fecha de Ingreso: julio-2006
Ubicación: Madrid
Mensajes: 943
Antigüedad: 15 años, 9 meses
Puntos: 56
Respuesta: Generar correlativo con While VBA - Excel

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.

Etiquetas: correlativo, excel, vba
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:01.