Attribute VB_Name = "BoundaryCondition_Creator"
Sub BuildBC()
Attribute BuildBC.VB_ProcData.VB_Invoke_Func = "m\n14"
Dim Dir As String
Dim SaveDir As String
Dim date_start As String, date_end As String
Dim Drive As String
Dim Attics As String
Dim AtticSave

Windows("GAF_AS_BC_Compiler.xlsm").Activate
Drive = Range("C7").Value
 date_start = Range("C3").Value
 date_end = Range("C5").Value
 AtticSel = Range("C9").Value
 AtticEnd = Range("C12").Value

'''''''''''''''''''''''''''''''''
If Not IsNumeric(Range("C3").Value) Then
  MsgBox "Please enter a valid number in cell C3"
  GoTo 100
End If
If Not IsNumeric(Range("C5").Value) Then
  MsgBox "Please enter a valid number in cell C5"
  GoTo 100
End If

 
Call BCColumns

Dir = Drive & ":\Users\Owner\Documents\SAAtherton\Charleston_Field_Tests\Reports\"

For attic_index = AtticSel To AtticEnd
''''''''''''''''''
If attic_index = 1 Then
   Attics = "Attic1"
   AtticSave = "Attic01"
ElseIf attic_index = 2 Then
   Attics = "Attic2"
      AtticSave = "Attic02"
ElseIf attic_index = 3 Then
   Attics = "Attic3"
      AtticSave = "Attic03"
ElseIf attic_index = 4 Then
   Attics = "Attic4"
      AtticSave = "Attic04"
ElseIf attic_index = 5 Then
   Attics = "Attic5"
      AtticSave = "Attic05"
ElseIf attic_index = 6 Then
   Attics = "Attic6"
      AtticSave = "Attic06"
ElseIf attic_index = 7 Then
   Attics = "Attic7"
      AtticSave = "Attic07"
Else
    MsgBox "Please enter a value of 1 through 7 to select the correct Attic."
    GoTo 100
End If
''''''''''''''''''''''''
If date_start = "" Then
    MsgBox "Please enter the number corresponding to the first week of data you would like to create a boundary condition for."
End If
''''''''''''''''''''''''
If date_end = "" Then
    MsgBox "Please enter the number corresponding to the last week of data you would like to create a boundary condition for."
End If
''''''''''''''''''''''''
SaveDir = Dir & "Benchmark\" & AtticSave & "\" & "BC_Inputs\"

''''''''''''''''''''''''
For date_index = date_start To date_end
   Workbooks.Open Filename:=Dir & "GAF_Attics_" & Week(date_index) & ".xls"
   Workbooks.Open Filename:=Dir & "GAF_AS_BC_Template.xlsm"
   Windows("GAF_AS_BC_Template.xlsm").Activate

    For i = 1 To 4
    Windows("GAF_Attics_" & Week(date_index) & ".xls").Activate
    Worksheets(Attics).Activate
    Range(wCol(attic_index, i)).Select
    Selection.Copy
    Windows("GAF_AS_BC_Template.xlsm").Activate
    Worksheets("In_BC").Activate
    Range(tCol(attic_index, i)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Next i

    For i = 5 To 5 ' this is the exterior ceiling BC
    'If attic_index = 2 Then
    Windows("GAF_Attics_" & Week(date_index) & ".xls").Activate
    Worksheets("Temp_RH").Activate
    Range("W7:W174").Select
    Selection.Copy
    Windows("GAF_AS_BC_Template.xlsm").Activate
    Worksheets("In_BC").Activate
    Range("I28:I195").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
   ' Else
   ' Windows("GAF_Attics_" & Week(date_index) & ".xls").Activate
   ' Worksheets(Attics).Activate
   'Range(wCol(attic_index, i)).Select
   'Selection.Copy
   'Windows("GAF_AS_BC_Template.xlsm").Activate
   ' Worksheets("In_BC").Activate
   ' Range(tCol(attic_index, i)).Select
   ' ActiveSheet.Paste
   ' Application.CutCopyMode = False
   ' End If
    Next i

    For i = 6 To 13
    Windows("GAF_Attics_" & Week(date_index) & ".xls").Activate
    Worksheets(Attics).Activate
    Range(wCol(attic_index, i)).Select
    Selection.Copy
    Windows("GAF_AS_BC_Template.xlsm").Activate
    Worksheets("In_BC").Activate
    Range(tCol(attic_index, i)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Next i


    For i = 14 To 15
    Windows("GAF_Attics_" & Week(date_index) & ".xls").Activate
    Worksheets("Temp_RH").Activate
    Range(wCol(attic_index, i)).Select
    Selection.Copy
    Windows("GAF_AS_BC_Template.xlsm").Activate
    Worksheets("In_BC").Activate
    Range(tCol(attic_index, i)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Next i

    Range("A28:X51").Select
    Selection.Copy
    Range("A4:A4").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

   Workbooks("GAF_Attics_" & Week(date_index) & ".xls").Close
   
   Windows("GAF_AS_BC_Template.xlsm").Activate
        Worksheets("Out_BC").Activate
        Range("A1:X192").Select
        Selection.Copy
        Range("A1:A1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    '    Range("A1:E1").Select
    '    Selection.Copy
    '    Range("A1:E1").Select
    '    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    '    :=False, Transpose:=False
    
    ActiveWorkbook.SaveAs Filename:=SaveDir & "BC_data_" & AtticSave & "_" & Week(date_index) & ".xlsm" _
    , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

    Application.DisplayAlerts = False
    Worksheets("In_BC").Activate
    Sheets("In_BC").Select
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True
    
    Worksheets("Out_BC").Activate
    Sheets("Out_BC").Select
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    
   Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=SaveDir & "BC_data_" & AtticSave & "_" & Week(date_index) & ".csv" _
   , FileFormat:=xlCSV, CreateBackup:=False
   Application.DisplayAlerts = True
 Workbooks("BC_data_" & AtticSave & "_" & Week(date_index) & ".csv").Close True

Next date_index
Next attic_index
100
End Sub

Public Week(1 To 200) As String, wCol(1 To 200, 1 To 200) As String, tCol(1 To 200, 1 To 200) As String, Attic(1 To 7) As String

Sub BCColumns()

Attic(1) = "Attic1"
Attic(2) = "Attic2"
Attic(3) = "Attic3"
Attic(4) = "Attic4"
Attic(5) = "Attic5"
Attic(6) = "Attic6"
Attic(7) = "Attic7"

'This array is for the selected weeks (per friday)
        Week(1) = "060410" '2010
        Week(2) = "061110"
        Week(3) = "061810"
        Week(4) = "062510"
        Week(5) = "070210"
        Week(6) = "070910"
        Week(7) = "071610"
        Week(8) = "072310"
        Week(9) = "073010"
        Week(10) = "080610"
        Week(11) = "081310"
        Week(12) = "082010"
        Week(13) = "082710"
        Week(14) = "090310"
        Week(15) = "091010"
        Week(16) = "091710"
        Week(17) = "092410"
        Week(18) = "100110"
        Week(19) = "100810"
        Week(20) = "101510"
        Week(21) = "102210"
        Week(22) = "102910"
        Week(23) = "110510"
        Week(24) = "111210"
        Week(25) = "111910"
        Week(26) = "112610"
        Week(27) = "120310"
        Week(28) = "121010"
        Week(29) = "121710"
        Week(30) = "122410"
        Week(31) = "123110"
'
        Week(32) = "010711" ' 2011
        Week(33) = "011411"
        Week(34) = "012111"
        Week(35) = "012811"
        Week(36) = "020411"
        Week(37) = "021111"
        Week(38) = "021811"
        Week(39) = "022511"
        Week(40) = "030411"
        Week(41) = "031111"
        Week(42) = "031811"
        Week(43) = "032511"
        Week(44) = "040111"
        Week(45) = "040811"
        Week(46) = "041511"
        Week(47) = "042211"
        Week(48) = "042911"
        Week(49) = "050611"
        Week(50) = "051311"
        Week(51) = "052011"
        Week(52) = "052711"
        Week(53) = "060311"
        Week(54) = "061011"
        Week(55) = "061711"
        Week(56) = "062411"
        Week(57) = "070111"
        Week(58) = "070811"
        Week(59) = "071511"
        Week(60) = "072211"
        Week(61) = "072911"
        Week(62) = "080511"
        Week(63) = "081211"
        Week(64) = "081911"
        Week(65) = "082611"
        Week(66) = "090211"
        Week(67) = "090911"
        Week(68) = "091611"
        Week(69) = "092311"
        Week(70) = "093011"
        Week(71) = "100711"
        Week(72) = "101411"
        Week(73) = "102111"
        Week(74) = "102811"
        Week(75) = "110411"
        Week(76) = "111111"
        Week(77) = "111811"
        Week(78) = "112511"
        Week(79) = "120211"
        Week(80) = "120911"
        Week(81) = "121611"
        Week(82) = "122311"
        Week(83) = "123011"
        Week(84) = "010612"
        Week(85) = "011312"
        Week(86) = "012012"
        Week(87) = "012712"
        Week(88) = "020312"
        Week(89) = "021012"
        Week(90) = "021712"
        Week(91) = "022412"
        Week(92) = "030212"
        Week(93) = "030912"
        Week(94) = "031612"
        Week(95) = "032312"
        Week(96) = "033012"
        Week(97) = "040612"
        Week(98) = "041312"
        Week(99) = "042012"
        Week(100) = "042712"
        Week(101) = "050412"
        Week(102) = "051112"
        Week(103) = "051812"
        Week(104) = "052512"
        Week(105) = "060112"
        Week(106) = "060812"
        Week(107) = "061512"
        Week(108) = "062212"
        Week(109) = "062912"
        Week(110) = "070612"
        Week(111) = "071312"
        Week(112) = "072012"
        Week(113) = "072712"
        Week(114) = "080312"
        Week(115) = "081012"
        Week(116) = "081712"
        Week(117) = "082412"
        Week(118) = "083112"
        Week(119) = "090712"
        Week(120) = "091410"
        Week(121) = "092110"
        Week(122) = "092810"
        Week(123) = "100510"
        Week(124) = "101210"
        Week(125) = "101910"
        Week(126) = "102610"
        Week(127) = "110210"
        Week(128) = "110910"
        Week(129) = "111610"
        Week(130) = "112310"
        Week(131) = "113010"
        Week(132) = "120710"
        Week(133) = "121410"
        Week(134) = "122110"
        Week(135) = "122810"
        
        Week(136) = "010412" '2012
        Week(137) = "010412"
        Week(138) = "010412"
        Week(139) = "010412"
        Week(140) = "010412"
        Week(141) = "060412"
        Week(142) = "060412"
        Week(143) = "060412"
        Week(144) = "060412"
        Week(145) = "060412"
        Week(146) = "060412"
        Week(147) = "060412"
        Week(148) = "060412"
        Week(149) = "060412"
        Week(150) = "060412"
        Week(151) = "060412"
        Week(152) = "060412"
        Week(153) = "060412"
        Week(154) = "060412"
        Week(155) = "060412"
        Week(156) = "060412"
        Week(157) = "060412"
        Week(158) = "060412"
        Week(159) = "060412"
        Week(160) = "060412"
        Week(161) = "060412"
        Week(162) = "060412"
        Week(163) = "060412"
        Week(164) = "060412"
        Week(165) = "060412"
        Week(166) = "060412"
        Week(167) = "060412"
        Week(168) = "060412"
        Week(169) = "060412"
        Week(170) = "060412"
        Week(171) = "060412"
        Week(172) = "060412"
        Week(173) = "060412"
        Week(174) = "060412"
        Week(175) = "060412"
        Week(176) = "060412"
        Week(177) = "060412"
        Week(178) = "060412"
        Week(179) = "110112"
        Week(180) = "110812"
        Week(181) = "111512"
        Week(182) = "122212"
        Week(183) = "112912"
        Week(184) = "120612"
        Week(185) = "121312"
        Week(186) = "122012"
        Week(187) = "122712"
        
'''''''''''''''''''''''''''''''''''Attic 1 Columns
        wCol(1, 1) = "A7:A174"
        wCol(1, 2) = "I7:I174"
        wCol(1, 3) = "G7:G174"
        wCol(1, 4) = "L7:L174"
        wCol(1, 5) = "T7:T174"
        wCol(1, 6) = "E7:E174"
        wCol(1, 7) = "J7:J174"
        wCol(1, 8) = "N7:N174"
        wCol(1, 9) = "O7:O174"
        wCol(1, 10) = "S7:S174"
        wCol(1, 11) = "Q7:Q174"
        wCol(1, 12) = "W7:W174"
        wCol(1, 13) = "AA7:AA174"
