linking 2 listboxes together so they sync

[Patriot2879]

hi just wondering if it is possible to sync 2 listboxes together in code, as i have 14 columns and listboxes only can list 10 please see below the code i have at moment

Private Sub ListBox1_AfterUpdate()
   Me.TextBox1.Value = Me.ListBox1.Column(0)
    Me.TextBox2.Value = Me.ListBox1.Column(1)
     Me.TextBox3.Value = Me.ListBox1.Column(2)
     Me.TextBox4.Value = Me.ListBox1.Column(3)
     Me.TextBox5.Value = Me.ListBox1.Column(4)
     Me.TextBox6.Value = Me.ListBox1.Column(5)
     Me.TextBox7.Value = Me.ListBox1.Column(6)
 End Sub

Private Sub ListBox2_AfterUpdate()
   Me.TextBox8.Value = Me.ListBox2.Column(0)
    Me.TextBox9.Value = Me.ListBox2.Column(1)
     Me.TextBox10.Value = Me.ListBox2.Column(2)
     Me.TextBox11.Value = Me.ListBox2.Column(3)
     Me.TextBox12.Value = Me.ListBox2.Column(4)
     Me.TextBox13.Value = Me.ListBox2.Column(5)
     Me.TextBox14.Value = Me.ListBox2.Column(6)
 End Sub

 

[Patriot2879]

hi just wondering if it is possible to sync 2 listboxes together in code, as i have 14 columns and listboxes only can list 10 please see below the code i have at moment

Private Sub ListBox1_AfterUpdate()
   Me.TextBox1.Value = Me.ListBox1.Column(0)
    Me.TextBox2.Value = Me.ListBox1.Column(1)
     Me.TextBox3.Value = Me.ListBox1.Column(2)
     Me.TextBox4.Value = Me.ListBox1.Column(3)
     Me.TextBox5.Value = Me.ListBox1.Column(4)
     Me.TextBox6.Value = Me.ListBox1.Column(5)
     Me.TextBox7.Value = Me.ListBox1.Column(6)
End Sub

Private Sub ListBox2_AfterUpdate()
   Me.TextBox8.Value = Me.ListBox2.Column(0)
    Me.TextBox9.Value = Me.ListBox2.Column(1)
     Me.TextBox10.Value = Me.ListBox2.Column(2)
     Me.TextBox11.Value = Me.ListBox2.Column(3)
     Me.TextBox12.Value = Me.ListBox2.Column(4)
     Me.TextBox13.Value = Me.ListBox2.Column(5)
     Me.TextBox14.Value = Me.ListBox2.Column(6)
End Sub

I have put in a spin code with the code below but still not linking up together

Private Sub SpinButton1_Change()
If ScrollBar1.Value <= ListBox1.ListCount - 1 Then
    ListBox1.ListIndex = ScrollBar1.Value
    ListBox2.ListIndex = ScrollBar1.Value
End If
End Sub

 

[Patriot2879]

i think i have them syncing together as they do move inline with each other now but but my data in listbox2 is not going into textbox10, my data in listbox1 is going into the corrrect textboxes.

Private Sub ListBox2_AfterUpdate()
ListBox1.ListIndex = ListBox2.ListIndex
Me.TextBox10.Value = Me.ListBox2.Column(0)
End Sub

 

[NoSparks]

as i have 14 columns and listboxes only can list 10

Using listbox1.list = WhatEverRange.Value you can have more than that.
This site may be of interest to you.

 

[Patriot2879]

thank you i shall look at that