Reeks Comboboxen kopiëren naar ander bestand ComboBoxen nummers blijven identiek.
Zelf denk ik dat ik hem bijna heb maarrrrrr.....
het bestand opent, alleen gaat hij niet verder met kopiëren lijkt het..
Zelf denk ik dat ik hem bijna heb maarrrrrr.....
het bestand opent, alleen gaat hij niet verder met kopiëren lijkt het..
Code:
Private Sub CommandButton3_Click()
Dim area As Range
Workbooks.Open ("C:\Dropbox\documenten\offerte sjabloon 1_1.xlsm") 'map die wordt geopend'
For i = 1 To 91
Sheets("Sheet").OLEObjects("ComboBox" & i).Object.List = ([B]hier begint het probleem[/B]).Sheets("InvoerSheet").OLEObjects("ComboBox" & i).Object.List 'alle boxen moeten gekopieerd worden naar de zelfde boxen als waar ze uitkwamen in het nieuwe bestand'
Next i
For Each area In ThisWorkbook.Sheets("invoersheet").Range("G17:G21,H18:H20,H36:H39,H41:H110,I14").Areas [I]'dit zijn de overige cellen die het volgens mij doen'[/I]
ActiveWorkbook.Sheets("InvoerSheet").Range(area.Address) = area.Value
Next area
End Sub
Laatst bewerkt: