VBA中的Excel错误“运行时错误'424'：必需的对象

Question

I am new to VBA and coding in general. I am currently trying to transfer date from a multitab over to a workbook and keep getting the run time error 424: object required. Please help

Dim sheetname As String

Private Sub CommandButton2_Click()
Dim LastRow As Long
Dim sheetname As String
Select Case MultiPage1.Value
  Case 0`sheetname = "Hannah"
    Sheets(sheetname).Select
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1").Select`enter code here`
    Selection.End(xlDown).Offset(1, 0).Select
    ActiveCell.Value = Date
    ActiveCell.Offset(0, 1).Value = Me.RequestorHR.Value
    ActiveCell.Offset(0, 2).Value = Me.CaseHR.Value
    ActiveCell.Offset(0, 3).Value = Me.TypeHR.Value
    ActiveCell.Offset(0, 4).Value = Me.UrgencyHR.Value
    ActiveCell.Offset(0, 5).Value = Me.ReasonsHR.Value
    ActiveCell.Offset(0, 6).Value = Me.DeadlineHR.Value
    Clear_Click
  Case 1
    sheetname = "John"
    Sheets(sheetname).Select
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1").Select
    Selection.End(xlDown).Offset(1, 0).Select
    ActiveCell.Value = Date
    ActiveCell.Offset(0, 1).Value = Me.RequestorJM.Value
    ActiveCell.Offset(0, 2).Value = Me.CaseJM.Value
    ActiveCell.Offset(0, 3).Value = Me.TypeJM.Value
    ActiveCell.Offset(0, 4).Value = Me.UrgencyJM.Value
    ActiveCell.Offset(0, 5).Value = Me.ReasonsJM.Value
    ActiveCell.Offset(0, 6).Value = Me.DeadlineJM.Value
    Clear_Click

Answer 1

I made some suggestions below so you have less repeating code. I added an array so you do not have to keep retyping all your textbox(Assuming) values each time. I hope that helps. I had to guess so if it needs to be tweaked let me know bud! It may run an error cause i was not sure of the active cell your referring too. If you let me know, i can fix it.

Private Sub CommandButton2_Click()
    Dim LastRow As Long
    Dim sheetname As String
    Dim strList() As Variant
    Dim i As Integer

    strList = Array(, Me.RequestorHR.Value, Me.CaseHR.Value, Me.TypeHR.Value, _
                    Me.UrgencyHR.Value, Me.ReasonsHR.Value, Me.DeadlineHR.Value)

    Select Case MultiPage1.Value

    Case 0

    sheetname = "Hannah"

    Sheets(sheetname).Select

    LastRow = Sheets(sheetname).Range("A" & Rows.Count).End(xlUp).Row

    Sheets(sheetname).Range("A1").End(xlDown).Offset(1, 0).Value = Date

    For i = 1 To 6
        With Sheets(sheetname)
            .ActiveCell.Offset(0, i).Value = strList(i)
        End With
    Next i

    Clear_Click

    Case 1

    sheetname = "John"

    Sheets(sheetname).Select

    LastRow = Sheets(sheetname).Range("A" & Rows.Count).End(xlUp).Row

    Sheets(sheetname).Range("A1").End(xlDown).Offset(1, 0).Value = Date

    For i = 1 To 6
        With Sheets(sheetname)
            .ActiveCell.Offset(0, i).Value = strList(i)
        End With
    Next i

    Clear_Click

In Userform Code:

 ' StartUpPosition > Manual
 Private Sub UserForm_Initialize()
 With Me
    .Top = Int(((Application.Height / 2) + Application.Top) - (.Height / 2))
    .Left = Int(((Application.Width / 2) + Application.Left) - (.Width / 2))
 End With
End sub

Code in worksheet or Module:

 Sub Open_Userform
     UserForm1.Show False
 End sub

Have a great day!