Eğilim Analizi (Trend Analysis)

'Module1

'A) VBProject References List

'Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE
'Name: stdole, Description: OLE Automation, FullPath: C:\WINDOWS\system32\stdole2.tlb
'Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL

'B) TREND ANALYSIS Resource References

'Prf. Dr. Üzeyme DOĞAN; Üretim Planlaması Kontrolü Dersi

Private Sayfa As Worksheet
Sub TrendAnaliziTablosu() 'Table of Trend Analysis

On Error Resume Next
For Each Sayfa In ThisWorkbook.Sheets

If Sayfa.Name = "Trend Analizi" Then GoTo Devam

Next Sayfa
ThisWorkbook.Worksheets.Add Sheets(1)
ActiveSheet.Name = "Trend Analizi"
Devam:
Sheets("Trend Analizi").Select
ActiveSheet.Unprotect
Cells.Select
Selection.Delete Shift:=xlUp
With Range("A1")

.FormulaR1C1 = "ID"
.AddComment
.Comment.Visible = False
.Comment.Text Text:="Frequency" & Chr(10) & ""
With .Comment.Shape

.ScaleWidth 2.09, msoFalse, msoScaleFromTopLeft
.ScaleWidth 1.23, msoFalse, msoScaleFromTopLeft
.ScaleWidth 0.87, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.27, msoFalse, msoScaleFromTopLeft

End With

End With
Range("A2").FormulaR1C1 = ""
Range("A3").FormulaR1C1 = "1"
Range("A4").FormulaR1C1 = "2"
Range("A5").FormulaR1C1 = "3"
Range("A6").FormulaR1C1 = "4"
Range("A7").FormulaR1C1 = "5"
Range("A8").FormulaR1C1 = "6"
Range("A9").FormulaR1C1 = "7"
Range("A10").FormulaR1C1 = "8"
Range("A11").FormulaR1C1 = "9"
Range("A12").FormulaR1C1 = "10"
Range("A13").FormulaR1C1 = "11"
Range("A14").FormulaR1C1 = "12"
Range("A15").FormulaR1C1 = "13"
Range("A16").FormulaR1C1 = "14"
Range("A17").FormulaR1C1 = "15"
Range("A18").FormulaR1C1 = "16"
Range("A19").FormulaR1C1 = "17"
Range("A20").FormulaR1C1 = "18"
Range("A21").FormulaR1C1 = "19"
Range("A22").FormulaR1C1 = "20"
Range("A23").FormulaR1C1 = "21"
Range("A24").FormulaR1C1 = "22"
Range("A25").FormulaR1C1 = "23"
Range("A26").FormulaR1C1 = "24"
With Range("B1")

.FormulaR1C1 = "X(1000)"
.AddComment
.Comment.Visible = False
.Comment.Text Text:="Argument" & Chr(10) & ""
With .Comment.Shape

.ScaleWidth 2.09, msoFalse, msoScaleFromTopLeft
.ScaleWidth 1.23, msoFalse, msoScaleFromTopLeft
.ScaleWidth 0.87, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.27, msoFalse, msoScaleFromTopLeft

End With

End With
With Range("B2")

.FormulaR1C1 = "Tahmin"
.AddComment
.Comment.Visible = False
.Comment.Text Text:="Estimate" & Chr(10) & ""
With .Comment.Shape

.ScaleWidth 2.09, msoFalse, msoScaleFromTopLeft
.ScaleWidth 1.23, msoFalse, msoScaleFromTopLeft
.ScaleWidth 0.87, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.27, msoFalse, msoScaleFromTopLeft

End With

End With
Range("B3").FormulaR1C1 = "6.9"
Range("B4").FormulaR1C1 = "7.15"
Range("B5").FormulaR1C1 = "5.98"
Range("B6").FormulaR1C1 = "4.9"
Range("B7").FormulaR1C1 = "5.59"
Range("B8").FormulaR1C1 = "6.2"
Range("B9").FormulaR1C1 = "9.75"
Range("B10").FormulaR1C1 = "6.6"
Range("B11").FormulaR1C1 = "8.8"
Range("B12").FormulaR1C1 = "7.94"
Range("B13").FormulaR1C1 = "9"
Range("B14").FormulaR1C1 = ""
Range("B15").FormulaR1C1 = ""
Range("B16").FormulaR1C1 = ""
Range("B17").FormulaR1C1 = ""
Range("B18").FormulaR1C1 = ""
Range("B19").FormulaR1C1 = ""
Range("B20").FormulaR1C1 = ""
Range("B21").FormulaR1C1 = ""
Range("B22").FormulaR1C1 = ""
Range("B23").FormulaR1C1 = ""
Range("B24").FormulaR1C1 = ""
Range("B25").FormulaR1C1 = ""
Range("B26").FormulaR1C1 = ""
Range("C1").FormulaR1C1 = ""
With Range("C2")

