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

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.

@Stevie, in mijn vorig bericht vroeg ik ook wélke rij in elk werkblad gekopieerd moet worden.

Is dat de laatste rij of staat er in elk blad (behalve het eerste) slechts 1 rij?

En is het blad "Mengselcatalogus"het eerste blad?

En moer er van ALLE bladen na het eerste gekopieerd worden?

Hallo,

Zoals in het voorbeeld hogerop waar ik die printscreens heb geplakt.

Als er in tabblad 1 cel B1 iets bevat dan moet die waarde bij het tabblad mengselcatalogus op de eerste rij staan,

Hetzelfde bij rij 2 tabblad 2. En zo tot 500.

Ik kan het eigenlijk eenvoudiger uitleggen.

Cel A1. Moet bij het tabblad mengselcatalogus op cel A1 komen. Normaal kun je dit nu doortrekken naar beneden, maar wanneer je ‘1’ doortrekt blijft het ‘1’ en het zou twee moeten worden.