Extraer Sangría

Hola giuseppe:

Function Extrae_Sangria(ByVal Rango_S As Range) As Byte
Extrae_Sangria = Rango_S.Cells(1).IndentLevel
End Function


Si la pones así:

Public Function Extrae_Sangria(ByVal Rango_S As Range) As Byte
Extrae_Sangria = Rango_S.Cells(1).IndentLevel
End Function

En en libro PERSONAL.XLS.
Tendrías la función disponible para cualquier libro que abrieses
en tu PC.

Saludos.-

"giuseppe"
escribió en el mensaje
de noticias news:
Mostrar la cita

¡ Hola !
Necesitaría el "valor sangría" de una celda,
concretamente el valor numérico (por ejemplo: cero, o uno o dos,
etc...).
La manera más facil para obtenerlo es ponerse encima de la celda =>
boton derecho => formato celdas => alineación =>
sangría.
Mi problema es que tengo miles de celdas de las cuales sacar el "valor
sangría" de cada una de ellas. De una en una sería
imposible...
Me imagino la solución sería hacer una función (hacer una
macro).
Es decir: 1) Ir al editor VBA. 2) Insertar modulo. 3) Poner la
programación de la función Extraer_Sangría.
Yo no tengo ni idea de esa programación. Vosotros me podéis
ayudar? Muchísimas gracias de antemano. Un saludo