Moet ik mijn blad aanpassen?

[snb]

Ik weet niet welke code je nu gebruikt, maar de gegevens moeten natuurlijk nog wel steeds uit de combobox komen.

 

[Jack Nouws]

Ik weet niet welke code je nu gebruikt, maar de gegevens moeten natuurlijk nog wel steeds uit de combobox komen.

Ik gebruik nu dit stukje code, en hierbij bij worden alleen de celnamen in het werkblad geplaatst.
En wanneer ik de rest er achter plaats dan verschijnt er niets!

Private Sub CmdOK_Click()
   If CboBonnr.ListIndex > -1 Then
    With Workbooks("Fustbon.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")) = j
      Next
    End With
  End If
    Unload Me
End Sub

 

[Jack Nouws]

Ik gebruik wel Excel 2007, misschien dat het daar aan ligt!

Met vr gr
Jack

 

[Wigi]

Private Sub CmdOK_Click()
   If CboBonnr.ListIndex > -1 Then
    With Workbooks("Fustbon.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")).Value = [B]CboBonnr.List(CboBonnr.ListIndex, j)[/B]
      Next
    End With
  End If
    Unload Me
End Sub

Wigi

 

[Jack Nouws]

Private Sub CmdOK_Click()
   If CboBonnr.ListIndex > -1 Then
    With Workbooks("Fustbon.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")).Value = [B]CboBonnr.List(CboBonnr.ListIndex, j)[/B]
      Next
    End With
  End If
    Unload Me
End Sub

Wigi

OK het werkt naar behoren en ik heb het op deze manier gedaan.

Private Sub UserForm_Initialize()
 CboBonnr.RowSource = Workbooks("Green Trees").Worksheets("Fust").Range("A4:Z" & Workbooks("Green Trees").Worksheets("Fust").Range("A65536").End(xlUp).Row).Address(External:=True)
End Sub

Private Sub CmdOK_Click()
   If CboBonnr.ListIndex > -1 Then
    With Workbooks("Fustbon.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", "L27", "O27", _
                       "D13", "D14", "D15", "G15", "D16", _
                       "E16")) = CboBonnr.List(CboBonnr.ListIndex, j - 1)
      Next
    End With
  End If
    Hide
End Sub

Met vr gr
Jack:thumb:

 

[Wigi]

En wat wil je nu met al die quotes zeggen?

Je weet toch dat ik in die laatste "oplossing" enkel code hebt geplakt (het stuk in het vet) dat al in eerdere posts in deze topic stond?

 

[trucker10]

Ik gebruik wel Excel 2007, misschien dat het daar aan ligt!

Met vr gr
Jack

Ik heb de optie 2003 of 2007 maakt geen verschil uit , bij mij werkt het in de twee .
Heb het wel opgeslagen als fustbon en niet als Ctest(1) zoals ik een bepaalde code van jouw terug te vinden was .

 

[Jack Nouws]

En wat wil je nu met al die quotes zeggen?

Je weet toch dat ik in die laatste "oplossing" enkel code hebt geplakt (het stuk in het vet) dat al in eerdere posts in deze topic stond?

Weet ik wel maar ik zat fout met Private Sub UserForm_Initialize() omdat ik tussen 2 bestanden (mappen) werk was het wel wat lastig om de juiste code ervoor te vinden en ik kwam er pas laat achter dat het niet in Private Sub CmdOK_Click() zat. Sorry voor m'n onkunde)
Met vr gr Jack

 

[Jack Nouws]

Ik heb de optie 2003 of 2007 maakt geen verschil uit , bij mij werkt het in de twee .
Heb het wel opgeslagen als fustbon en niet als Ctest(1) zoals ik een bepaalde code van jouw terug te vinden was .

Ok bedankt trucker10,
het werkt allemaal naar tevredenheid:thumb:
Bedankt voor je inzet:thumb:

met vr gr
Jack