Jump to content
Sign in to follow this  
Callao2908

Macro para devolver el mes en letras

Recommended Posts

Buenas noches, no sé realmente si esería una macro o una función, pero cómo haría para convertir un número que representa a un mes, el mes en letras. Por ejemplo, 2-->febrero, 5-->mayo, etc.

Gracias

Saludos

Jorge

Share this post


Link to post
Share on other sites

Respuesta: Macro para devolver el mes en letras

Hola

Tambien puedes usar la función texto en el link de abajo puedes consultar la ayuda, como podras apreciar tiene varias modalidades, por ejemplo puede que te devuelva Ene,Feb,...etc o Enero, Febero, etc.

http://office.microsoft.com/es-es/excel/HP100625803082.aspx

desde VBA con una funcion personalizada UDF:

Function NombreMes(ByVal Num_Mes As byte)

NombreMes = VBA.MonthName(Num_Mes)

End Function

Saludos cordiales

Share this post


Link to post
Share on other sites

Respuesta: Macro para devolver el mes en letras

bien te explico una vez que le das el formato a la celda, cuando escribas la fecha tienes que poner ejemplo: 01/12/09 y el resultado que vas a ver es el siguiente: 01-diciembre.- Lo que haces es poner la fecha completa pero lo que varias en formato es la forma que deseas verlo, saludos.-

Share this post


Link to post
Share on other sites

Respuesta: Macro para devolver el mes en letras

neverdelimon1, me parece más práctico la función personalizada,

pero cómo haría en una tabla con más de 5000 registros y no estar copiando fila por fila

Gracias

Saludos Jorge

Share this post


Link to post
Share on other sites

Respuesta: Macro para devolver el mes en letras

Hola Callao2908

Se puede hacer una rutina que haga todo el proceso, la pregunta seria como deseas que trabaje la rutina ¿sobre un rango seleccionado? o ¿en un rango específico?, su pudieses subir un ejempo, estoy seguro que con mayor rapides podriamos hacer el procedimiento "sub".

saludos

Share this post


Link to post
Share on other sites

Respuesta: Macro para devolver el mes en letras

never, buenas noches, te estouy adjuntando el archivo. En el interior encontrarás las observaciones. Pero se trata de aumentar una columna con los meses en letras:confused:

Saludos

Gracias

Nota: Espero te llegue el archivo ¡ QUÉ DIFICIL ES AHORA ADJUNTAR UN ARCHIVO A LA PREGUNTA!:mad:

Libro123.zip

Share this post


Link to post
Share on other sites

Respuesta: Macro para devolver el mes en letras

Hola

Aqui te coloco dos opciones (seguramente hay mas opciones pero son las primeras que me vienen a la mente)

En un módulo pega el siguiente código y verifica cual te funciona mejor

'-----------------------------------------------------------------------------------------------------

Option Explicit

Sub Opcion_1_Generar_MES1()

With ActiveSheet

.Range("I1").Value = "MES1"

.Range("I2").Formula = "=TEXT(F2*28,""mmmm"")"

.Range("I2").AutoFill .Range("I2", .Range("F1").End(xlDown).Offset(, 3))

.Range("I2", .Range("F1").End(xlDown).Offset(, 3)).Copy

.Range("I2").PasteSpecial xlValues

Application.CutCopyMode = False

End With

End Sub

Sub Opcion_2_Generar_MES1()

Dim c As Range

With ActiveSheet

.Range("I1").Value = "MES1"

For Each c In .Range("I2", .Range("F1").End(xlDown).Offset(, 3))

c.Value = VBA.MonthName(c.Offset(0, -3).Value)

Next c

End With

End Sub

'-----------------------------------------------------------------------------------------------------

Si son muchos datos (mas de 25 000 filas) quizás la opcion1 sea mas rápida, la opcion 2 digamos que es más fiable (ya que si encuentra un numero raro producira error), aunque recorre una una cada celda.

saludos cordiales

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



  • Posts

    • Pues esto no me lo esperaba... . Investigando parece una especie de bug de Excel y el evento Calculate. La verdad es que cada vez que he lidiado con este evento me ha dado más quebraderos de cabeza que otra cosa. Te dejo otra solución. Prueba y me dices BUSCAR DATO EN OTRA HOJA-1.xlsm
    • Gracias por responder, avalencia lo único que quiero es de la variable "fecha" sacar el numero de semana.   JSDJSD seria posible sacar la semana de los datos que tengo puesto en la hoja de excel y no desde un formulario, he visto otros ejemplo de formulario, pero la verdad que no llego a enterarme del código para sacar el numero de semana, de todas formas es de ahí donde tengo que obtener el año y el mes.   P.D. En el ejemplo solo funciona con enero y febrero, cuando la primera semana empieza en sábado o miércoles, el resto no esta completo el código.  
    • Hola @Haplox buenos días. Tengo una consulta. Si bien la macro funciona perfectamente. Ahora cada vez que abro un archivo excel, teniendo abierto el archivo donde está la última macro que enviaste, sale en mensaje que dice "Se ha producido el erro '9' en tiempo de ejecución. Subindice fuera del intervalo" Que será???
    • buenas; De entrada, gracias por responder, y tan rápido!! Acabo de probar el excel que me enviastes, pero no es exactamente lo que busco; Me explico; el tema es que cualquiera de estas entradas: tu2 TU02 TU 02 TU-02 TU-2 me dé como resultado todos estos archivos: A -TU2 - - Rev_0.pdf A -TU02 - - Rev_0.pdf A -TU 2 - - Rev_0.pdf A -TU-02 - - Rev_0.pdf pero no estos: A_TU_12--Rev_0.pdf A_TU 22--rev_0.pdf  Las entradas se escriben a mano, y cada uno la escribe como le da la gana los planos nos los dan, y también cada obra numera distinto; pero, en este ejemplo, todas las entradas apuntan a la pieza "TU 2", y busco que todos los planos que apunten a esa pieza los encuentre, pero los que apunten a la pieza, "TU 12" o "TU 22" p.ej. no salgan como resultado
    • Buenas Gerson. Funciona perfectamente en excel, pero también tengo que utilizar LibreOffice en mi trabajo y me desconfigura todo los datos. No se si estas fórmulas son compatibles. Muchas gracias por todo. Saludos
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy