Snasui Excel Forum

Posted: **Wed May 06, 2020 3:50 pm**

Hi Dear All,
I need to ask you VBA expert.
how can we select the columns then those columns will populate on ListBox.
I mean use mouse selecting those columns

I attached the template

Thanks

Posted: **Wed May 06, 2020 6:17 pm**

Sorry for inform you about VBA question, one of the rule of this forum is needed some code from yourself that try to solve this problem and have that code inside your example file.

Posted: **Wed May 06, 2020 9:20 pm**

Hi Dear
I have attached file with code inside

Posted: **Wed May 06, 2020 9:21 pm**

I also attached sample file with macro

Posted: **Wed May 06, 2020 9:53 pm**

Please check your attached file again. I have not found any piece of code.

Posted: **Wed May 06, 2020 10:27 pm**

I need your help to select non contiguous columns with or without inputbox

Posted: **Wed May 06, 2020 10:38 pm**

Here is the code

Posted: **Wed May 06, 2020 11:38 pm**

The example code is below:

Code: Select all

Private Sub UserForm_Activate()
    'On Error Resume Next
    Dim rRange As Range, rList As Range, strRowSource As String
    Set rRange = Application.InputBox(Prompt:="Please Select Range", _
        Title:="Range Select", Type:=8)
    
    With Sheets("Sheet1")
        If .Range("l2") <> "" Then .Range("l2").CurrentRegion.ClearContents
        rRange.Copy .Range("l2")
        Set rList = .Range("l2").CurrentRegion
        strRowSource = .Name & "!" & rList.Address(0, 0)
        Me.ListBox1.RowSource = strRowSource
    End With
End Sub

Posted: **Thu May 07, 2020 6:37 pm**

Thanks

Snasui Excel Forum

ListBox

ListBox

Re: ListBox

Re: ListBox

Re: ListBox

Re: ListBox

Re: ListBox

Re: ListBox

Re: ListBox

Re: ListBox