Home

Userform - Submit button not working

%3CLINGO-SUB%20id%3D%22lingo-sub-1181330%22%20slang%3D%22en-US%22%3EUserform%20-%20Submit%20button%20not%20working%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1181330%22%20slang%3D%22en-US%22%3E%3CP%3EHello%20everyone.%3CBR%20%2F%3E%3CBR%20%2F%3EI%20made%20a%20UserForm%20using%20VBA%20for%20the%20first%20time.%20I'm%20unable%20to%20get%20the%20submit%20button%20working.%20Am%20I%20missing%20any%20steps%20in%20my%20code%20below%3F%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-markup%22%3E%3CCODE%3EPrivate%20Sub%20qualform_Initialize()%0A%0AWith%20Me%0A%20.StartUpPosition%20%3D%201%0A%20.Width%20%3D%20Application.Width%20*%2010%0A%20.Height%20%3D%20Application.Height%20*%2010%0A%20.Left%20%3D%20Application.Left%20%2B%20(Application.Width%20*%2010)%20%5C%201%0A%20.Top%20%3D%20Application.Top%20%2B%20(Application.Height%20*%2010)%20%5C%201%0A%20End%20With%0A%20%0Acmbdate.Clear%0Acmbmonth.Clear%0Acmbyear.Clear%0A%20%20%20%0A'Fill%20Date%20Drop%20Down%20box%20-%20Takes%201%20to%2031%0A%20%20%20With%20cmbdate%0A%20%20%20%20%20%20.AddItem%20%221%22%0A%20%20%20%20%20%20.AddItem%20%222%22%0A%20%20%20%20%20%20.AddItem%20%223%22%0A%20%20%20%20%20%20.AddItem%20%224%22%0A%20%20%20%20%20%20.AddItem%20%225%22%0A%20%20%20%20%20%20.AddItem%20%226%22%0A%20%20%20%20%20%20.AddItem%20%227%22%0A%20%20%20%20%20%20.AddItem%20%228%22%0A%20%20%20%20%20%20.AddItem%20%229%22%0A%20%20%20%20%20%20.AddItem%20%2210%22%0A%20%20%20%20%20%20.AddItem%20%2211%22%0A%20%20%20%20%20%20.AddItem%20%2212%22%0A%20%20%20%20%20%20.AddItem%20%2213%22%0A%20%20%20%20%20%20.AddItem%20%2214%22%0A%20%20%20%20%20%20.AddItem%20%2215%22%0A%20%20%20%20%20%20.AddItem%20%2216%22%0A%20%20%20%20%20%20.AddItem%20%2217%22%0A%20%20%20%20%20%20.AddItem%20%2218%22%0A%20%20%20%20%20%20.AddItem%20%2219%22%0A%20%20%20%20%20%20.AddItem%20%2220%22%0A%20%20%20%20%20%20.AddItem%20%2221%22%0A%20%20%20%20%20%20.AddItem%20%2222%22%0A%20%20%20%20%20%20.AddItem%20%2223%22%0A%20%20%20%20%20%20.AddItem%20%2224%22%0A%20%20%20%20%20%20.AddItem%20%2225%22%0A%20%20%20%20%20%20.AddItem%20%2226%22%0A%20%20%20%20%20%20.AddItem%20%2227%22%0A%20%20%20%20%20%20.AddItem%20%2228%22%0A%20%20%20%20%20%20.AddItem%20%2229%22%0A%20%20%20%20%20%20.AddItem%20%2230%22%0A%20%20%20%20%20%20.AddItem%20%2231%22%0A%20%20%20End%20With%0A%20%20%20%0A%20%20%20'Fill%20Month%20Drop%20Down%20box%20-%20Takes%20Jan%20to%20Dec%0A%20%20%20With%20cmbmonth%0A%20%20%20%20%20%20.AddItem%20%22JAN%22%0A%20%20%20%20%20%20.AddItem%20%22FEB%22%0A%20%20%20%20%20%20.AddItem%20%22MAR%22%0A%20%20%20%20%20%20.AddItem%20%22APR%22%0A%20%20%20%20%20%20.AddItem%20%22MAY%22%0A%20%20%20%20%20%20.AddItem%20%22JUN%22%0A%20%20%20%20%20%20.AddItem%20%22JUL%22%0A%20%20%20%20%20%20.AddItem%20%22AUG%22%0A%20%20%20%20%20%20.AddItem%20%22SEP%22%0A%20%20%20%20%20%20.AddItem%20%22OCT%22%0A%20%20%20%20%20%20.AddItem%20%22NOV%22%0A%20%20%20%20%20%20.AddItem%20%22DEC%22%0A%20%20%20End%20With%0A%20%20%20%0A%20%20%20'Fill%20Year%20Drop%20Down%20box%20-%20Takes%201980%20to%202014%0A%20%20%20With%20cmbyear%0A%20%20%20%20%20%20.AddItem%20%222020%22%0A%20%20%20%20%20%20.AddItem%20%222021%22%0A%20%20%20%20%20%20.AddItem%20%222022%22%0A%20%20%20%20%20%20.AddItem%20%222023%22%0A%20%20%20%20%20%20.AddItem%20%222024%22%0A%20%20%20%20%20%20.AddItem%20%222025%22%0A%20%20%20%20%20%20.AddItem%20%222026%22%0A%20%20%20%20%20%20.AddItem%20%222027%22%0A%20%20%20%20%20%20.AddItem%20%222028%22%0A%20%20%20%20%20%20.AddItem%20%222029%22%0A%20%20%20%20%20%20.AddItem%20%222030%22%0A%20%20%20%20%20%20.AddItem%20%222031%22%0A%20%20%20%20%20%20.AddItem%20%222032%22%0A%20%20%20%20%20%20.AddItem%20%222033%22%0A%20%20%20%20%20%20.AddItem%20%222034%22%0A%20%20%20%20%20%20.AddItem%20%222035%22%0A%20%20%20%20%20%20.AddItem%20%222036%22%0A%20%20%20%20%20%20.AddItem%20%222037%22%0A%20%20%20%20%20%20.AddItem%20%222038%22%0A%20%20%20%20%20%20.AddItem%20%222039%22%0A%20%20%20%20%20%20.AddItem%20%222040%22%0A%20%20%20End%20With%0A%20%20%20%0AEnd%20Sub%0A%0APrivate%20Sub%20btncancel_Click()%0A%20%20%20Unload%20Me%0AEnd%20Sub%0A%0APrivate%20Sub%20btnsubmit_Click()%0A%0A%20'Copy%20input%20values%20to%20sheet.%0A%20%20%20%20Dim%20lRow%20As%20Long%0A%20%20%20%20%0A%20%20%20%20'Make%20Sheet1%20Active%0A%20%20%20%20Sheet1.Activate%0A%20%20%20%20%0A%20%20%20%20'Determine%20empty%20row%0A%20%20%20%20emptyRow%20%3D%20WorksheetFunction.CountA(Range(%22A%3AA%22))%20%2B%201%0A%20%20%20%20%0A%20%20%20%20With%20ws%0A%20%20%20%20%20%20%20%20.Cells(lRow%2C%201).Value%20%3D%20Me.empid.Value%0A%20%20%20%20%20%20%20%20.Cells(lRow%2C%202).Value%20%3D%20Me.disreview.Value%0A%20%20%20%20%20%20%20%20.Cells(lRow%2C%203).Value%20%3D%20Me.daterec.Value%0A%20%20%20%20%20%20%20%20.Cells(lRow%2C%204).Value%20%3D%20Me.batch.Value%0A%20%20%20%20%20%20%20%20.Cells(IRow%2C%205).Value%20%3D%20Me.cmbdate.Value%20%26amp%3B%20%22%2F%22%20%26amp%3B%20Me.cmbmonth.Value%20%26amp%3B%20%22%2F%22%20%26amp%3B%20Me.cmbyear.Value%0A%20%20%20%20End%20With%0A%20%20%20%20'Clear%20input%20controls.%0A%20%20%20%20Me.empid.Value%20%3D%20%22%22%0A%20%20%20%20Me.disreview.Value%20%3D%20%22%22%0A%20%20%20%20Me.daterec.Value%20%3D%20%22%22%0A%20%20%20%20Me.batch.Value%20%3D%20%22%22%0A%20%20%20%20Me.dateac.Value%20%3D%20%22%22%0A%20%20%20%20%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThanks%20for%20the%20help%20everyone!%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1181330%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1181525%22%20slang%3D%22en-US%22%3ERe%3A%20Userform%20-%20Submit%20button%20not%20working%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1181525%22%20slang%3D%22en-US%22%3EAdvice%201%3A%20turn%20on%20variable%20declaration%20by%20adding%20the%20statement%3CBR%20%2F%3E%20Option%20Explicit%3CBR%20%2F%3Eat%20the%20top%20of%20the%20module.%20This%20will%20tell%20you%20that%20this%20line%3A%3CBR%20%2F%3EemptyRow%20%3D%20WorksheetFunction.CountA(Range(%22A%3AA%22))%20%2B%201%3CBR%20%2F%3Econtains%20an%20undeclared%20variable.%20CHange%20the%20line%20to%3A%3CBR%20%2F%3ElRow%20%3D%20WorksheetFunction.CountA(Range(%22A%3AA%22))%20%2B%201%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1181555%22%20slang%3D%22en-US%22%3ERe%3A%20Userform%20-%20Submit%20button%20not%20working%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1181555%22%20slang%3D%22en-US%22%3E%3CP%3EHi%20Jan%2C%3CBR%20%2F%3E%3CBR%20%2F%3EThanks%20for%20the%20reply.%20I%20made%20the%20changes%20as%20you%20suggested.%20However%2C%20I'm%20not%20sure%20why%20I'm%20getting%20the%20method%20not%20found%20error%20as%20per%20below.%20Is%20it%20because%20of%20the%20%3CEM%3E%22value%22%20attribute%3F%3C%2FEM%3E%3CBR%20%2F%3E%3CBR%20%2F%3E%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22lia-inline-image-display-wrapper%20lia-image-align-inline%22%20image-alt%3D%22Mr_Buttons_0-1582105187602.png%22%20style%3D%22width%3A%20400px%3B%22%3E%3CIMG%20src%3D%22https%3A%2F%2Fgxcuf89792.i.lithium.com%2Ft5%2Fimage%2Fserverpage%2Fimage-id%2F171988i5045934A8E8DEBD3%2Fimage-size%2Fmedium%3Fv%3D1.0%26amp%3Bpx%3D400%22%20title%3D%22Mr_Buttons_0-1582105187602.png%22%20alt%3D%22Mr_Buttons_0-1582105187602.png%22%20%2F%3E%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1181881%22%20slang%3D%22en-US%22%3ERe%3A%20Userform%20-%20Submit%20button%20not%20working%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1181881%22%20slang%3D%22en-US%22%3EI'm%20not%20sure%2C%20if%20EmpID%20is%20a%20textbox%20on%20the%20userform%20it%20should%20work%20as%20shown.%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1185960%22%20slang%3D%22en-US%22%3ERe%3A%20Userform%20-%20Submit%20button%20not%20working%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1185960%22%20slang%3D%22en-US%22%3E%3CP%3EHey%26nbsp%3B%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F22322%22%20target%3D%22_blank%22%3E%40Jan%20Karel%20Pieterse%3C%2FA%3E%3CBR%20%2F%3E%3CBR%20%2F%3EI%20edited%20and%20cleaned%20up%20my%20code%20to%20make%20the%20submit%20button%20work.%20I%20added%20this%20code%20and%20it%20works%20now.%20Thanks!%3CBR%20%2F%3E%3CBR%20%2F%3E%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-markup%22%3E%3CCODE%3EPrivate%20Sub%20btnsubmit_Click()%0A'Copy%20input%20values%20to%20sheet.%0ADim%20irow%20As%20Long%0A%0A'Determine%20empty%20row%0A'%20emptyRow%20%3D%20WorksheetFunction.CountA(Range(%22A%3AA%22))%20%2B%201%0AWith%20Sheet1%0Airow%20%3D%20.Cells(.Rows.Count%2C%201).End(xlUp).Row%20%2B%201%0A.Cells(irow%2C%201).Value%20%3D%20Me.cmbdate.Value%20%26amp%3B%20%22%2F%22%20%26amp%3B%20Me.cmbmonth.Value%20%26amp%3B%20%22%2F%22%20%26amp%3B%20Me.cmbyear.Value%0A.Cells(irow%2C%202).Value%20%3D%20Me.txtbatch.Value%0A.Cells(irow%2C%203).Value%20%3D%20Me.cmbchart.Value%0A.Cells(irow%2C%204).Value%20%3D%20Me.cmbtrigger.Value%0A.Cells(irow%2C%205).Value%20%3D%20Me.txtfail.Value%0A.Cells(irow%2C%206).Value%20%3D%20Me.txtdisreview.Value%0A.Cells(irow%2C%207).Value%20%3D%20Me.txtdateac.Value%0A.Cells(irow%2C%208).Value%20%3D%20Me.txtempid.Value%0AEnd%20With%0A'Clear%20input%20controls.%0AMe.cmbdate.Value%20%3D%20%22%22%0AMe.cmbmonth.Value%20%3D%20%22%22%0AMe.cmbyear.Value%20%3D%20%22%22%0AMe.txtbatch.Value%20%3D%20%22%22%0AMe.cmbchart.Value%20%3D%20%22%22%0AMe.cmbtrigger.Value%20%3D%20%22%22%0AMe.txtfail.Value%20%3D%20%22%22%0AMe.txtdisreview.Value%20%3D%20%22%22%0AMe.txtdateac.Value%20%3D%20%22%22%0AMe.txtempid.Value%20%3D%20%22%22%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%3CBR%20%2F%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E
Highlighted
Occasional Contributor

