Find current week number from 2 different listboxes

[danbates]

Hi,

I had a listbox (ListBox1) with all 52 weeks of the year in and @Fluff very kindly supplied me with this code that worked perfectly for me:

Me.ListBox1.Selected(Application.WeekNum(Date) - 1) = True

But because the listbox was so long I have decided to use 2 listboxes (ListBox1, ListBox2) with 26 weeks in each.

So how can I alter the code so it can search through both lostboxes?

Any help would be appreciated.

Thanks

Dan

 

[Fluff]

How about

   i = Application.WeekNum(Date)
   If i <= 26 Then
      Me.ListBox1.Selected(i - 1) = True
   Else
      Me.ListBox2.Selected(i - 27) = True
   End If

 

[danbates]

Perfect again Fluff, Thank you.

 

[Fluff]

Glad to help & thanks for the feedback

 

[danbates]

Hi Fluff,

Your code is working still but what I have noticed is when the form is opened the current week number is highlighted in blue but week 1 has an outline around it. When I click on a different number the outline moves.

Is there a way to have the current week number highlighted and with the outline?

Thanks again for your help.

Dan

 

[Fluff]

That sounds like ListBox1 has focus. If you make another control have the focus (change tab stop to zero in the properties) then you won't have that outline.

 

[danbates]

Yeah that's sorted it. Thank you.

 

[Fluff]

My pleasure