Crear cuenta
(2)
'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
(2)
(1)
(2)
(1)
'Pasar datos de excel a TXT
Sub Consulta01()
Dim NombreArchivo, rutaArchivo As StringNombreArchivo = 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