UserForm Data Entry System

' UserForm Data Entry System
' This code creates a data entry form with cascading dropdowns and validation

Private Sub UserForm_Initialize()
    ' Initialize form controls
    On Error GoTo ErrorHandler

    ' Populate dropdown from worksheet data
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("MasterData")

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' Populate ComboBox1 with unique values from column A
    Dim i As Long
    For i = 2 To lastRow
        If ws.Cells(i, 1).Value <> "" Then
            Me.ComboBox1.AddItem ws.Cells(i, 1).Value
        End If
    Next i

    ' Set default values
    Me.TextBox1.Value = ""
    Me.TextBox2.Value = ""
    Me.ComboBox2.Clear

    Exit Sub

ErrorHandler:
    MsgBox "Error initialising form: " & Err.Description, vbCritical
End Sub

Private Sub ComboBox1_Change()

' ... 82 more lines hidden ...
'
' Sign up for free to view the complete code
' Visit: vbacode.io