VBA form question

[Paul_Hossler]

IF the fields are the same between disciplines, then I'd use a TabStrip control. IF NOT, then the logic can be adapted to a MultiPage control


On CROWN & BRIDGE, the button runs the demo macro

This is the userform code:

Option Explicit


Private Sub cbClose_Click()
    Me.Hide
    Unload Me
End Sub


Private Sub cbSave_Click()
    Dim wsToUpdate As Worksheet
    Dim rToUpdate As Range
    
    With Me
        Select Case .TabStrip1.Value  '   0 to 4
            Case 0
                Set wsToUpdate = Worksheets("CROWN & BRIDGE")
            Case 1
                Set wsToUpdate = Worksheets("ENDO")
            Case 2
                Set wsToUpdate = Worksheets("GDP")
            Case 3
                Set wsToUpdate = Worksheets("UNABLE TO FILL")
            Case 4
                Set wsToUpdate = Worksheets("COMPLETE")
        End Select
    
        With wsToUpdate
            Set rToUpdate = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).EntireRow
        End With
        
        rToUpdate.Cells(1, 1).Value = .tbName.Value
        rToUpdate.Cells(1, 2).Value = .tbDate.Value
        rToUpdate.Cells(1, 3).Value = .tbTitle.Value
    
        'this clears the input
        .tbName.Value = vbNullString
        .tbDate.Value = vbNullString
        .tbTitle.Value = vbNullString
    End With


End Sub