.FormulaR1C1 = "Fiili"
.AddComment
.Comment.Visible = False
.Comment.Text Text:="Actual" & Chr(10) & ""
With .Comment.Shape

.ScaleWidth 2.09, msoFalse, msoScaleFromTopLeft
.ScaleWidth 1.23, msoFalse, msoScaleFromTopLeft
.ScaleWidth 0.87, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.27, msoFalse, msoScaleFromTopLeft

End With

End With
Range("C3").FormulaR1C1 = "6.9"
Range("C4").FormulaR1C1 = "7.15"
Range("C5").FormulaR1C1 = "5.98"
Range("C6").FormulaR1C1 = "4.9"
Range("C7").FormulaR1C1 = "5.59"
Range("C8").FormulaR1C1 = "6.2"
Range("C9").FormulaR1C1 = "9.75"
Range("C10").FormulaR1C1 = "6.6"
Range("C11").FormulaR1C1 = "8.8"
Range("C12").FormulaR1C1 = "7.94"
Range("C13").FormulaR1C1 = ""
Range("C14").FormulaR1C1 = ""
Range("C15").FormulaR1C1 = ""
Range("C16").FormulaR1C1 = ""
Range("C17").FormulaR1C1 = ""
Range("C18").FormulaR1C1 = ""
Range("C19").FormulaR1C1 = ""
Range("C20").FormulaR1C1 = ""
Range("C21").FormulaR1C1 = ""
Range("C22").FormulaR1C1 = ""
Range("C23").FormulaR1C1 = ""
Range("C24").FormulaR1C1 = ""
Range("C25").FormulaR1C1 = ""
Range("C26").FormulaR1C1 = ""
Range("D1").FormulaR1C1 = "t(X)"
With Range("D1")

.FormulaR1C1 = "t(X)"
.AddComment
.Comment.Visible = False
.Comment.Text Text:="Cumulative Argument" & Chr(10) & ""
With .Comment.Shape

.ScaleWidth 2.09, msoFalse, msoScaleFromTopLeft
.ScaleWidth 1.23, msoFalse, msoScaleFromTopLeft
.ScaleWidth 0.87, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.27, msoFalse, msoScaleFromTopLeft

End With

End With
Range("D2").FormulaR1C1 = ""
Range("D3").FormulaR1C1 = "=IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D4").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D5").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D6").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D7").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D8").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D9").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D10").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D11").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D12").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D13").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D14").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D15").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D16").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D17").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D18").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D19").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D20").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D21").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D22").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D23").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D24").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D25").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("D26").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
With Range("E1")

.FormulaR1C1 = "Y(1000000)"
.AddComment
.Comment.Visible = False
.Comment.Text Text:="Dependent Variable" & Chr(10) & ""
With .Comment.Shape

.ScaleWidth 2.09, msoFalse, msoScaleFromTopLeft
.ScaleWidth 1.23, msoFalse, msoScaleFromTopLeft
.ScaleWidth 0.87, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.27, msoFalse, msoScaleFromTopLeft

End With

End With
With Range("E2")

.FormulaR1C1 = "Tahmin"
.AddComment
.Comment.Visible = False
.Comment.Text Text:="Estimate" & Chr(10) & ""
With .Comment.Shape

.ScaleWidth 2.09, msoFalse, msoScaleFromTopLeft
.ScaleWidth 1.23, msoFalse, msoScaleFromTopLeft
.ScaleWidth 0.87, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.27, msoFalse, msoScaleFromTopLeft

End With

End With
Range("E3").FormulaR1C1 = "=RC[9]"
Range("E4").FormulaR1C1 = "=RC[9]"
Range("E5").FormulaR1C1 = "=RC[9]"
Range("E6").FormulaR1C1 = "=RC[9]"
Range("E7").FormulaR1C1 = "=RC[9]"
Range("E8").FormulaR1C1 = "=RC[9]"
Range("E9").FormulaR1C1 = "=RC[9]"
Range("E10").FormulaR1C1 = "=RC[9]"
Range("E11").FormulaR1C1 = "=RC[9]"
Range("E12").FormulaR1C1 = "=RC[9]"
Range("E13").FormulaR1C1 = "=RC[9]"
Range("E14").FormulaR1C1 = "=RC[9]"
Range("E15").FormulaR1C1 = "=RC[9]"
Range("E16").FormulaR1C1 = "=RC[9]"
Range("E17").FormulaR1C1 = "=RC[9]"
Range("E18").FormulaR1C1 = "=RC[9]"
Range("E19").FormulaR1C1 = "=RC[9]"
Range("E20").FormulaR1C1 = "=RC[9]"
Range("E21").FormulaR1C1 = "=RC[9]"
Range("E22").FormulaR1C1 = "=RC[9]"
Range("E23").FormulaR1C1 = "=RC[9]"
Range("E24").FormulaR1C1 = "=RC[9]"
Range("E25").FormulaR1C1 = "=RC[9]"
Range("E26").FormulaR1C1 = "=RC[9]"
Range("F1").FormulaR1C1 = ""
With Range("F2")