Hello everyone.

I made a UserForm using VBA for the first time. I'm unable to get the submit button working. Am I missing any steps in my code below?

 

 

Private Sub qualform_Initialize()

With Me
 .StartUpPosition = 1
 .Width = Application.Width * 10
 .Height = Application.Height * 10
 .Left = Application.Left + (Application.Width * 10) \ 1
 .Top = Application.Top + (Application.Height * 10) \ 1
 End With
 
cmbdate.Clear
cmbmonth.Clear
cmbyear.Clear
   
'Fill Date Drop Down box - Takes 1 to 31
   With cmbdate
      .AddItem "1"
      .AddItem "2"
      .AddItem "3"
      .AddItem "4"
      .AddItem "5"
      .AddItem "6"
      .AddItem "7"
      .AddItem "8"
      .AddItem "9"
      .AddItem "10"
      .AddItem "11"
      .AddItem "12"
      .AddItem "13"
      .AddItem "14"
      .AddItem "15"
      .AddItem "16"
      .AddItem "17"
      .AddItem "18"
      .AddItem "19"
      .AddItem "20"
      .AddItem "21"
      .AddItem "22"
      .AddItem "23"
      .AddItem "24"
      .AddItem "25"
      .AddItem "26"
      .AddItem "27"
      .AddItem "28"
      .AddItem "29"
      .AddItem "30"
      .AddItem "31"
   End With
   
   'Fill Month Drop Down box - Takes Jan to Dec
   With cmbmonth
      .AddItem "JAN"
      .AddItem "FEB"
      .AddItem "MAR"
      .AddItem "APR"
      .AddItem "MAY"
      .AddItem "JUN"
      .AddItem "JUL"
      .AddItem "AUG"
      .AddItem "SEP"
      .AddItem "OCT"
      .AddItem "NOV"
      .AddItem "DEC"
   End With
   
   'Fill Year Drop Down box - Takes 1980 to 2014
   With cmbyear
      .AddItem "2020"
      .AddItem "2021"
      .AddItem "2022"
      .AddItem "2023"
      .AddItem "2024"
      .AddItem "2025"
      .AddItem "2026"
      .AddItem "2027"
      .AddItem "2028"
      .AddItem "2029"
      .AddItem "2030"
      .AddItem "2031"
      .AddItem "2032"
      .AddItem "2033"
      .AddItem "2034"
      .AddItem "2035"
      .AddItem "2036"
      .AddItem "2037"
      .AddItem "2038"
      .AddItem "2039"
      .AddItem "2040"
   End With
   
