• Skip to main content
  • Skip to header right navigation
  • Skip to site footer

My Online Training Hub

Learn Dashboards, Excel, Power BI, Power Query, Power Pivot

  • Courses
  • Pricing
    • Free Courses
    • Power BI Course
    • Excel Power Query Course
    • Power Pivot and DAX Course
    • Excel Dashboard Course
    • Excel PivotTable Course – Quick Start
    • Advanced Excel Formulas Course
    • Excel Expert Advanced Excel Training
    • Excel Tables Course
    • Excel, Word, Outlook
    • Financial Modelling Course
    • Excel PivotTable Course
    • Excel for Customer Service Professionals
    • Excel for Operations Management Course
    • Excel for Decision Making Under Uncertainty Course
    • Excel for Finance Course
    • Excel Analysis ToolPak Course
    • Multi-User Pricing
  • Resources
    • Free Downloads
    • Excel Functions Explained
    • Excel Formulas
    • Excel Add-ins
    • IF Function
      • Excel IF Statement Explained
      • Excel IF AND OR Functions
      • IF Formula Builder
    • Time & Dates in Excel
      • Excel Date & Time
      • Calculating Time in Excel
      • Excel Time Calculation Tricks
      • Excel Date and Time Formatting
    • Excel Keyboard Shortcuts
    • Excel Custom Number Format Guide
    • Pivot Tables Guide
    • VLOOKUP Guide
    • ALT Codes
    • Excel VBA & Macros
    • Excel User Forms
    • VBA String Functions
  • Members
    • Login
    • Password Reset
  • Blog
  • Excel Webinars
  • Excel Forum
    • Register as Forum Member

Userform Activate List VBA|VBA & Macros|Excel Forum|My Online Training Hub

You are here: Home / Userform Activate List VBA|VBA & Macros|Excel Forum|My Online Training Hub
Avatar
sp_LogInOut Log In sp_Registration Register
sp_Search Search
Advanced Search|Last Search Results
Search
Forum Scope




Match



Forum Options



Minimum search word length is 3 characters - maximum search word length is 84 characters
sp_Search Search
sp_RankInfo
Lost password?
sp_CrumbsHome HomeExcel ForumVBA & MacrosUserform Activate List VBA
sp_PrintTopic sp_TopicIcon
Userform Activate List VBA
Avatar
Steven Behr
Member
Members

Power Query
Level 0
Forum Posts: 85
Member Since:
January 30, 2020
sp_UserOfflineSmall Offline
1
January 30, 2020 - 11:52 am
sp_Permalink sp_Print sp_EditHistory

Hi,

 

I have created a warehouse module that I am completing and have 22 listboxes that consist of 22 lines to click on

With this in Mind, I have created a Userform Activate that whenever an order has been raised a 'Check Order" userform and VBA code below selects all 22 listboxes and populates into various 22 lines in the text boxes.

However, if there is no data part lstlookup, it indicates Run-time error 380, could not set the selected property. Invalid property value.

 

is there a VBA coding that if there was no Data or Value in any listbox to continue with the opening of the userform.

Private Sub Userform_Activate()

'Dim arrItems() As String

Dim bRB As MSForms.ReturnBoolean

lstLookup.Selected(0) = True

lstLookup_DblClick bRB

lstLookup1.Selected(0) = True

lstLookup1_DblClick bRB

I have put a "Comma" in front of lstLookup1 to verify if there was no data in this listbox and sure enough debug indicates lstLookup2

'lstlookup1.Selected(0) = True

'lstlookup1_DblClick bRB

 

Thanks

 

Steve

Avatar
Philip Treacy
Admin
Level 10
Forum Posts: 1518
Member Since:
October 5, 2010
sp_UserOfflineSmall Offline
2
January 30, 2020 - 2:03 pm
sp_Permalink sp_Print

Hi Steve,

Please supply your workbook and code.  Too hard to debug without them.

regards

Phil

Avatar
Steven Behr
Member
Members

Power Query
Level 0
Forum Posts: 85
Member Since:
January 30, 2020
sp_UserOfflineSmall Offline
3
January 30, 2020 - 2:32 pm
sp_Permalink sp_Print

Thanks Phil,

 

When you open

Password:Betty

Passcode:1111

Hit ALT+F11

 

Under form - frmCreatePickTicket2 --RUN

It will then debug

Userform relates to TAB(Sheet12) CheckOrder. There is no data from ID 7 to 22

need to automatically after running  frmorder userform to completion run Checkorder.

 

Thanks

Avatar
Philip Treacy
Admin
Level 10
Forum Posts: 1518
Member Since:
October 5, 2010
sp_UserOfflineSmall Offline
4
January 30, 2020 - 9:12 pm
sp_Permalink sp_Print

Hi Steve,

If there's nothing in the list you'll get this error.  To check if there's nothing in the list you'll need to do something like 

   If lstLookup6.ListCount = 0 Then

      'List is empty

   Else

      'List has items

   End if

But, why use ListBoxes?  Why not just use Text Boxes and avoid this hassle?

Regards

Phil

sp_Feed
Go to top
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online: Kim Knox, Bhuwan Devkota
Guest(s) 8
Currently Browsing this Page:
1 Guest(s)
Top Posters:
SunnyKow: 1432
Anders Sehlstedt: 871
Purfleet: 412
Frans Visser: 346
David_Ng: 306
lea cohen: 219
Jessica Stewart: 204
A.Maurizio: 202
Aye Mu: 201
jaryszek: 183
Newest Members:
Bhuwan Devkota
Kathryn Patton
Maria Conatser
Jefferson Granemann
Glen Coulthard
Nikki Fox
Rachele Dickie
Raj Mattoo
Mark Luke
terimeri dooriyan
Forum Stats:
Groups: 3
Forums: 24
Topics: 6221
Posts: 27285

 

Member Stats:
Guest Posters: 49
Members: 31909
Moderators: 3
Admins: 4
Administrators: Mynda Treacy, Philip Treacy, Catalin Bombea, FT
Moderators: MOTH Support, Velouria, Riny van Eekelen
© Simple:Press —sp_Information

Sidebar

Blog Categories

  • Excel
  • Excel Charts
  • Excel Dashboard
  • Excel Formulas
  • Excel PivotTables
  • Excel Shortcuts
  • Excel VBA
  • General Tips
  • Online Training
  • Outlook
  • Power Apps
  • Power Automate
  • Power BI
  • Power Pivot
  • Power Query
microsoft mvp logo
trustpilot excellent rating
Secured by Sucuri Badge
MyOnlineTrainingHub on YouTube Mynda Treacy on Linked In Mynda Treacy on Instagram Mynda Treacy on Twitter Mynda Treacy on Pinterest MyOnlineTrainingHub on Facebook
 

Company

  • About My Online Training Hub
  • Disclosure Statement
  • Frequently Asked Questions
  • Guarantee
  • Privacy Policy
  • Terms & Conditions
  • Testimonials
  • Become an Affiliate

Support

  • Contact
  • Forum
  • Helpdesk - For Technical Issues

Copyright © 2023 · My Online Training Hub · All Rights Reserved. Microsoft and the Microsoft Office logo are trademarks or registered trademarks of Microsoft Corporation in the United States and/or other countries. Product names, logos, brands, and other trademarks featured or referred to within this website are the property of their respective trademark holders.