' FROM Temp_RH
        wCol(1, 14) = "Y7:Y174"
        wCol(1, 15) = "J7:J174"
        

        tCol(1, 1) = "A28:A195"
        tCol(1, 2) = "B28:B195"
        tCol(1, 3) = "C28:C195"
        tCol(1, 4) = "D28:D195"
        tCol(1, 5) = "I28:I195"
        tCol(1, 6) = "J28:J195"
        tCol(1, 7) = "K28:K195"
        tCol(1, 8) = "P28:P195"
        tCol(1, 9) = "Q28:Q195"
        tCol(1, 10) = "R28:R195"
        tCol(1, 11) = "S28:S195"
        tCol(1, 12) = "W28:W195"
        tCol(1, 13) = "X28:X195"
        tCol(1, 14) = "U28:U195"
        tCol(1, 15) = "V28:V195"

'''''''''''''''''''''''''''''''''''''Attic 2 Columns
        wCol(2, 1) = "A7:A174"
        wCol(2, 2) = "I7:I174"
        wCol(2, 3) = "G7:G174"
        wCol(2, 4) = "L7:L174"
        wCol(2, 5) = "T7:T174"
        wCol(2, 6) = "E7:E174"
        wCol(2, 7) = "J7:J174"
        wCol(2, 8) = "N7:N174"
        wCol(2, 9) = "O7:O174"
        wCol(2, 10) = "S7:S174"
        wCol(2, 11) = "Q7:Q174"
        wCol(2, 12) = "W7:W174"
        wCol(2, 13) = "AA7:AA174"
