S
Steve
Hi
I have the following code that creates a list of Months that just happen to
correspond to Tab names in my sheet. This works fine.
However, I have a ListBox1_Click routine that when I select the particular
date it lists all the data from 2 of the columns in that tab.
It all works OK if I have 3 or more lines worth of data (not including
header) but if I only have one line of data, not including header then it
just hangs. When I do a Funtion Break it highlights the "Next" which I guess
means it is stuck in a loop.
I have already had to add the Msg "Month Empty" to stop it throwing an error
then.
Admittidly I did copy this code from somewhere else and tried to adapt it.
Any help would be appreciated.
If EditListBox1.ListIndex <> -1 Then
EditListBox2.Clear
Set sh = Worksheets(EditListBox1.Value)
If sh.Cells(2, 1).Value <> "" Then
Set rng = sh.Range(sh.Cells(2, 1), sh.Cells(2, 1).End(xlDown))
For Each cell In rng
EditListBox2.AddItem cell(1, 1).Value & " " & cell(1, 3).Value
Next
Else
MsgBox "Month is empty"
End If
End If
I have the following code that creates a list of Months that just happen to
correspond to Tab names in my sheet. This works fine.
However, I have a ListBox1_Click routine that when I select the particular
date it lists all the data from 2 of the columns in that tab.
It all works OK if I have 3 or more lines worth of data (not including
header) but if I only have one line of data, not including header then it
just hangs. When I do a Funtion Break it highlights the "Next" which I guess
means it is stuck in a loop.
I have already had to add the Msg "Month Empty" to stop it throwing an error
then.
Admittidly I did copy this code from somewhere else and tried to adapt it.
Any help would be appreciated.
If EditListBox1.ListIndex <> -1 Then
EditListBox2.Clear
Set sh = Worksheets(EditListBox1.Value)
If sh.Cells(2, 1).Value <> "" Then
Set rng = sh.Range(sh.Cells(2, 1), sh.Cells(2, 1).End(xlDown))
For Each cell In rng
EditListBox2.AddItem cell(1, 1).Value & " " & cell(1, 3).Value
Next
Else
MsgBox "Month is empty"
End If
End If