Excel - URGENTE problema con formato de celdaaaaa ayudenme

necesito colocar en todas las celdas un formato.
es decir el formato definido por mi es: #-##-##-##-##-##-##

hasta ahi vamos bien.... pero quiero que este formato se adapte a la cantidad de digitos que contiene la celda es decir


si la celda me aparece 101 me aparezca 1-01
si la celda contiene 10101 me aparezca 1-01-01
si la celda contiene 1010101 me aparezca 1-01-01-01
si la celda contiene 101010101 me aparezaca 1-01-01-01-01
si la celda contieen 10101010101 me aparezca 1-01-01-01-01-01

yo selecciono todas las celdas que le quiero aplicar este formato.. y en formato personalizado coloco #-##-##-##-##-##-##

el me lo hace y me coloca los guiones.. el problema està que cuando le doy aceptar me aparece asi..

si la celda me aparece 101 me aparezca ----1-01
si la celda contiene 10101 me aparezca ----1-01-01
si la celda contiene 1010101 me aparezca ---1-01-01-01
si la celda contiene 101010101 me aparezaca --1-01-01-01-01
si la celda contieen 10101010101 me aparezca -1-01-01-01-01-01


quiero que me quite esos guiones (-) de mas cuando en la celda no tiene la cantidad de digitos completos para el formato... porque solo me hace formato que quiero en el ultimo nivel, de resto me coloca los guiones

como hago para quitar estos guiones sin necesidad de darle un formato a celda por celda... porque son alrededor de 30000 celdas y no le voy a dar un formato para cada celda

AYUDENMEEEE PLEASEEEE..!!!! ES URGENTEEEEE.. tengo diasss dandole a esto

Pues por lo que veo una solucion seria crear una macro que pase por las 30000 celdas, revise una por una, y dependiendo de la cantidad de digitos en una celda, le asigne el fomato adecuado.

Abraham

pequeño detalle.. :( porq no trabajo mucho con macro..!! igual muchasss gracias =)...!

Pásame el libro al correo electrónico y veré si puedo hacerte la macro.
Saludos

Hola a ambos, si surge algun problema no dejen de avisarme, yo tambien estoy trabajando en ello.

Abraham

Hola amigos, aqui les envio un ejm de una pequeña macro que convierte el formato que busca Luisana en una
columna (A), donde hay un encabezado en A1 que dice HOLA. Es para 11, 9, 7, 5 y 3 digitos.

Sub conv()
Dim num As String

Range("a2").Select
ActiveCell.End(xlDown).Select
Do While ActiveCell.Value <> "hola"

celda = ActiveCell.Value
num = Len(celda)
Select Case num
Case 11
Selection.NumberFormat = "#-##-##-##-##-##"
Case 9
Selection.NumberFormat = "#-##-##-##-##"
Case 7
Selection.NumberFormat = "#-##-##-##"
Case 5
Selection.NumberFormat = "#-##-##"
Case 3
Selection.NumberFormat = "#-##"
End Select

ActiveCell.Offset(-1, 0).Select
Loop

End Sub

Abraham

Hola Abraham,
Muchísimas gracias por tu interés, pero creo que ya no hace falta. Ayer tarde recibí el fichero de Luisana y lo arreglé sin macros.
El fichero, parece ser, venía de otra aplicación y tenía algunas cosas "raras" celdas agrupadas, repetición de encabezados de listados, formatos extraños, etc. En una columna coloqué la longitud del código y después con filtros coloqué el formato adecuado en las celdas que correspondían según la longitud.

Saludos

Pues que bueno que pudiste solucionar el problema amigo. en todo caso, la macro queda de ejemplo para todos.

Abraham