We help IT Professionals succeed at work.
Get Started

Command button code being aborted.

Saqib Husain
Saqib Husain asked
on
79 Views
Last Modified: 2015-03-16
I have a userform which has a listbox, a textbox and a commandbutton

Based on the textbox the items in the listbox are narrowed down.

While the required item on the listbox is selected the commandbutton is clicked which is supposed to populate two cells. The problem is that as soon as one of the cells is populated the sub is aborted. If I change the order of the population again after the first population the routine is aborted.

Here is the code for the commandbutton. The code aborts at line 6. If I comment it out the program aborts at line 13

Private Sub CommandButton1_Click()
    Dim prj As Worksheet
    Dim rw As Long
    Dim cel As Range
    If Me.ListBox1.ListCount = 0 Then Exit Sub
'    ActiveCell.Value = Me.ListBox1.List(Me.ListBox1.ListIndex) '.Selected
    Set prj = Workbooks("Timesheet control.xls").Sheets("Projects")
    rw = 0
    For Each cel In prj.Range("D:D")
        If cel = Me.ListBox1 Then rw = cel.Row: Exit For
    Next cel
    ActiveSheet.Unprotect
    ActiveCell.Offset(, -1) = prj.Cells(rw, "C")
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
    UserForm1.Hide
End Sub

Open in new window

Comment
Watch Question
Grand Poobah
CERTIFIED EXPERT
Most Valuable Expert 2011
Top Expert 2011
Commented:
This problem has been solved!
Unlock 1 Answer and 6 Comments.
See Answer
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE