ListIndex probleem

[Jack Nouws]

Hallo kenners

Ik wil met behulp van een UserForm gegevens van het ene bestand naar het andere bestand te kopieeren. In het ene bestand waar de gegevens staan, staan de benodigde gegevens netjes op 1 rij. Deze gegevens wil ik oproepen met het Bonnr in kolom A.
Daarna moeten deze gegevens in het andere bestand geplaatst worden maar de plaats is kortweg gezegd kris-kras over het blad verdeeld. En als ik de procedure uitvoer gebeurd er helemaal niets. Ik heb een verkorte bijlage toegevoegd.


Met vr gr
Jack

 

[snb]

Het zou al bijzonder helpen als je in de combobox alle gegevens laadt die je uit wil lezen:

Private Sub UserForm_Initialize()
    CboBonnr.RowSource = [COLOR="red"]Sheets("Fust").[/COLOR]Range("[COLOR="Red"]A4:Z5[/COLOR]").Address
End Sub

De ondergrens van combobox.list is combobox.list(0,0)
En de gegevens zijn nog iets meer kris kras dan uit jouw code blijkt: niet alles komt op de juiste plaats te staan.

Private Sub CmdOK_Click()
   If CboBonnr.ListIndex > -1 Then
    With Workbooks("Ctest.xls").Sheets("Bon")
      For j = 1 To 26
      .Range(Choose(j, "N14", "N13", "L19", "O19", "L20", "O20", "L21", "O21", "L22", "O22", "L23", "O23", "L24", "O24", "L25", "O25", "L26", "O26", "D13", "D14", "D15", "G15", "D16", "E16", "L27", "O27")) = CboBonnr.List(CboBonnr.ListIndex, [COLOR="red"]j - 1[/COLOR])
      Next
    End With
  End If
    [COLOR="red"]Hide[/COLOR]
End Sub

 

[huijb]

Het is onnodig om je vraag twee keer te plaatsen. Je mag hier verder http://www.helpmij.nl/forum/showthread.php?t=396574