' FROM Temp_RH
        wCol(2, 14) = "Y7:Y174"
        wCol(2, 15) = "L7:L174"
        

        tCol(2, 1) = "A28:A195"
        tCol(2, 2) = "B28:B195"
        tCol(2, 3) = "C28:C195"
        tCol(2, 4) = "D28:D195"
        tCol(2, 5) = "I28:I195"
        tCol(2, 6) = "J28:J195"
        tCol(2, 7) = "K28:K195"
        tCol(2, 8) = "P28:P195"
        tCol(2, 9) = "Q28:Q195"
        tCol(2, 10) = "R28:R195"
        tCol(2, 11) = "S28:S195"
        tCol(2, 12) = "W28:W195"
        tCol(2, 13) = "X28:X195"
        tCol(2, 14) = "U28:U195"
        tCol(2, 15) = "V28:V195"
'''''''''''''''''''''''''''''''''''''Attic 3 Columns
        wCol(3, 1) = "A7:A174"
        wCol(3, 2) = "I7:I174"
        wCol(3, 3) = "G7:G174"
        wCol(3, 4) = "L7:L174"
        wCol(3, 5) = "T7:T174"
        wCol(3, 6) = "E7:E174"
        wCol(3, 7) = "J7:J174"
        wCol(3, 8) = "N7:N174"
        wCol(3, 9) = "O7:O174"
        wCol(3, 10) = "S7:S174"
        wCol(3, 11) = "Q7:Q174"
        wCol(3, 12) = "W7:W174"
        wCol(3, 13) = "AA7:AA174"
