Generador de Códigos

jues · el sábado a las 18:48

Saludos amigos espero estén bien

En la actualidad utilizo la siguiente macro para generar un código alfanumérico continuo que al guardar los datos se copia en la Celdas “B5” de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2)

Private Sub CommandButton3_Click()
    If Hoja58.Range("B5").Value < 9999 Then
       Hoja58.Range("B5").Value Hoja58.Range("B6").Value + 1
    Else
       Hoja58.Range("B5").Value = 1
    End If

   If Hoja59.Range("B5").Value < 9999 Then
       Hoja59.Range("B5").Value = Hoja59.Range("B6").Value + 1
    Else
       Hoja59.Range("B5").Value = 1
    End If
End Sub

El código se genera normalmente sin embargo no se copia inmediatamente en las Celdas “B5” sino que aparece en las Celdas “B6” mientras que las Celdas “B5” siempre permanecen en blanco, actualmente el código consta de tres letras y cuatro dígitos (RCI-0000) pero me interesa poderle concatenar el mes y año en formato mm-yy para que el código finalmente quede expresado de la siguiente forma RCI-0000-00-00

Mucho les sabre agradecer la ayuda que me puedan dar

RCI PRUEBA..xlsm