/

[GUY08347]

hi, i'm on win 7, office 2007

i don't know why but after i show a form (from clicking on a cell in the sheet) i noticed that two lines in the code are not executed.

ADDNew_P_win - is the userform shown (with a listview - LV_clients)

the code is:

                   For i = 1 To ADDNew_P_win.LV_clients.ListItems.Count
                     If ADDNew_P_win.LV_clients.ListItems.Item(i).Text = Sheets("cliList").Range("b" & p).Text And _
                       ADDNew_P_win.LV_clients.ListItems.Item(i).SubItems(1) = Sheets("cliList").Range("c" & p).Text Then
                        ADDNew_P_win.LV_clients.ListItems.Item(i).Selected = True
                        
                            ADDNew_P_win.Lab_selected_client.Caption = Sheets("cliList").Range("l" & p).Value
                            ADDNew_P_win.Lab_selected_client_index.Caption = i
                        Exit For
                     End If
                  Next
                  ADDNew_P_win.LV_clients.ListItems.Item(i).EnsureVisible
                  ADDNew_P_win.LV_clients.SetFocus
                  '--------------------------------------------------------
                 .Height = 333: .Show

the lines are:

                  ADDNew_P_win.LV_clients.ListItems.Item(i).EnsureVisible
                  ADDNew_P_win.LV_clients.SetFocus

everything else works fine.
why does it happen? i can't think of anything...
thanks!.

 

[Joe4]

Duplicated: http://www.mrexcel.com/forum/showthread.php?p=2695548#post2695548

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule #9 here: http://www.mrexcel.com/forum/showthread.php?t=99490).