harrybrinkman
Gebruiker
- Lid geworden
- 7 nov 2019
- Berichten
- 95
Toppers,
Ik heb een werkblad "Totalen" en daarop komen middels formules de totalen van een planning te staan op basis van een teamnaam. Dus zodra ik de teamnaam wijzig zoekt ie de totalen van dat team. Ik heb 28 teams. Nu maak ik een exportbestand (=platte tekst, zonder opmaak en zonder formules) om te delen met een collega die met die cijfers aan de gang gaat. Nu heb ik daarvoor met mijn zeer beperkte VBA kennis een module gemaakt die bovenstaande handeling 28 keer uitvoert en dit keurig onder elkaar zet op een Exportblad.
Wat ie doet is teamnaam 1 invullen op het tabblad "Totalen" (B6), deze toont vervolgens de totalen (C7:NP11) en kopieert/plakt deze als waarden op het exportblad (C3:NP7). Vervolgens vult ie teamnaam 2 in en kopieert dit naar exportblad (C9:NP13) etc.etc. Dit doet ie 28 keer achter elkaar.
Ik vroeg me af of dit ook korter kan worden geprogrammeerd? Dus ipv. 28 keer code, iets wat zichzelf 28 keer herhaalt? Ik gebruik de volgende code:
Ik heb een werkblad "Totalen" en daarop komen middels formules de totalen van een planning te staan op basis van een teamnaam. Dus zodra ik de teamnaam wijzig zoekt ie de totalen van dat team. Ik heb 28 teams. Nu maak ik een exportbestand (=platte tekst, zonder opmaak en zonder formules) om te delen met een collega die met die cijfers aan de gang gaat. Nu heb ik daarvoor met mijn zeer beperkte VBA kennis een module gemaakt die bovenstaande handeling 28 keer uitvoert en dit keurig onder elkaar zet op een Exportblad.
Wat ie doet is teamnaam 1 invullen op het tabblad "Totalen" (B6), deze toont vervolgens de totalen (C7:NP11) en kopieert/plakt deze als waarden op het exportblad (C3:NP7). Vervolgens vult ie teamnaam 2 in en kopieert dit naar exportblad (C9:NP13) etc.etc. Dit doet ie 28 keer achter elkaar.
Ik vroeg me af of dit ook korter kan worden geprogrammeerd? Dus ipv. 28 keer code, iets wat zichzelf 28 keer herhaalt? Ik gebruik de volgende code:
Code:
Sheets("Totalen").Range("B6").Value = Sheets("Definities").Range("C1").Value
Sheets("Totalen").Select
Range("C7:NP11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Export").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Totalen").Range("B6").Value = Sheets("Definities").Range("C2").Value
Sheets("Totalen").Select
Range("C7:NP11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Export").Select
Range("C9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Totalen").Range("B6").Value = Sheets("Definities").Range("C3").Value
Sheets("Totalen").Select
Range("C7:NP11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Export").Select
Range("C15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
etc.etc.etc