.FormulaR1C1 = "Fiili"
.AddComment
.Comment.Visible = False
.Comment.Text Text:="Actual" & Chr(10) & ""
With .Comment.Shape

.ScaleWidth 2.09, msoFalse, msoScaleFromTopLeft
.ScaleWidth 1.23, msoFalse, msoScaleFromTopLeft
.ScaleWidth 0.87, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.27, msoFalse, msoScaleFromTopLeft

End With

End With
Range("F3").FormulaR1C1 = "21.6"
Range("F4").FormulaR1C1 = "22.9"
Range("F5").FormulaR1C1 = "25.5"
Range("F6").FormulaR1C1 = "21.9"
Range("F7").FormulaR1C1 = "23.9"
Range("F8").FormulaR1C1 = "27.5"
Range("F9").FormulaR1C1 = "31.5"
Range("F10").FormulaR1C1 = "29.7"
Range("F11").FormulaR1C1 = "28.6"
Range("F12").FormulaR1C1 = "31.4"
Range("F13").FormulaR1C1 = ""
Range("F14").FormulaR1C1 = ""
Range("F15").FormulaR1C1 = ""
Range("F16").FormulaR1C1 = ""
Range("F17").FormulaR1C1 = ""
Range("F18").FormulaR1C1 = ""
Range("F19").FormulaR1C1 = ""
Range("F20").FormulaR1C1 = ""
Range("F21").FormulaR1C1 = ""
Range("F22").FormulaR1C1 = ""
Range("F23").FormulaR1C1 = ""
Range("F24").FormulaR1C1 = ""
Range("F25").FormulaR1C1 = ""
Range("F26").FormulaR1C1 = ""
With Range("G1")

.FormulaR1C1 = "t(Y)"
.AddComment
.Comment.Visible = False
.Comment.Text Text:="Cumulative Dependent Variable" & Chr(10) & ""
With .Comment.Shape

.ScaleWidth 2.09, msoFalse, msoScaleFromTopLeft
.ScaleWidth 1.23, msoFalse, msoScaleFromTopLeft
.ScaleWidth 0.87, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.27, msoFalse, msoScaleFromTopLeft

End With

End With
Range("G2").FormulaR1C1 = ""
Range("G3").FormulaR1C1 = "=IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G4").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G5").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G6").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G7").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G8").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G9").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G10").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G11").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G12").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G13").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G14").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G15").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G16").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G17").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G18").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G19").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G20").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G21").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G22").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G23").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G24").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G25").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("G26").FormulaR1C1 = "=+R[-1]C+IF(RC[-1]=0,RC[-2],RC[-1])"
Range("H1").FormulaR1C1 = "X²"
Range("H2").FormulaR1C1 = ""
Range("H3").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H4").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H5").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H6").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H7").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H8").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H9").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H10").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H11").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H12").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H13").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H14").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H15").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H16").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H17").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H18").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H19").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H20").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H21").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H22").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H23").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H24").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H25").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("H26").FormulaR1C1 = "=IF(RC[-5]=0,RC[-6]^2,RC[-5]^2)"
Range("I1").FormulaR1C1 = "t(X²)"
Range("I2").FormulaR1C1 = ""
Range("I3").FormulaR1C1 = "=+RC[-1]"
Range("I4").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I5").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I6").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I7").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I8").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I9").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I10").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I11").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I12").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I13").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I14").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I15").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I16").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I17").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I18").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I19").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I20").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I21").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I22").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I23").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I24").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I25").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("I26").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("J1").FormulaR1C1 = "XY"
Range("J2").FormulaR1C1 = ""
Range("J3").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J4").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J5").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J6").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J7").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J8").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J9").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J10").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J11").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J12").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J13").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J14").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J15").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J16").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J17").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J18").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J19").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J20").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J21").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J22").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J23").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J24").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J25").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("J26").FormulaR1C1 = "=IF(RC[-7]=0,RC[-8],RC[-7])*IF(RC[-4]=0,RC[-5],RC[-4])"
Range("K1").FormulaR1C1 = "t(XY)"
Range("K2").FormulaR1C1 = ""
Range("K3").FormulaR1C1 = "=+RC[-1]"
Range("K4").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K5").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K6").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K7").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K8").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K9").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K10").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K11").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K12").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K13").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K14").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K15").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K16").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K17").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K18").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K19").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K20").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K21").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K22").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K23").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K24").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K25").FormulaR1C1 = "=+R[-1]C+RC[-1]"
Range("K26").FormulaR1C1 = "=+R[-1]C+RC[-1]"
With Range("L1")

