hoe kan ik de formules in 1 rij bv. van sheet 1 naar sheet 2 kopiëren aub. Anders moet ik 500 pagina's afzonderlijk intypen

Je kunt bv. via WeTransfer je file uploaden en een link aanmaken die je hier kunt plaatsen. Dan is je bestand te downloaden. Voor het geval je niet precies weet hoe dat werkt, leg ik het even uit.

Ga naar de website wetransfer.com

• Klik rechts van de witte rechthoek op "Ik ga akkoord" en daarna in de witte rechthoek op dezelfde tekst.
• Klik linksboven in de witte rechthoek op het plusteken, er worden dan enkele bestanden op je pc getoond, staat daar het bestand dat je wil uploaden niet bij, klik dan op "Alle bestanden tonen", selecteer in Windows Verkenner je bestand en klik op "Openen". De naam van je bestand verschijnt dan bovenaan in de witte rechthoek.
• Klik links-onderaan in de witte rechthoek op de drie puntjes en duid aan: "Transferlink ophalen".
• Klik dan op "Creëer mijn link", er gaat dan een teller lopen van 1 - 100%.
• Klik na afloop 1 x op "Kopieer link" (je ziet dan niets gebeuren, maar de link is naar het geheugen van de computer gekopieerd).
• Start hier een bericht, klik op de rechtermuisknop en kies "Plakken".

Naast WeTransfer kun je ook OneDrive, DropBox of een andere clouddienst gebruiken om je bestand aan anderen ter beschikking te stellen.

Hallo aalpha,

Sorry, voor de late reactie, maar heb ne dag of 2 in mijn bed gezeten. Ik heb dit geprobeerd en nu zegt hij dat dit niet gaat met samengevoegde cellen. Die macro’s zijn voor mij een stapte erover🥴 en ook heb ik het voorbeeld aangebracht voor 1 cel, maar eigenlijk zijn het er 10 naast elkaar. Kan ik eventueel mijn file eens tonen? Dit zal het gemakkelijkste zijn, denk ik.

Beste Stevie,

We hebben het hier wel vaker genoemd, het is voor een vraagsteller niet altijd eenvoudig om kort en bondig de vraag te formuleren.

Jouw vraag is eenvoudig: hoe kan ik een vaste cel uit 500 tabbladen overbrengen naar het tabblad mengselcatogus, te beginnen in A1 en vervolgens A2, enz.

En niet zoals jij zegt tabblad 1 met de naam bv. 1. Nee, de naam van tabblad 1 is 1.

Mijn vraag aan jou is: heb je naar mijn antwoord gekeken? En dan bedoel ik ook echt gekeken en natuurlijk ook uitgeprobeerd.

Groet,

Bocculus

Een snelle manier om de gegevens vanuit de verschillende bladen te kopiëren is met een korte macro, die je met een klik op een knop dat in enkele seconden kunt laten uitvoeren. (alhoewel het met formules ook zou kunen). Doe het volgende:

1. Klik links-onderaan met de rechtermuisknop op de naam van het eerste blad en kies in het verschijnende menu: Programmcode weergeven. Je komt dan in de vba-editor.
2. Kies daar in het menu: Invoegen - Module.
3. Kopieer onderstaande macro en plak die in de vba-module aan de rechterkant.
4. Sluit het vba-venster door op het kruisje rechtsboven te klikken, je komt dan terug in het werkblad.
5. Kijk of in Excel boven het lint de tab Ontwikkelaars zichtbaar is. Indien wél, ga dan verder met het volgende punt. Indien niet, kies dan in het menu van Excel: Bestand - Opties, klik in de linkerkolom op Lint aanpassen, en vink in de meest rechtse kolom aan: Ontwikkelaars. Klik dan onderaan in het venster op Ok. Je bent terug in het werkblad.
6. Klik boven het lint op Ontwikkelaars, daarna in het lint op Invoegen, en klik onder de kop "Formulierbesturingselementen" op de eerste knop (die heeft de naam: Knop (Formulierbesturingselement), die naam zie je verschijnen als je de knop aanwijst).
7. De cursor is nu veranderd in een plusteken, waarmee je met ingedrukte linkermuisknop een vierkant op rechthoek kunt tekenen in het werkblad. Zodra je de linkermuisknop loslaat, zal er een venster verschijnen waarin je op de naam van de macro ("Kopieer") moet klikken, en daarna op Ok.
8. Klik daarna nog 1x op een willekeurige cel naast de knop.
9. Klik 1x op de knop met de linkermuisknop en in no time zul je in het eerste blad de gewenste info zien verschijnen. In kolom B heb ik ook nog de namen van de bladen laten toevoegen. Als je dat niet wil, verwijder dan in de macro deze regel: Sheets(1).Range("b" & x - 1).Value = Sheets(x).Name .

Als je in plaats van A1 een andere cel wil kopiëren, wijzig dan in de vijfde regel "A1" in de naam van die andere cel. Succes ermee; laat aub even weten of het is gelukt.

Sub Kopieer() 

Dim x As Integer 

Sheets(1).Columns("a:b").ClearContents 

For x = 2 To Sheets.Count 

Sheets(x).Range("A1").Copy Sheets(1).Range("a" & x - 1) 

Sheets(1).Range("b" & x - 1).Value = Sheets(x).Name 

Next x 

End Sub

Hoi,

Laat ons zo stellen mengselcatalogus dient als samenvatting van alle andere bladen. Dit is het eerste tabblad met de naam mengselcatalogus. Dan volgt tabblad 1 met de naam bv. 1. Dus in cel A1 van het tabblad mengselcatogus moet de inhoud van cel A1 van tabblad1 komen. In cel A2 van mengselcatalogus komt dan de inhoud van cel A1 van tabblad 2 en zo totdat in cel A500 van mengselcatalogus het de inhoud staat van cel A1 van tabblad 500.

Dit kan je 1 per 1 doen, maar de bedoeling zou zijn om dit in 1 beweging te doen.