Private Sub UserForm_Initialize()
    '------------------------------Wczytywanie dat o 11 dni wcześniej------------------------------
    Dim dt As Date
    For dt = Date - 10 To Date Step 1
        ComboBox1.AddItem Format(dt, "yyyy-mm-dd") 'dodawanie sformatowanych dat do comboboxa
    Next dt

    ComboBox1 = Format(Date, "yyyy-mm-dd")

    '------------------------------Wczytywanie z arkusza------------------------------
    Dim x As Integer
    Dim WS As Object

    Set WS = ThisWorkbook.Sheets("S")

    '------------------------------Pętla wczytująca nazwiska z arkusza------------------------------
    x = 2
    Do While CStr(WS.Cells(x, 1)) <> ""
        ComboBox2.AddItem CStr(WS.Cells(x, 1))
        x = x + 1
    Loop

    '------------------------------Pętla wczytująca przedmioty z arkusza------------------------------
    x = 2
    Do While CStr(WS.Cells(x, 2)) <> ""
        ComboBox3.AddItem CStr(WS.Cells(x, 2))
        x = x + 1
    Loop

    '------------------------------Pętla wczytująca oceny z arkusza------------------------------
    x = 2
    Do While CStr(WS.Cells(x, 3)) <> ""
        ComboBox4.AddItem CStr(WS.Cells(x, 3))
        x = x + 1
    Loop



End Sub