Generar un ID a partir de ciertos datos

[Jose Luis Avila]

Estoy tratando de generar IDs en la hoja Insumos (sin que se repitan), tengo dos categorías que dan los primeros 3 números del ID pero no logro generar los otros 4 dígitos con un contador.

Quiero que esta información de guarde en una hoja diferente que seria BInsumos.

Por ejemplo tengo que varios tipos de insumos (e.g. Materiales, MO, etc.) pero dentro de cada uno de estos tipos tengo diferentes categorías (e.g. dentro de tipo tengo Aceros, Arenas, Electricidad, etc.). El tipo de insumos le asigna un numero (e.g. Materiales - 1) y la categoría le asigna dos números (e.g. Aceros - 01) por lo tanto si quisiera registrar un nuevo insumo en el tipo Materiales categoría Aceros le asignaría 101. Lo que estoy buscando es que le agregue 101 mas 4  números mas para así generar el ID completo (e.g. 101xxxx) esto sin que se repita ningún ID

Admin3.0.rar

[Antoni]

Abre el adjunto y pulsa sobre el Botón 5.

Admin3.0.xlsm

[Gerson Pineda]

Jose: como veo que envías tus datos a una TABLA, ahí te va mi versión 

With Sheets("BInsumos")
'"Tabla4[ID]" > NOMBRRE DE TABLA
    ve = Evaluate("SUMPRODUCT(--(Tabla4[ID]<>""""))") + 1
    vuf = VBA.IIf(ve = 1, 2, ve + 1)
    Ids = Range("C2") & VBA.Format(vuf - 1, "0000")
    .Cells(vuf, "A") = Ids
    .Cells(vuf, "B") = Range("C3")
    .Cells(vuf, "C") = Range("C4")
    .Cells(vuf, "D") = Range("C5")
End With

 

Saludos