Auto generar numeración en celda al crear nueva hoja

Hola experto,
Bueno nesecito generar una numeracion cresciente com el seguinte formato  000000   en la celda g5 de cada nueva hoja que me genera la macro que tengo.
Te passo la rutina que me genera el codigo abajo en la cual me gustaria que lo generase tambiem en la celda g5 de cada nueva hoja.
Sub NEW_COSTUMER()
Dim x As Long
Sheets("000000").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Format(Sheets((Sheets.Count) - 1).Name + 1, "000000")
End Sub
Muchas Gracias
CarlOS Gomes

1 Respuesta

Respuesta
1
Prueba así:
Sub NEW_COSTUMER()
Dim x As Long
Sheets("000000").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Format(Sheets((Sheets.Count) - 1).Name + 1, "000000")
ActiveSheet.[G5] = ActiveSheet.Name
ActiveSheet.[G5].NumberFormat = "000000"
End Sub
Abraham
Hola experto,
Como siempre eres el mejor as hecho todo en mi base de datos que siempre sonhe hacer e no sabia.
No te imaginas la felicidad que tengo e el quanto te lo agradezco.
Que tengas una feliz navidad junto con tu familia.
Excelente página web la tuya.
Cuidate mucho.
Carlos Gomes

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas