de cellen en comboboxen selecteren en kopieren naar ander bestand.

[markwat]

Ik zou graag willen dat deze cellen en boxen gekopieerd worden naar een bestand wat hij eerst opent en daarna in de zelfde cellen en boxen weer plaatst.
Het nieuwe bestand staat in C:\Dropbox\documenten\2016\offerte sjabloon 1_1.xlsm

deze samen voegen zodat ik 1 knop kan bedienen.
dus nieuwe bestand openen,
de cellen en boxen kopiëren en plaatsen in de zelfde cellen en boxen als waar ze uit kwamen.

Sub Workbook_Open()
Workbooks.Open Filename:="C:\Dropbox\documenten\2016\offerte sjabloon 1_1.xlsm"
End Sub

Sub AlleCellenkopieëren()


Sheets("InvoerSheet").Range("I14").Select ??
Sheets("InvoerSheet").Range("G17:G21").Select ??
Sheets("InvoerSheet").Range("P14").Select
Sheets("InvoerSheet").Range("H36:H39").Select
Sheets("InvoerSheet").Range("J36:J38").Select
Sheets("InvoerSheet").Range("I18:I20").Select
Sheets("InvoerSheet").Range("A41:A110").Select

Dim i As Integer
For i = 1 To 70
ActiveSheet.OLEObjects("ComboBox" & i).Object.Select
Next i
End Sub

Het laatste gedeelte is gekopieerd van een macro alle cellen en boxen legen.
ik heb een afbeelding van de sjabloon erbij gedaan.
dit ivm grote en prive doc.
evt toe temailen.
Bekijk bijlage 279187

 

[VenA]

Plaats de 2 bestanden even. Zowel de grootte als de priveinfo zijn natuurlijk vrij eenvoudig aan te passen.

 

[markwat]

Nee het is niet mogelijk om alles eruit te halen sorry
Maar het is voor u/jullie denk ik heel simpel.
ik open een bestand met gegevens waarvan ik al deze cellen (C12,B15:B34,A41:A110,G17:G21,H18:H20,H36:H39,H41:H110,I14) gekopieerd wil hebben.
vervolgens moet het tweede bestand geopend worden (Workbooks.Open Filename:="C:\Dropbox\documenten\offerte sjabloon 1_1.xlsm")
En daarin moeten dan de cellen (C12,B15:B34,A41:A110,G17:G21,H18:H20,H36:H39,H41:H110,I14) geplakt worden maar alleen de waarde ervan.
ik was eerst met de comboboxen bezig maar de cel heeft de zelfde waarde.
Beide bladen heten "InvoerSheet"
het mag een vba of macro zijn.
ik hoop dat het gaat

 

[HSV]

Bv.

Sub hsv()
Dim area As Range
Workbooks.Open ([COLOR=#3E3E3E]"C:\Dropbox\documenten\offerte sjabloon 1_1.xlsm")[/COLOR]
 For Each area In ThisWorkbook.Sheets("invoersheet").Range("C12,B15:B34,A41:A110,G17:G21,H18:H20,H36:H39,H41:H110,I14").Areas
   ActiveWorkbook.Sheets("invoersheet").Range(area.Address) = area.Value
 Next area
End Sub

 

[markwat]

Heel hartelijk dank Harry,

Ik wil toch graag 1 wijziging omdat het toch niet in de ComboBox wordt weer gegeven.
ComboBox 1 tot 50 moeten over gekopieerd worden naar het zelfde bestand.
ik heb juist toen alle comboboxen op een volgend gehouden.
Alle cellen begrijp ik nu en kan ik zelf nu wijzigen maar het gaat er nu alleen nog om dat de ComboBox gevuld word.
alvast bedankt

 

[HSV]

Plaats het bestand eens.
Moeten de comboboxes op dezelfde plaats komen als in het ander bestand.

 

[markwat]

Beste Harry,

Ja dat klopt.

 

[HSV]

Waarom kopieer je het gehele blad niet en wis je wat niet nodig is.

 

[markwat]

Dat is wel het makkelijkste dat klopt, maar ik heb oude offertes en facturen die overgezet moeten worden en dit werkt perfect.
Ook voor in de toekomst wanneer ik weer iets nieuws heb gevonden kan ik dit de tekst weer overzetten met 1 druk op de knop.

 

[markwat]

Beste Harry,

Ik heb de oplossing gevonden.
ik heb van de ComboBox de Linkedcell verwezen naar de cell en nu geeft de ComboBox het wel weer.
Heel hartelijk dank voor uw hulp!

groeten paul m