How to use listbox?

[GeraldDLT]

Hi all,

Please help me filling a listbox with our schedule that will automatically update everyday.
It has 3 columns btw.

Thanks,
Gerald

 

[jindon]

One way

Private Sub UserForm_Initialize()
    Dim myCol As Long, x
    With Sheets("schedule").[b2].CurrentRegion
        myCol = Application.Match(CLng(Date), .Rows(1), 0)
        If IsError(myCol) Then Exit Sub
        x = Filter(.Parent.Evaluate("transpose(if((row(" & .Address & ")>2)*(" & .Columns(myCol).Address & _
                "<>""OFF""),row(1:" & .Rows.Count & "),char(2)))"), Chr(2), 0)
        If UBound(x) > -1 Then
            Me.ListBox1.List = Application.Index(.Value, Application.Transpose(x), Array(1, 2, myCol))
        End If
    End With
End Sub

 

[GeraldDLT]

One way

Private Sub UserForm_Initialize()
    Dim myCol As Long, x
    With Sheets("schedule").[b2].CurrentRegion
        myCol = Application.Match(CLng(Date), .Rows(1), 0)
        If IsError(myCol) Then Exit Sub
        x = Filter(.Parent.Evaluate("transpose(if((row(" & .Address & ")>2)*(" & .Columns(myCol).Address & _
                "<>""OFF""),row(1:" & .Rows.Count & "),char(2)))"), Chr(2), 0)
        If UBound(x) > -1 Then
            Me.ListBox1.List = Application.Index(.Value, Application.Transpose(x), Array(1, 2, myCol))
        End If
    End With
End Sub

You're genius brother!

 

[GeraldDLT]

Hi bro, 1 more prob. i've encounter Run Time Error 13?

 

[GeraldDLT]

Hi jindon, honestly i really don't have idea how you do it but it's not working when i created a new Userform.

 

[GeraldDLT]

Hi jindon, Worry no more.. Prob solved. Thanks again!