Extraer formato de Celda a otra columna

hola, jose !

Tengo el siguiente formato de celda: #,##0 "MK"
Necesito extraer la "MK" de la celda y pasarla a una columna.
... mediante formulas o mediante codigo pero necesito... extraer esa 'MK' de la Celda y colocarla en una columna adicional...

op1: definiendo una funcion personaliada (codigo vba) p.e. en un modulo de codigo estandar:

Function VerFormato(Celda As Range) As String
VerFormato = Celda.Cells(1).NumberFormat
End Function

y luego la usas como cualquier funcion normal de excel (p.e.)
[C2] =VerFormato(b2)
y obtendras como texto el formato aplicado a B2... -> #,##0 "MK"

op2: usando macro-funciones del (viejo ?) excel v-4 +/- asi:

a) B2 la celda con el formato
b) C2 la celda donde quieres rescatar el formato <= SELECCIONALA
c) usa (menu) insertar / nombre / definir
1) nombre: VerFormato
2) formula: =indicar.celda(7+0*hoy(),!b4)
d) en [D2] llamas al nombre: =VerFomato y obtendras el texto: -> #,##0 "MK"

OJO: no podras usar ambos procedimientos con el mismo nombre

y ya lo que necesitas "limpiar" del formato obtenido... (dependera de si siempre buscas SOLO "MK" ???)

p.e. usando el nombre en [C2] =espacios(sustituir(derecha(verformato,5),"""",""))

saludos,
hector.

On 3 nov, 15:18, "Héctor Miguel"
wrote:

hola, jose !

> Tengo el siguiente formato de celda: #,##0 "MK"
> Necesito extraer la "MK" de la celda y pasarla a una columna.
> ... mediante formulas o mediante codigo pero necesito... extraer esa 'MK' de la Celda y colocarla en una columna adicional...

op1: definiendo una funcion personaliada (codigo vba) p.e. en un modulo de codigo estandar:

Function VerFormato(Celda As Range) As String
  VerFormato = Celda.Cells(1).NumberFormat
End Function

y luego la usas como cualquier funcion normal de excel (p.e.)
[C2] =VerFormato(b2)
y obtendras como texto el formato aplicado a B2... -> #,##0 "MK"

op2: usando macro-funciones del (viejo ?) excel v-4 +/- asi:

a) B2 la celda con el formato
b) C2 la celda donde quieres rescatar el formato <= SELECCIONALA
c) usa (menu) insertar / nombre / definir
    1) nombre: VerFormato
    2) formula: =indicar.celda(7+0*hoy(),!b4)
d) en [D2] llamas al nombre: =VerFomato    y obtendras el texto: -> #,##0 "MK"

OJO: no podras usar ambos procedimientos con el mismo nombre

y ya lo que necesitas "limpiar" del formato obtenido... (dependera de si siempre buscas SOLO "MK" ???)

p.e. usando el nombre en [C2] =espacios(sustituir(derecha(verformato,5),"""",""))

saludos,
hector.

Excelente, muchisimas gracias por tu ayuda Hector, funciono muy bien,
gracias