Los códigos más visitados de Excel

'

Formula que calcula el jueves santo de cualquier año hasta el 9999. Programado para insertar el año 'en la celda F4.

'***************************************************************************************************************

=MONEDA(("4/"&F4)/7+RESIDUO(19*RESIDUO(F4;19)-7;30)*14%;)*7-9

'El siguiente código debemos insertarlo en un módulo para usar la funcion semana santa y que nos 'muestre la fecha del jueves santo desde cualquier celda.

'***************************************************************************************************************

Public Function SemanaSanta(Año As Integer) As Date

    SemanaSanta = Evaluate("DOLLAR((""4/""&" & Año & ")/7+MOD(19*MOD(" & Año & ",19)-7,30)*14%,)*7-9")

End Function

'Pasar datos de excel a TXT

Sub Consulta01()

Dim NombreArchivo, rutaArchivo As String

NombreArchivo = Range("A1")

rutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"

Open (rutaArchivo) For Output As 1

Print #1, ActiveSheet.Range("A2").Value

Print #1, ActiveSheet.Range("A3").Value

Print #1, ActiveSheet.Range("A4").Value

Print #1, ActiveSheet.Range("A5").Value

Close #1

Range("A1").Select

MsgBox "Archivo >>>" & NombreArchivo & "<<< Generado con Exito", , "ExcelConsultor"

End Sub