Option Explicit

Dim ShUF_Addrecipient As Worksheet
Dim ShUF_Addcontract As Worksheet
Dim ShUF_Addsuppl As Worksheet
Dim ShUF_Main As Worksheet
Dim ShUF_Addnewmedic As Worksheet
Dim ShUF_AddNewContract As Worksheet

Dim UF_AddrecipientListObj As ListObject
Dim UF_AddcontractListObj As ListObject
Dim UF_AddsupplListObj As ListObject
Dim UF_MainListObj As ListObject
Dim UF_AddnewmedicListObj As ListObject
Dim UF_AddNewContractListObj As ListObject

Dim UF_AddrecipientListRow As ListRow
Dim UF_AddcontractListRow As ListRow
Dim UF_AddsupplListRow As ListRow
Dim UF_MainListRow As ListRow
Dim UF_AddnewmedicListRow As ListRow
Dim UF_AddNewContractListRow As ListRow

Sub Addcontract() ' добавить договор

    Set ShUF_Addcontract = ThisWorkbook.Worksheets("Медикаменты")
    Set UF_AddcontractListObj = ShUF_Addcontract.ListObjects("Договоры_tb")
        
    If UF_Addcontract.cbx_suppl.Value = "" Then
        UF_Main.Label_Info.ForeColor = VBA.RGB(255, 0, 0)
        UF_Main.Label_Info.Caption = "Укажите поставщика!"
    Exit Sub
    Else
    UF_Main.Label_Info.Caption = ""
    End If
    
    If UF_Addcontract.cbx_NumbCont.Value = "" Then
        UF_Main.Label_Info.ForeColor = VBA.RGB(255, 0, 0)
        UF_Main.Label_Info.Caption = "Укажите договор!"
    Exit Sub
    Else
    UF_Main.Label_Info.Caption = ""
    End If
    
    If UF_Addcontract.cbx_NameMedic.Value = "" Then
        UF_Main.Label_Info.ForeColor = VBA.RGB(255, 0, 0)
        UF_Main.Label_Info.Caption = "Укажите наименование МЦ!"
    Exit Sub
    Else
        UF_Main.Label_Info.Caption = ""
    End If
    
    If UF_Addcontract.txb_count.Value = "" Then
        UF_Main.Label_Info.ForeColor = VBA.RGB(255, 0, 0)
        UF_Main.Label_Info.Caption = "Укажите количество!"
    Exit Sub
    Else
        UF_Main.Label_Info.Caption = ""
    End If
    
    If UF_Addcontract.cbx_unit.Value = "" Then
        UF_Main.Label_Info.ForeColor = VBA.RGB(255, 0, 0)
        UF_Main.Label_Info.Caption = "Укажите единицы измерения!"
    Exit Sub
    Else
        UF_Main.Label_Info.Caption = ""
    End If

    Set UF_AddcontractListRow = UF_AddcontractListObj.ListRows.Add
    
       UF_AddcontractListRow.Range(1) = UF_Addcontract.cbx_NameMedic.Value
       UF_AddcontractListRow.Range(3) = UF_Addcontract.cbx_suppl.Value
       UF_AddcontractListRow.Range(4) = UF_Addcontract.cbx_NumbCont.Value
       UF_AddcontractListRow.Range(6) = UF_Addcontract.cbx_unit.Value
       UF_AddcontractListRow.Range(6) = UF_Addcontract.txb_count.Value
    
        UF_Main.Label_Info.ForeColor = VBA.RGB(0, 255, 0)
        UF_Main.Label_Info.Caption = "Информация добавлена!"
        
        UF_Addcontract.cbx_NameMedic.Value = ""
        UF_Addcontract.txb_cost.Value = ""
        UF_Addcontract.cbx_unit.Value = ""
        UF_Addcontract.txb_count.Value = ""
    
End Sub