Personalizar celda

[Juangiraud]

Buenos días amigos
quisiera que me ayuden a personalizar una celda para cargar una factura
tendría que quedar así por ejemplo A 00001-00000123 donde la letra puede ser A B C
es decir que yo ponga A 1-123 y automáticamente me coloque A 00001-00000123
se podrá?
muchas gracias

[Héctor Miguel]

necesitas apoyarte de las macros, si suponemos que el rango donde requieres ingresar ese tipo de informacion fuera [C2:C5] (o adapta a tu rango real), copia > pega (o escribe) lo siguiente en el modulo de codigo de 'esa' hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Intersect(Target, Range("c2:c5")) Is Nothing Then Exit Sub
  On Error Resume Next: Application.EnableEvents = False
  Dim car As String, num: car = Left(Target, 2): num = Split(Mid(Target, 3), "-")
  Target = car & Format(num(0), "00000") & Format(num(1), "-00000000")
  Application.EnableEvents = True
End Sub

[Juangiraud]

Literalmente un capo @Héctor Miguel muchísimas gracias