Userform Question

[ryan_law2000]

I have a userform that you need to fill in 4 sections then press a transfer button

How can i make it so that all four fields must be filled in before the transfer button runs.

If i dont fill in a cell and press the button i would like a MSG BOX to appear saying "All fields must be filled in"

how can i do this: here is the code already found on the transfer button


Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To 4
Sheets("SHELL OUT").Cells(Rows.Count, i).End(xlUp).Offset(1) = Me.Controls("TextBox" & i).Value


Next i
Unload Me
End Sub

 

[Andrew Poulsom]

Example:

Private Sub CommandButton1_Click()
    With TextBox1
        If .Text = "" Then
            MsgBox "Please complete " & .Name
            .SetFocus
            Exit Sub
        End If
    End With
End Sub

 

[ryan_law2000]

Did a little modifying and it works perfect... Thanks Andrew