Ayuda con fechas

[yordin]

buenas tardes me gustaría saber si existe alguna macro que me cree en una celda especifica la fecha en el siguiente formado : si es 01/05/2014 que la macro la convierta en " Caracas al 01 de Mayo del 2014" o si es 20/05/2014 la exprese en " Caracas a los 20 días del mes de Mayo del 2014"

[Antoni]

Te dejo una UDF, ponla en un módulo y úsala como fórmula en cualquier celda de la siguiente manera

=CARACAS(

Celda

)

Siendo Celda la celda que contiene la fecha

Function CARACAS(ByVal Fecha As Range) As String

Dim Nommes As String

CARACAS = "#ERROR"

If IsDate(Fecha.Value) = False Then Exit Function

If Day(Fecha.Value) = 1 Then

  CARACAS = " Caracas, al 1 de "

Else

  CARACAS = " Caracas, a los " & Day(Fecha.Value) & " días del mes de "

End If

Nommes = MonthName(Month(Fecha.Value))

Nommes = UCase(Left(Nommes, 1)) & Mid(Nommes, 2)

CARACAS = CARACAS & Nommes & " del " & Year(Fecha.Value)

End Function

[/CODE]

[yordin]

Te dejo una UDF, ponla en un módulo y úsala como fórmula en cualquier celda de la siguiente manera

=CARACAS(

Celda

)

Siendo Celda la celda que contiene la fecha

Function CARACAS(ByVal Fecha As Range) As String

Dim Nommes As String

CARACAS = "#ERROR"

If IsDate(Fecha.Value) = False Then Exit Function

If Day(Fecha.Value) = 1 Then

  CARACAS = " Caracas, al 1 de "

Else

  CARACAS = " Caracas, a los " & Day(Fecha.Value) & " días del mes de "

End If

Nommes = MonthName(Month(Fecha.Value))

Nommes = UCase(Left(Nommes, 1)) & Mid(Nommes, 2)

CARACAS = CARACAS & Nommes & " del " & Year(Fecha.Value)

End Function

[/CODE]

Dios te continué bendiciendo con ese don de conocimientos, hermano excelente gracias

[yordin]

una ultima consulta y disculpa cuando es dia menor al 10 se puede hacer que el "cero" acompañe el numero del dia ejemplo:

Caracas, a los 8 días del mes de Junio del 2014 asi esta saliendo pero necesito que salga :

Caracas, a los 08 días del mes de Junio del 2014

[yordin]

listo la solucion era en una parte del codigo del udf

CARACAS = " Caracas, a los " & Day(Fecha.Value) & " días del mes de "

y tenia que ser:

CARACAS = " Caracas, a los " & Format(Day(Fecha.Value), "dd") & " días del mes de "