Mostrar los tags: c

Indica la cantidad: 10000

Indica el interes: 4.5

Indica los años: 20

--------------------------------------------------

año 1 capital 10000.00 interes 450.00 total 10450.00

año 2 capital 10450.00 interes 470.25 total 10920.25

año 3 capital 10920.25 interes 491.41 total 11411.66

año 4 capital 11411.66 interes 513.52 total 11925.19

año 5 capital 11925.19 interes 536.63 total 12461.82

año 6 capital 12461.82 interes 560.78 total 13022.60

año 7 capital 13022.60 interes 586.02 total 13608.62

año 8 capital 13608.62 interes 612.39 total 14221.01

año 9 capital 14221.01 interes 639.95 total 14860.95

año 10 capital 14860.95 interes 668.74 total 15529.69

año 11 capital 15529.69 interes 698.84 total 16228.53

año 12 capital 16228.53 interes 730.28 total 16958.81

año 13 capital 16958.81 interes 763.15 total 17721.96

año 14 capital 17721.96 interes 797.49 total 18519.45

año 15 capital 18519.45 interes 833.38 total 19352.82

año 16 capital 19352.82 interes 870.88 total 20223.70

año 17 capital 20223.70 interes 910.07 total 21133.77

año 18 capital 21133.77 interes 951.02 total 22084.79

año 19 capital 22084.79 interes 993.82 total 23078.60

año 20 capital 23078.60 interes 1038.54 total 24117.14

'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