daily pastebin goal
44%
SHARE
TWEET

Untitled

a guest Aug 18th, 2018 63 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Populating a list box with data from worksheet
  2. Type Mismatch
  3.    
  4. With Worksheets(CourseSelection).Range("A3")
  5.     Set TaskList = Range(.Offset(0, 1), .End(xlToRight))
  6. End With
  7.  
  8. frmTaskSelection.lbTasks.RowSource = TaskList
  9.    
  10. Sub test()
  11.     Dim ws As Worksheet
  12.     Dim rng1 As Range
  13.     Set ws = Worksheets("CourseSelection")
  14.     Set rng1 = ws.Range(ws.[a3], ws.Cells(Rows.Count, "A").End(xlUp))
  15.     frmTaskSelection.lbTasks.RowSource = "'" & ws.Name & "'!" & rng1.Address
  16.     frmTaskSelection.Show
  17. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top