' FROM Temp_RH
        wCol(3, 14) = "Y7:Y174"
        wCol(3, 15) = "L7:L174"
        

        tCol(3, 1) = "A28:A195"
        tCol(3, 2) = "B28:B195"
        tCol(3, 3) = "C28:C195"
        tCol(3, 4) = "D28:D195"
        tCol(3, 5) = "I28:I195"
        tCol(3, 6) = "J28:J195"
        tCol(3, 7) = "K28:K195"
        tCol(3, 8) = "P28:P195"
        tCol(3, 9) = "Q28:Q195"
        tCol(3, 10) = "R28:R195"
        tCol(3, 11) = "S28:S195"
        tCol(3, 12) = "W28:W195"
        tCol(3, 13) = "X28:X195"
        tCol(3, 14) = "U28:U195"
        tCol(3, 15) = "V28:V195"
'''''''''''''''''''''''''''''''''''''Attic 4 Columns
        
        wCol(4, 1) = "A7:A174"
        wCol(4, 2) = "I7:I174"
        wCol(4, 3) = "G7:G174"
        wCol(4, 4) = "L7:L174"
        wCol(4, 5) = "T7:T174"
        wCol(4, 6) = "E7:E174"
        wCol(4, 7) = "J7:J174"
        wCol(4, 8) = "N7:N174"
        wCol(4, 9) = "O7:O174"
        wCol(4, 10) = "S7:S174"
        wCol(4, 11) = "Q7:Q174"
        wCol(4, 12) = "W7:W174"
        wCol(4, 13) = "AA7:AA174"
