If ComboBox1 = "Pre-payment" Then
         Cells(6, 2) = "  V  " And Cells(6, 11) = Empty
      Else
        Cells(6, 11) = "  V  " And Cells(6, 2) = Empty
      End If

MsgBox "Дані Payment Request збережено." & vbCrLf & "Заберіть, будь ласка, роздрукований Payment Request на принтері."

Sub Unhide()
With Worksheets("Control")
.Unprotect "winner2017"
Worksheets("Allocation").Activate
Dim sh As Worksheet
Set sh = Worksheets("Control")
sh.Range("B1:S1").Value = Range("B1:S1").Value
a = sh.Cells(Rows.Count, 3).End(xlUp).Row + 1
If a = 2 Then b = 1 Else b = sh.Cells(a - 1, 2).Value + 1
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 4).Value <> "" Then
sh.Range("B" & a & ":S" & a).Value = Range("B" & i & ":S" & i).Value
sh.Range("A" & a).Value = b
a = a + 1
End If
Next
Worksheets("Payment_Request").Activate
.Protect "winner2017"
End With

Worksheets("Payment_Request").Range("A1:M104").PrintOut Copies:=1

Sheets("Payment_Request").Range("I1") = Sheets("Payment_Request").Range("I1") + 1

ThisWorkbook.Save


End Sub

Dim iY, iU As Integer
    On Error Resume Next
    iY = Application.Match(ComboBox3.Value, Columns("G:G"), 0)
    Columns("B:B").Cells(iY).Value = "    V   "
    iU = Application.Match(ComboBox3.Text, Columns("M:M"), 0)
    Columns("I:I").Cells(iU).Value = "    V   "
    
    If iY = 0 Then If iU = 0 Then MsgBox "111111111": Exit Sub

End Sub

1) If TextBox3 = "" - "" Then Cells(10, 7) = Empty Else Cells(10, 7) = Date
        End If



2) If ComboBox1 = "Pre-payment" Then Cells(8, 13) = Empty Else Cells(8, 13) = Date
    End If

  3) If .Range("G3") = Empty Or ComboBox4 = Empty Or TextBox3 = Empty Or TextBox1 = Empty Or TextBox6 = Empty Or TextBox4 = Empty Or ComboBox9 = Empty Or ComboBox8 = Empty Or TextBox5 = Empty Or ComboBox1 = Empty Or ComboBox3 = Empty Or ComboBox10 = Empty Then
    
        MsgBox "Заповніть, будь ласка, всі поля в Payment Request", vbCritical + vbOKOnly
        Exit Sub
    Else
     Cells(3, 13) = TextBox4.Value & "  " & ComboBox9.Text
End If

Sub Unhide()
With Worksheets("Control")
.Unprotect "2017"
Worksheets("Allocation").Activate
Dim sh As Worksheet
Set sh = Worksheets("Control")
sh.Range("C1:S1").Value = Range("C1:S1").Value
a = sh.Cells(Rows.Count, 3).End(xlUp).Row + 1
If a = 2 Then b = 1 Else b = sh.Cells(a - 1, 2).Value + 1
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 4).Value <> "" Then
sh.Range("C" & a & ":S" & a).Value = Range("C" & i & ":S" & i).Value
sh.Range("B" & a).Value = b
a = a + 1
End If
Next
Worksheets("Payment_Request").Activate
.Protect "2017"
End With
Worksheets("Payment_Request").Range("A1:M104").PrintOut Copies:=1



End Sub

Sub Unhide()
Worksheets("Allocation").Activate
Dim sh As Worksheet
Set sh = Worksheets("Control")
sh.Range("C1:S1").Value = Range("C1:S1").Value
a = sh.Cells(Rows.Count, 3).End(xlUp).Row + 1
If a = 2 Then b = 1 Else b = sh.Cells(a - 1, 2).Value + 1
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 4).Value <> "" Then
sh.Range("C" & a & ":S" & a).Value = Range("C" & i & ":S" & i).Value
sh.Range("B" & a).Value = b
a = a + 1
End If
Next
Worksheets("Payment_Request").Activate
End Sub

Sub RE()


Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
    
    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    On Error GoTo cleanup
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
    .To = Range("To!B3")
    .CC = Range("Copy!B2")
    .Subject = Range("Name!B4")
    .Body = Range("Text!B2") & Range("Text!B6") & Range("Text!R2") & Range("Text!B13") & Range("Text!B23")
    .Attachments.Add Range("File!B11").Value
   If .Subject = "" Then GoTo cleanup
    .display
    End With
On Error GoTo 0
    Set OutMail = Nothing
cleanup:
    Set OutMail = Nothing
    Application.ScreenUpdating = True
End Sub