Números consecutivos con letras

[liloo]

Hola,

 

Ante todo felices fiestas y año nuevo,

Siguiendo con mi proyecto vuelvo a encallarme, necesito que una de las celdas (G3) de mi hoja1 cambie la numeración cada vez que guardo con un botón que he creado, ahora tengo esto:

     Hoja1.Range("G3").Value = Hoja1.Range("G3").Value + 1

Hace lo que quiero pero mi intención es poner letras antes de la numeración por lo que necesito que en lugar de ser consecutivo 1,2,3,4 etc. Sea FS1, FS2, FS3, FS4, etc..

una ayudita por favor

 

 

 

 

[Israel Cassales]

Si lo he entendido bien, algo como esto debería ser útil

Sub AyudaExcel()
Dim valorActual As String
valorActual = Hoja1.Range("G3").Value
If valorActual Like "FS*" Then
    Dim numero As Integer
    numero = Right(valorActual, Len(valorActual) - 2)
    Hoja1.Range("G3").Value = "FS" & numero + 1
Else
    Hoja1.Range("G3").Value = "FS1"
End If

End Sub

 

[Israel Cassales]

Ayuda Excel.xlsb

[liloo]

Genial, es justo lo que necesitaba, además veo que si en algún momento necesito cambiar las letras "FS" por algo mas largo p.e. "FSA" cambiando el 2 por un 3 (o por la cantidad de letras que queremos que el sistema obvie) funcionará igual

Len(valorActual) - 2)

Len(valorActual) - 3)

gracias Israel