' FROM Temp_RH
        wCol(4, 14) = "Y7:Y174"
        wCol(4, 15) = "L7:L174"
        

        tCol(4, 1) = "A28:A195"
        tCol(4, 2) = "B28:B195"
        tCol(4, 3) = "C28:C195"
        tCol(4, 4) = "D28:D195"
        tCol(4, 5) = "I28:I195"
        tCol(4, 6) = "J28:J195"
        tCol(4, 7) = "K28:K195"
        tCol(4, 8) = "P28:P195"
        tCol(4, 9) = "Q28:Q195"
        tCol(4, 10) = "R28:R195"
        tCol(4, 11) = "S28:S195"
        tCol(4, 12) = "W28:W195"
        tCol(4, 13) = "X28:X195"
        tCol(4, 14) = "U28:U195"
        tCol(4, 15) = "V28:V195"
'''''''''''''''''''''''''''''''''''''''''''''''''' Attic 5
        wCol(5, 1) = "A7:A174"
        wCol(5, 2) = "I7:I174"
        wCol(5, 3) = "G7:G174"
        wCol(5, 4) = "L7:L174"
        wCol(5, 5) = "T7:T174"
        wCol(5, 6) = "E7:E174"
        wCol(5, 7) = "J7:J174"
        wCol(5, 8) = "N7:N174"
        wCol(5, 9) = "O7:O174"
        wCol(5, 10) = "S7:S174"
        wCol(5, 11) = "Q7:Q174"
        wCol(5, 12) = "Y7:Y174"
        wCol(5, 13) = "AC7:AC174"
