uprava2predikcia

Sub uprava_dat_predikcia()

a = WorksheetFunction.CountA(Worksheets("Predikcia").Range("B:B")) - 1

Worksheets("uprava_dat_predikcia").Range("A1").Value = "Datum a cas"
Worksheets("uprava_dat_predikcia").Range("B1").Value = "Spotreba energie"
Worksheets("uprava_dat_predikcia").Range("A1:D1").Columns.AutoFit

b = 1

For j = 1 To a
For i = 0 To 23
Worksheets("uprava_dat_predikcia").Range("A" & (1 + b)).Value = Worksheets("Predikcia").Range("B" & (3 + j)) + TimeSerial(i, 0, 0)
b = b + 1
Next i
Next j

End Sub