.FormulaR1C1 = "b"
.AddComment
.Comment.Visible = False
.Comment.Text Text:="b= (ID * t(XY) - t(X) * t(Y)) / (ID * t(X²) - t(X)²)" & Chr(10) & ""
With .Comment.Shape

.ScaleWidth 2.09, msoFalse, msoScaleFromTopLeft
.ScaleWidth 1.23, msoFalse, msoScaleFromTopLeft
.ScaleWidth 0.87, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.27, msoFalse, msoScaleFromTopLeft

End With

End With
Range("L2").FormulaR1C1 = ""
Range("L3").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L4").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L5").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L6").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L7").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L8").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L9").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L10").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L11").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L12").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L13").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L14").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L15").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L16").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L17").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L18").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L19").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L20").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L21").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L22").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L23").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L24").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L25").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
Range("L26").FormulaR1C1 = "=IF((RC[-11]*RC[-3]-RC[-8]^2)=0,0,(RC[-11]*RC[-1]-RC[-8]*RC[-5])/(RC[-11]*RC[-3]-RC[-8]^2))"
With Range("M1")

.FormulaR1C1 = "a"
.AddComment
.Comment.Visible = False
.Comment.Text Text:="a= (t(Y) / ID) - b * (t(X) / ID)" & Chr(10) & ""
With .Comment.Shape

.ScaleWidth 2.09, msoFalse, msoScaleFromTopLeft
.ScaleWidth 1.23, msoFalse, msoScaleFromTopLeft
.ScaleWidth 0.87, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.27, msoFalse, msoScaleFromTopLeft

End With

End With
Range("M2").FormulaR1C1 = ""
Range("M3").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M4").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M5").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M6").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M7").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M8").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M9").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M10").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M11").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M12").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M13").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M14").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M15").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M16").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M17").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M18").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M19").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M20").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M21").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M22").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M23").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M24").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M25").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
Range("M26").FormulaR1C1 = "=(RC[-6]/RC[-12])-RC[-1]*(RC[-9]/RC[-12])"
With Range("N1")

.FormulaR1C1 = "y"
.AddComment
.Comment.Visible = False
.Comment.Text Text:="y= (a[ID-1] + b[ID-1] * X[ID])" & Chr(10) & ""
With .Comment.Shape

.ScaleWidth 2.09, msoFalse, msoScaleFromTopLeft
.ScaleWidth 1.23, msoFalse, msoScaleFromTopLeft
.ScaleWidth 0.87, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.27, msoFalse, msoScaleFromTopLeft

End With