' FROM Temp_RH
        wCol(5, 14) = "F7:J174"
        wCol(5, 15) = "J7:J174"
        

        tCol(5, 1) = "A28:A195"
        tCol(5, 2) = "B28:B195"
        tCol(5, 3) = "C28:C195"
        tCol(5, 4) = "D28:D195"
        tCol(5, 5) = "I28:I195"
        tCol(5, 6) = "J28:J195"
        tCol(5, 7) = "K28:K195"
        tCol(5, 8) = "P28:P195"
        tCol(5, 9) = "Q28:Q195"
        tCol(5, 10) = "R28:R195"
        tCol(5, 11) = "S28:S195"
        tCol(5, 12) = "W28:W195"
        tCol(5, 13) = "X28:X195"
        tCol(5, 14) = "U28:U195"
        tCol(5, 15) = "V28:V195"

'''''''''''''''''''''''''''''''''''''''''''''''''' Attic 6
        wCol(6, 1) = "A7:A174"
        wCol(6, 2) = "I7:I174"
        wCol(6, 3) = "G7:G174"
        wCol(6, 4) = "L7:L174"
        wCol(6, 5) = "T7:T174"
        wCol(6, 6) = "E7:E174"
        wCol(6, 7) = "J7:J174"
        wCol(6, 8) = "N7:N174"
        wCol(6, 9) = "O7:O174"
        wCol(6, 10) = "S7:S174"
        wCol(6, 11) = "Q7:Q174"
        wCol(6, 12) = "W7:W174"
        wCol(6, 13) = "AA7:AA174"
' FROM Temp_RH
        wCol(6, 14) = "Y7:Y174"
        wCol(6, 15) = "J7:J174"
        

        tCol(6, 1) = "A28:A195"
        tCol(6, 2) = "B28:B195"
        tCol(6, 3) = "C28:C195"
        tCol(6, 4) = "D28:D195"
        tCol(6, 5) = "I28:I195"
        tCol(6, 6) = "J28:J195"
        tCol(6, 7) = "K28:K195"
        tCol(6, 8) = "P28:P195"
        tCol(6, 9) = "Q28:Q195"
        tCol(6, 10) = "R28:R195"
        tCol(6, 11) = "S28:S195"
        tCol(6, 12) = "W28:W195"
        tCol(6, 13) = "X28:X195"
        tCol(6, 14) = "U28:U195"
        tCol(6, 15) = "V28:V195"
'''''''''''''''''''''''''''''''''''''''''''''''Attic 7
        wCol(7, 1) = "A7:A174"
        wCol(7, 2) = "I7:I174"
        wCol(7, 3) = "G7:G174"
        wCol(7, 4) = "L7:L174"
        wCol(7, 5) = "T7:T174" ' this one
        wCol(7, 6) = "E7:E174"
        wCol(7, 7) = "J7:J174"
        wCol(7, 8) = "N7:N174"
        wCol(7, 9) = "O7:O174"
        wCol(7, 10) = "S7:S174"
        wCol(7, 11) = "Q7:Q174"
        wCol(7, 12) = "W7:W174"
        wCol(7, 13) = "AA7:AA174"
' FROM Temp_RH
        wCol(7, 14) = "Y7:Y174"
        wCol(7, 15) = "J7:J174"
        

        tCol(7, 1) = "A28:A195"
        tCol(7, 2) = "B28:B195"
        tCol(7, 3) = "C28:C195"
        tCol(7, 4) = "D28:D195"
        tCol(7, 5) = "I28:I195"
        tCol(7, 6) = "J28:J195"
        tCol(7, 7) = "K28:K195"
        tCol(7, 8) = "P28:P195"
        tCol(7, 9) = "Q28:Q195"
        tCol(7, 10) = "R28:R195"
        tCol(7, 11) = "S28:S195"
        tCol(7, 12) = "W28:W195"
        tCol(7, 13) = "X28:X195"
        tCol(7, 14) = "U28:U195"
        tCol(7, 15) = "V28:V195"
End Sub