Sub WrzucanieDanych()

    Dim OstatniRzad As Integer
    OstatniRzad = Sheets("Handel").Range("W14").Value

	'dalej jest adresowanie do poszczegolnych komorek, ale tego CI nie kopiuje bo to dziala dobrze

Private Sub CB_ok_Click()

    Dim OstatniRzad As Integer
    Dim counter As Integer

    OstatniRzad = Sheets("Handel").Range("W14").Value
    counter = 0

    If Combo_nick.Value = "" Then
        Combo_nick.BackColor = &H80000018
        counter = counter + 1
    Else
        Combo_nick.BackColor = &H80000005
    End If

    If TB_otrzymano_ilosc.Value = "0" Then
        TB_otrzymano_ilosc.BackColor = &H80000018
        counter = counter + 1
    Else
        TB_otrzymano_ilosc.BackColor = &H80000005
    End If

    If OB_Deuter.Value = "False" And OB_Metal.Value = "False" Then
        OB_Deuter.BackColor = &H80000018
        OB_Metal.BackColor = &H80000018
        counter = counter + 1
    Else
        If OB_Deuter.Value = "True" Or OB_Metal.Value = "True" Then
            OB_Deuter.BackColor = &H8000000F
            OB_Metal.BackColor = &H8000000F
        Else
        End If
    End If

'=================================== tutaj sie jaja zaczynaja.


    If OB_wysylka_mix.Value = "False" And OB_wysylka_inny.Value = "False" And OB_wysylka_metal.Value = "False" And OB_wysylka_krysztal.Value = "False" Then
        OB_wysylka_mix.BackColor = &H80000018
        OB_wysylka_inny.BackColor = &H80000018
        OB_wysylka_metal.BackColor = &H80000018
        OB_wysylka_krysztal.BackColor = &H80000018
        counter = counter + 1
    Else
        OB_wysylka_mix.BackColor = &H8000000F
        OB_wysylka_inny.BackColor = &H8000000F
        OB_wysylka_metal.BackColor = &H8000000F
        OB_wysylka_krysztal.BackColor = &H8000000F
    End If

    If counter > 0 Then
        MsgBox "Uzupełnij brakujące dane", vbCritical, "Błąd"
        Exit Sub

    Else

        If Check_handlarz.Value = "True" And Check_do_wyslania.Value = "True" Then

            Sheets("Handel").Range("A" & OstatniRzad & ":H" & OstatniRzad).Font.Bold = "True"
            Sheets("Handel").Range("A" & OstatniRzad & ":H" & OstatniRzad).Font.Size = 12
            Sheets("Handel").Range("A" & OstatniRzad & ":H" & OstatniRzad).Interior.Color = RGB(0, 250, 0)

            WrzucanieDanych

        Else

                If Check_handlarz.Value = "True" Then

                    Sheets("Handel").Range("A" & OstatniRzad & ":H" & OstatniRzad).Font.Bold = "True"
                    Sheets("Handel").Range("A" & OstatniRzad & ":H" & OstatniRzad).Font.Size = 12

                    WrzucanieDanych

                Else

                    If Check_do_wyslania.Value = "True" Then
                        Sheets("Handel").Range("A" & OstatniRzad & ":H" & OstatniRzad).Interior.Color = RGB(0, 250, 0)

                        WrzucanieDanych

                    Else

                        WrzucanieDanych
                    End If

                End If

        End If

    End If

    czyszczenie
    Unload ufNowyHandel

    MsgBox ("Dodano nowy wpis"), vbOKOnly, "Nowa transakcja"

    ActiveWindow.ScrollRow = OstatniRzad
    ActiveWindow.SmallScroll Up:=10