End With
Range("N2").FormulaR1C1 = ""
Range("N3").FormulaR1C1 = ""
Range("N4").FormulaR1C1 = "=R[-1]C[-1]+RC[-11]*R[-1]C[-2]"
Range("N5").FormulaR1C1 = "=R[-1]C[-1]+RC[-11]*R[-1]C[-2]"
Range("N6").FormulaR1C1 = "=R[-1]C[-1]+RC[-11]*R[-1]C[-2]"
Range("N7").FormulaR1C1 = "=R[-1]C[-1]+RC[-11]*R[-1]C[-2]"
Range("N8").FormulaR1C1 = "=R[-1]C[-1]+RC[-11]*R[-1]C[-2]"
Range("N9").FormulaR1C1 = "=R[-1]C[-1]+RC[-11]*R[-1]C[-2]"
Range("N10").FormulaR1C1 = "=R[-1]C[-1]+RC[-11]*R[-1]C[-2]"
Range("N11").FormulaR1C1 = "=R[-1]C[-1]+RC[-11]*R[-1]C[-2]"
Range("N12").FormulaR1C1 = "=R[-1]C[-1]+RC[-11]*R[-1]C[-2]"
Range("N13").FormulaR1C1 = "=R[-1]C[-1]+IF(RC[-11]=0,RC[-12],RC[-11])*R[-1]C[-2]"
Range("N14").FormulaR1C1 = "=R[-1]C[-1]+IF(RC[-11]=0,RC[-12],RC[-11])*R[-1]C[-2]"
Range("N15").FormulaR1C1 = "=R[-1]C[-1]+IF(RC[-11]=0,RC[-12],RC[-11])*R[-1]C[-2]"
Range("N16").FormulaR1C1 = "=R[-1]C[-1]+IF(RC[-11]=0,RC[-12],RC[-11])*R[-1]C[-2]"
Range("N17").FormulaR1C1 = "=R[-1]C[-1]+IF(RC[-11]=0,RC[-12],RC[-11])*R[-1]C[-2]"
Range("N18").FormulaR1C1 = "=R[-1]C[-1]+IF(RC[-11]=0,RC[-12],RC[-11])*R[-1]C[-2]"
Range("N19").FormulaR1C1 = "=R[-1]C[-1]+IF(RC[-11]=0,RC[-12],RC[-11])*R[-1]C[-2]"
Range("N20").FormulaR1C1 = "=R[-1]C[-1]+IF(RC[-11]=0,RC[-12],RC[-11])*R[-1]C[-2]"
Range("N21").FormulaR1C1 = "=R[-1]C[-1]+IF(RC[-11]=0,RC[-12],RC[-11])*R[-1]C[-2]"
Range("N22").FormulaR1C1 = "=R[-1]C[-1]+IF(RC[-11]=0,RC[-12],RC[-11])*R[-1]C[-2]"
Range("N23").FormulaR1C1 = "=R[-1]C[-1]+IF(RC[-11]=0,RC[-12],RC[-11])*R[-1]C[-2]"
Range("N24").FormulaR1C1 = "=R[-1]C[-1]+IF(RC[-11]=0,RC[-12],RC[-11])*R[-1]C[-2]"
Range("N25").FormulaR1C1 = "=R[-1]C[-1]+IF(RC[-11]=0,RC[-12],RC[-11])*R[-1]C[-2]"
Range("N26").FormulaR1C1 = "=R[-1]C[-1]+IF(RC[-11]=0,RC[-12],RC[-11])*R[-1]C[-2]"
Columns("A:A").ColumnWidth = 4
Columns("B:N").ColumnWidth = 10
With Range("A1:N2")

.Font.Bold = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False

End With
With Range("A1:A2")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
.Merge

End With
With Range("B1:C1")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
.Merge

End With
With Range("D1:D2")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
.Merge

End With
With Range("E1:F1")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
.Merge

End With
With Range("G1:G2")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
.Merge

End With
With Range("H1:H2")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
.Merge

End With
With Range("I1:I2")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
.Merge

End With
With Range("J1:J2")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
.Merge

End With
With Range("K1:K2")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
.Merge

End With
With Range("L1:L2")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
.Merge

End With
With Range("M1:M2")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
.Merge

End With
With Range("N1:N2")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
.Merge

End With
Range("B3:N26").NumberFormat = "#,##0.00"
With Range("B3:C26")

With .Font

.Name = "Arial"
.FontStyle = "Normal"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 32

End With
.Locked = False
.FormulaHidden = False

End With
With Range("F3:F26")

With .Font

.Name = "Arial"
.FontStyle = "Normal"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 32

End With
.Locked = False
.FormulaHidden = False

End With
With Range("A1:N26")

.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)

.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic

End With
With .Borders(xlEdgeTop)

.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic

End With
With .Borders(xlEdgeBottom)

.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic

End With
With .Borders(xlEdgeRight)

.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic

End With
With .Borders(xlInsideVertical)

.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic

End With
With .Borders(xlInsideHorizontal)

.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic

End With

End With
With Range("A1:N2")

.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)

.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic

End With
With .Borders(xlEdgeTop)

.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic

End With
With .Borders(xlEdgeBottom)

.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic

End With
With .Borders(xlEdgeRight)

.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic

End With
With .Borders(xlInsideVertical)

.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic

End With
With .Borders(xlInsideHorizontal)

.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic

End With

End With
With Range("A1:N26").Font

.Name = "Arial"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone

End With
Rows("1:1").Insert Shift:=xlDown
Range("A1:N1").Select
With Range("A1:N1")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
.Merge
With .Font

.Name = "Arial"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2

End With
With .Interior

.ColorIndex = 5
.Pattern = xlSolid

End With
.FormulaR1C1 = "EĞİLİM ANALİZİ (TREND ANALYSIS)"

End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
Range("B14").Select

End Sub