Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim data As Date
- Dim rng As Range
- Dim TW As Worksheet: Set TW = ThisWorkbook.Worksheets("Centralizator Lunar")
- Dim nr_linii As Long
- nr_linii = TW.Cells(Rows.Count, 2).End(xlUp).Row + 1
- i = 2
- j = 20
- StrFile = ThisWorkbook.Path
- StrFile = Dir(StrFile & "*INT2*")
- Do While Len(StrFile) > 0
- TW_P = ThisWorkbook.Path
- myfile = TW_P & "" & StrFile
- Set AWb = Workbooks.Open(myfile)
- data = Left(ActiveWorkbook.Name, 10)
- 'Data
- TW.Range(Cells(i, 1), Cells(i + 23, 1)) = data
- nr_AWb = ActiveWorkbook.Worksheets("Sheet1").UsedRange.Rows.Count
- 'Pmax BM
- TW.Range(Cells(i, 3), Cells(i + 23, 3)) = WorksheetFunction.SumIf(AWb.Worksheets("Sheet1").Range("D20:D" & nr_AWb), _
- AWb.Worksheets("Sheet1").Cells(j, 4), _
- AWb.Worksheets("Sheet1").Range("N20:N" & nr_AWb))
- 'Available Declaration
- TW.Range(Cells(i, 4), Cells(i + 23, 4)) = WorksheetFunction.SumIf(AWb.Worksheets("Sheet1").Range("D20:D" & nr_AWb), _
- AWb.Worksheets("Sheet1").Cells(j, 4), _
- AWb.Worksheets("Sheet1").Range("I20:I" & nr_AWb))
- 'Generation Schedule
- TW.Range(Cells(i, 5), Cells(i + 23, 5)) = WorksheetFunction.SumIf(AWb.Worksheets("Sheet1").Range("D20:D" & nr_AWb), _
- AWb.Worksheets("Sheet1").Cells(j, 4), _
- AWb.Worksheets("Sheet1").Range("H20:H" & nr_AWb))
- i = i + 24
- j = j + 1
- StrFile = Dir
- ActiveWindow.Close SaveChanges:=False
- Loop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement