Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

numerar hasta la última

05/09/2004 - 15:28 por chiri13 | Informe spam
Ayuda Hacer una pregunta
quisiera crear un código, que me creara una columna nueva (eso ya lo he
conseguido) y después pusiera números correlativos desde el 1 hasta el
último registro que tenga (puede ser el 5 como el 225), claro el problema es
que sé numerar hasta el 255, pero no sé como hacer para que me valga para la
siguiente ocasión que tendre otro número de registros.

Gracias
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
05/09/2004 - 21:23 | Informe spam
hola, chiri !

... codigo ... creara una columna nueva ... y ... pusiera numeros ... desde el 1 hasta el ultimo registro
... que me valga para la siguiente ocasion que tendre otro numero de registros.



a) suponiendo que estas 'parado' en la celda con el 'primer' registro [listado SIN 'vacios'] y...
quieres insertar la columna a la izquierda de la celda 'activa' numerandola hasta [n] registros...
en un modulo de codigo 'normal' ==Sub InsertarColumnaNumerada()
With ActiveCell
.EntireColumn.Insert
.Offset(, -1) = 1
.Offset(1, -1) = 2
Range(.Offset(, -1), .Offset(1, -1)).AutoFill _
Range(.Offset(, -1), .End(xlDown).Offset(, -1))
End With
End Sub

b) si quieres evitar la 'necesidad' de 'estar parado' en el primer registro...
y 'sabes' que la celda con el primer registro es [p.e.] 'A2'
sustituye la referencia al inicio del bloque 'With' de: With ActiveCell a: With Range("a2")

saludos,
hector.

Preguntas similares

 

Busqueda sugerida :