2 different errors im struggling with

Originally Posted by Richard Buttrey

Hi and welcome to the forum

At the moment you have two IF statements and only one End If. They should be paired.

You also have a For Each Ctrl without a Next Ctrl

Thank you both for your input and really quick replies!

Thanks Richard, I'll have a look at some YouTube videos about that. Random question is there anyone online you who's videos you recommend? I feel like I'm not learning the important basics, with the current videos I'm watching.

Originally Posted by Norie

This should sort the first error.

Private Sub btnAdd_Click()
Dim ws As Worksheet
Dim i As Variant
Dim newRow As Long

    Set ws = Worksheets("Overstocks")

    newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1


    ws.Cells(newRow, 1).Value = Me.txtBrand.Value
    ws.Cells(newRow, 2).Value = Me.cbCategory.Value
    ws.Cells(newRow, 3).Value = Me.txtQuantity.Value
    ws.Cells(newRow, 4).Value = IIf(opYes.Value, "Yes", "No")
    ws.Cells(newRow, 5).Value = Date

    Clear_Form

    'validate textbox entry
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is MSForms.TextBox Then
            If ctrl.Value = vbNullString Then
                MsgBox "You must complete all entries"
                ctrl.SetFocus
                Unload Me
              Exit Sub
            End If
        End If
    Next ctrl
    
End Sub

Not sure where to look for the other code that's causing problems, where is that located?

I added that code Norie thank you very much. The problem I'm still having is even though i don't complete the userform, it still automatically adds the IST 'no' section. How do i rectify this? The second error is located in module 2, no idea how I've ended up putting it there lol.