ListBox

[sna]

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

[snasui]

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.

[sna]

Hi Dear
I have attached file with code inside

[sna]

I also attached sample file with macro

[snasui]

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

[sna]

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

[sna]

Here is the code

[snasui]

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

[sna]

Thanks