Dato alfanumerico incrementable

[Rapapaz]

Buenos dias, tengo una formula que me devuelve un numero que se incrementa + 1 al pasar el registro siguiente:
Private Sub UserForm_Activate()
Sheets("Hoja3").Activate
Range("A2").Select
If...

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í

 

[Deleted member 10123]

Hola
Prueba con esto.

Private Sub UserForm_Activate()
    Sheets("Hoja3").Activate
    Dim codigo As Long
    
    If IsEmpty(Range("A2").Value) Then
        codigo = 1
    Else...

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í

 

[Rapapaz]

Gracias por la respuesta...así lo haré.