i = 8
For q = 1 To 9
'Günleri yerleştir
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = Günadı
'saatler
If Len(CStr(i + 1)) < 2 Then
.TextMatrix(.Rows - 1, 1) = "0" & i & ":00-0" & i + 1 & ":00"
ElseIf Len(CStr(i + 1)) = 2 And Len(CStr(i)) = 1 Then
.TextMatrix(.Rows - 1, 1) = "0" & i & ":00-" & i + 1 & ":00"
Else
.TextMatrix(.Rows - 1, 1) = i & ":00-" & i + 1 & ":00"
End If
i = i + 1
Next
Günsay = Günsay + 1
If Günsay > 5 Then GoTo 50
If .Rows < 46 Then GoTo 10

50