End Sub

Private Sub btncancel_Click()
   Unload Me
End Sub

Private Sub btnsubmit_Click()

 'Copy input values to sheet.
    Dim lRow As Long
    
    'Make Sheet1 Active
    Sheet1.Activate
    
    'Determine empty row
    emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
    
    With ws
        .Cells(lRow, 1).Value = Me.empid.Value
        .Cells(lRow, 2).Value = Me.disreview.Value
        .Cells(lRow, 3).Value = Me.daterec.Value
        .Cells(lRow, 4).Value = Me.batch.Value
        .Cells(IRow, 5).Value = Me.cmbdate.Value & "/" & Me.cmbmonth.Value & "/" & Me.cmbyear.Value
    End With
    'Clear input controls.
    Me.empid.Value = ""
    Me.disreview.Value = ""
    Me.daterec.Value = ""
    Me.batch.Value = ""
    Me.dateac.Value = ""
    
End Sub

 

 

 

Thanks for the help everyone!

4 Replies
Highlighted
Advice 1: turn on variable declaration by adding the statement
Option Explicit
at the top of the module. This will tell you that this line:
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
contains an undeclared variable. CHange the line to:
lRow = WorksheetFunction.CountA(Range("A:A")) + 1
Highlighted

Hi Jan,

Thanks for the reply. I made the changes as you suggested. However, I'm not sure why I'm getting the method not found error as per below. Is it because of the "value" attribute?

