I am new to VBA and need some direction on a problem. I have a listBox on sheet2 (Project Info). Based on the selection made in that ListBox, I want to copy a range of cells from sheet15 (Cust Specific Text) to a range of cells on sheet14 (ESD Safety Log). Here is what I have that doesn't work yet:
I will add code to have it try to match each of the 4 remaining available selections from the ListBox with a nested If Then Else.
Please Login or Register to view this content.
Last edited by WarrenSmiley; 11-05-2013 at 10:27 PM.
What does this mean?
Did you get an error message? Tell us what it said. Which line of code was highlighted? Give us some more information to help diagnose the issue.Here is what I have that doesn't work yet:
Alan עַם יִשְׂרָאֵל חַי
Change an Ugly Report with Power Query
Database Normalization
Complete Guide to Power Query
Man's Mind Stretched to New Dimensions Never Returns to Its Original Form
Error message was Run-time error '438': Object doesn't support this property or method. It highlighted the If Sheets...... line of code
Which line of code was highlighted when you click on the debug button?
I have a sneaking suspicion you are using a form control list box. If so give this a try:
Please Login or Register to view this content.
Now I get Run-time error '-2147024809 (80070057)':
The item with the specific name wasn't found.
It highlights the If ws.Shapes(.... line of code
That means either I was wrong and you are using an active x list box, or your list box is not actually called List Box 1. I would suggest you submit your workbook
Sorry, here is a reduced size copy of the workbook ...
Last edited by WarrenSmiley; 12-10-2013 at 03:05 PM.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks