loop not getting me there

[kelly mort]

I used this code for my listbox click event. When it sends data to the textboxes, it places the data in the first column in Reg2 instead of Reg1. How do i get my data in place????

Private Sub lstWin_Click()
Dim n As Integer, ac As Integer

With lstWin
       For n = 0 To .ListCount - 1
              If .Selected(n) Then 
                       For ac = 0 To .ColumnCount - 1
                                Me.Controls("Reg" & ac + 1).Value = .List(n, ac - 1)
                      Next ac
            End If
      Next n
End With
End Sub

Thanks in advance

 

[MrIfOnly]

Hi!

This will get you there:

Private Sub lstWin_Click()
Dim n As Integer, ac As Integer
With lstWin
       For n = 0 To .ListCount - 1
              If .Selected(n) Then
                       For ac = 1 To .ColumnCount
                                Me.Controls("Reg" & ac).Value = .List(n, ac - 1)
                      Next ac
            End If
      Next n
End With
End Sub

But this will get you there faster :

Private Sub lstWin_Click()
Dim ac As Integer
With lstWin
    For ac = 1 To .ColumnCount
        .TextColumn = ac
        Me.Controls("Reg" & ac).Value = .Text
    Next ac
End With
End Sub

Regards,

CJ

 

[kelly mort]

Wow!!!!!! I am there indeed.
Thanks very much.

 

[MrIfOnly]

You are very welcome!

 

[kelly mort]

You are very welcome!

It was very fast