Problem: Users on different machines unable to execute VBA macro that works perfectly on my machine and the machines of others.
Having issues with ActiveX form controls in MS Excel 2010 v.14.0.7015.1000 (32-bit). Using ActiveX Button and Text box I wrote VBA code that populates the text box when the button is clicked.
The code executes perfectly on my machine and has worked on other machines. I am having issues with other users being able to click the button. I told the user having trouble to try to run the Macro with the Alt+F8 keyboard command, but the user got an "object required" error.
Have hit a wall and I am looking for anything that might help.
Also tried this forum related to a MS update to no avail: Microsoft Excel ActiveX Controls Disabled?
Thanks in advance!
Attached is the code if helpful:
Public Sub CommandButton1_Click()
'Clear Working tab spreadsheet
Worksheets("Sheet3").Range("A:AF").ClearContents
'-----------------
'Filter One Doc to correct process and requirement
' Process
Worksheets("One Doc Copy").Range("A2:AF12073").AutoFilter _
Field:=4, _
Criteria1:=Worksheets("MASTER TAB").Cells(2, ActiveCell.Column), _
VisibleDropDown:=False
' Requirement
Worksheets("One Doc Copy").Range("A2:AF12073").AutoFilter _
Field:=12, _
Criteria1:=Worksheets("MASTER TAB").Cells(ActiveCell.Row, 2), _
VisibleDropDown:=False
'-----------------
'Copy Filtered One Doc Data to Working Tab (Sheet3)
Worksheets("One Doc Copy").Range("A2:AF12073").SpecialCells(xlCellTypeVisible).Copy _
Destination:=Worksheets("Sheet3").Range("A3")
'-----------------
'Return the number of results for counter (find safer place for value)
Dim Counter As Integer
Counter = Worksheets("MASTER TAB").Range("DX3").Value
'-----------------
'Populate Text Box
Dim process, ctrlTxt As String
process = Worksheets("MASTER TAB").Cells(2, ActiveCell.Column)
If Counter = 0 Then
TextBox1.Text = "There are no assigned requirements for: " & process
Else
TextBox1.Text = "Controls for: " & process & vbLf & vbLf _
& "Requirement #: " & Worksheets("sheet3").Range("L3").Value & vbLf _
& "Requirement Description: " & Worksheets("sheet3").Range("M3").Value & vbLf _
& "Total Number of Controls: " & Counter & vbLf _
& "-----------------" & vbLf & vbLf
For x = 0 To Counter - 1
ctrlTxt = ctrlTxt & "(" & x + 1 & ")" & vbLf & vbLf _
& "Control Type: " & Worksheets("sheet3").Cells(3 + x, 19) & vbLf & vbLf _
& "Control Description: " & vbLf & vbLf & Worksheets("sheet3").Cells(3 + x, 20) & vbLf & vbLf _
& "---" & vbLf
Next
TextBox1.Text = TextBox1.Text + ctrlTxt
End If
End Sub