Generar códigos consecutivos a partir de un número

[panini]

Buenas a todos, antes de nada agradeceros vuestra atención. Me gustaría saber si se puede dar solución a un problemilla que tengo. Quiero generar códigos de la siguiente forma:

Si la celda A1=...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Foxtri]

Hola,panini

Una ayuda.

Sub Generar_códigos_consecutivos()
Dim i
Dim Xis, X
Range("C:C").Clear
For i = 1 To Range("A65535").End(xlUp).Row
While Xis < Cells(i, 1)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[panini]

Muchísimas gracias, voy a probar a ver!!!

 

[panini]

Buenísimo, muchísimas gracias Foxtri!!! Funciona a la perfección!

 

[John Vergara]

Hola panini (y Foxtri)

Revisa por favor el archivo adjunto (Haz clic en la flecha para generar los códigos).

Comentas!
Espero haberte ayudado, Dios te bendiga!

 

[panini]

Muchas gracias johnmpl. También me sirve. Suerte en el camino