Mr_Buttons_0-1582105187602.png

 

Highlighted
I'm not sure, if EmpID is a textbox on the userform it should work as shown.
Highlighted

Hey @Jan Karel Pieterse

I edited and cleaned up my code to make the submit button work. I added this code and it works now. Thanks!

Private Sub btnsubmit_Click()
'Copy input values to sheet.
Dim irow As Long

'Determine empty row
' emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
With Sheet1
irow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(irow, 1).Value = Me.cmbdate.Value & "/" & Me.cmbmonth.Value & "/" & Me.cmbyear.Value
.Cells(irow, 2).Value = Me.txtbatch.Value
.Cells(irow, 3).Value = Me.cmbchart.Value
.Cells(irow, 4).Value = Me.cmbtrigger.Value
.Cells(irow, 5).Value = Me.txtfail.Value
.Cells(irow, 6).Value = Me.txtdisreview.Value
.Cells(irow, 7).Value = Me.txtdateac.Value
.Cells(irow, 8).Value = Me.txtempid.Value
End With
'Clear input controls.
Me.cmbdate.Value = ""
Me.cmbmonth.Value = ""
Me.cmbyear.Value = ""
Me.txtbatch.Value = ""
Me.cmbchart.Value = ""
Me.cmbtrigger.Value = ""
Me.txtfail.Value = ""
Me.txtdisreview.Value = ""
Me.txtdateac.Value = ""
Me.txtempid.Value = ""
End Sub


 

Related Conversations
Share Button added to the Toolbar!
HotCakeX in Discussions on
13 Replies
Multiple charts in a userform
Alikhajehfard in Excel on
2 Replies
Userform Listbox HELP
R3d3mpt10n in Word on
1 Replies
Synchronize file structure from inside of Teams
Deleted in Microsoft Teams on
1 Replies