
Amortizaciones
Excel
Publicado el 5 de Mayo del 2021 por Administrador (718 códigos)
2.122 visualizaciones desde el 5 de Mayo del 2021
Esta plantilla Excel calcula las amortizaciones de un artículo para la declaración de la renta.


'
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