Probleem: Bestanden wegschrijven van 1 tabblad naar een ander in Excel

[RickvH]

Goede morgen,

Ik heb al een tijdje rond gekeken op het forum en ik ben maar bij 1 dingen gekomen dat hierbij in de buurt komt, alleen kwam ik er niet uit. (http://www.helpmij.nl/forum/showthread.php?t=279048)

Nu is mijn vraag de volgende:

Ik heb in Excel een invoerscherm gemaakt waar een aantal controle waarde bijstaan.
Vroeger voerde de mensen op het bedrijf hier het invoerscherm in, en vervolgens schreven ze de controlewaarden op papier.
Dit is een achterhaalde methode, aangezien ik het nu zo wil maken dat de waarde in een appart tablad worden aangegeven met een harde waarde, dus zonder formule.

Ik heb het bestand bijgevoegd, en nu is het de bedoeling dat ik het positienummer in kan geven, en dat de gegevens van het invoerscherm en de controlewaarden vervolgens worden weggeschreven als harde waarde naar het tabblad Totaalweergave.

Ik zit hier al een tijdje mee, en ik heb het gevoel dat het met macros mogelijk is, alleen heb ik daar totaal geen verstand van.

Ik hoop dat iemand me op weg kan helpen.
Als er nog vragen zijn dan hoor ik het graag, Ik wist niet hoe ik het anders uit kon leggen.

Alvast bedankt,

M.v.g. Rick

 

[RickvH]

Ik ben al een klein beetje verder.

Ik heb nu een soort van copy/paste macro gemaakt die aan een button gekoppeld is.
Alleen nu kopieert hij alles letterlijk, terwijl ik eigenlijk wil dat hij alleen de waarde kopieert.

Dit is de code:

Sub Knop2_BijKlikken()

Worksheets("Aantallen").Range("H4").Select
    Selection.Copy
Worksheets("Totaalweergave").Range("K5").Select
    Selection.Paste


    Application.CutCopyMode = False

End Sub

Dan zou ik ook nog graag het volgende willen.

Als een variabel 2 is, dan moeten de gegevens op een andere locatie geplakt worden dan waneer de variabel bijvoorbeeld 3 is.

Misschien dat iemand me verder kan helpen?

 

[A4A]

Beste Rick,

Om alleen maar de waardes te plakken onderstaande code:

Selection.PasteSpecial (xlPasteValuesAndNumberFormats)
Selection.PasteSpecial (xlPasteValues)

De eerste (xlPasteValuesandNumberFormats) daar worden de uitkomsten geplakt en omgezet naar nummers.
De tweede (xlPasteValues) daar worden alleen de uitkomsten geplakt. Mochten er hier nummers worden geplakt dan krijg je zo'n groen hoekje in de cel en een uitroepteken.

Voor de variabelen kan je dan het beste een if-functie gebruiken:

If Var = 2 Then
    'Hier je code als variabel 2 is
End If
If Var = 3 Then
    'Hier je code als variabel 3 is
End If

De code hierboven zou ik alleen gebruiken als je meer dan 2 variabelwaardes hebt. Anders kan je het makkelijker doen door onderstaande code.

If Var = 2 Then
    'Hier je code als variabel 2 is
Else
    'Hier je code als variabel 3 is
End If

Mocht je nog verdere hulp nodig hebben plaats dan je document wat je tot dusver hebt en met een omschrijving wat je wilt en bijvoorbeeld het blad berekening doet.

Mvg. René

 

[RickvH]

Bedankt voor de informatie,

Ik heb nu de volgende code gebruikt om alles te kopiëren,

Sub Knop2_BijKlikken()

Sheets("Aantallen").Select
Range("C9").Select
Selection.Copy
Sheets("Totaalweergave").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False

End Sub

Dit is de formule voor het verplaatsen van 1 positie, de rest van de code zal ik maar niet plaatsten want dit is bij elke positie hetzelfde alleen de celnummers zijn anders,waarschijnlijk kan het wel korter. En nu zat ik te denken aan het volgende:

Is het mogelijk om een celnummer te verhogen met bijvoorbeeld 1. Dus als ik eerst in de code heb B5, dat ik dan een variabel toevoeg die het volgende doorgeeft.
Als de variabel 1 is dan word B5 -> B6 & als deze 2 is dan word B5 -> B7. Hierdoor zou ik de hele code maar 1x hoeven te gebruiken.

Als ik elke keer de if then formule zou gebruiken dan zou ik voor 50 posities een hele lange formule in moeten vullen. en zo zou ik elke keer de macro moeten aanpassen zodra er ooit meer postities bij zouden komen.

Ik heb het bestand toegevoegd, hierin staat de macro zover dat ik hem heb gekregen. Misschien word het bovenstaande verhaal hierdoor wat duidelijker.

 

[RickvH]

Ik ben weer een stuk verder met de code, gelukkig is hij niet zo lang geworden :

Sub Knop2_BijKlikken()

Sheets("Aantallen").Select
If Range("C14") = 1 Then

Sheets("Aantallen").Select
Range("C9").Copy
Sheets("Totaalweergave").Select
Range("B10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C5").Copy
Sheets("Totaalweergave").Select
Range("D10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C6").Copy
Sheets("Totaalweergave").Select
Range("E10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C7").Copy
Sheets("Totaalweergave").Select
Range("G10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C8").Copy
Sheets("Totaalweergave").Select
Range("H10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F4").Copy
Sheets("Totaalweergave").Select
Range("L10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("N10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F8").Copy
Sheets("Totaalweergave").Select
Range("P10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("H4").Copy
Sheets("Totaalweergave").Select
Range("K10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Berekeningen").Select
Range("E82").Copy
Sheets("Totaalweergave").Select
Range("Q10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Berekeningen").Select
Range("F82").Copy
Sheets("Totaalweergave").Select
Range("R10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F10").Copy
Sheets("Totaalweergave").Select
Range("S10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F11").Copy
Sheets("Totaalweergave").Select
Range("T10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False

Else
Sheets("Aantallen").Select
If Range("C14") = 2 Then

Sheets("Aantallen").Select
Range("C9").Copy
Sheets("Totaalweergave").Select
Range("B11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C5").Copy
Sheets("Totaalweergave").Select
Range("D11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C6").Copy
Sheets("Totaalweergave").Select
Range("E11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C7").Copy
Sheets("Totaalweergave").Select
Range("G11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C8").Copy
Sheets("Totaalweergave").Select
Range("H11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F4").Copy
Sheets("Totaalweergave").Select
Range("L11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("N11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F8").Copy
Sheets("Totaalweergave").Select
Range("P11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("H4").Copy
Sheets("Totaalweergave").Select
Range("K11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Berekeningen").Select
Range("E82").Copy
Sheets("Totaalweergave").Select
Range("Q11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Berekeningen").Select
Range("F82").Copy
Sheets("Totaalweergave").Select
Range("R11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F10").Copy
Sheets("Totaalweergave").Select
Range("S11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F11").Copy
Sheets("Totaalweergave").Select
Range("T11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False

Else
Sheets("Aantallen").Select
If Range("C14") = 3 Then

Sheets("Aantallen").Select
Range("C9").Copy
Sheets("Totaalweergave").Select
Range("B12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C5").Copy
Sheets("Totaalweergave").Select
Range("D12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C6").Copy
Sheets("Totaalweergave").Select
Range("E12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C7").Copy
Sheets("Totaalweergave").Select
Range("G12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C8").Copy
Sheets("Totaalweergave").Select
Range("H12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F4").Copy
Sheets("Totaalweergave").Select
Range("L12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("N12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F8").Copy
Sheets("Totaalweergave").Select
Range("P12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("H4").Copy
Sheets("Totaalweergave").Select
Range("K12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Berekeningen").Select
Range("E82").Copy
Sheets("Totaalweergave").Select
Range("Q12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Berekeningen").Select
Range("F82").Copy
Sheets("Totaalweergave").Select
Range("R12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F10").Copy
Sheets("Totaalweergave").Select
Range("S12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F11").Copy
Sheets("Totaalweergave").Select
Range("T12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False

Else
Sheets("Aantallen").Select
If Range("C14") = 4 Then

Sheets("Aantallen").Select
Range("C9").Copy
Sheets("Totaalweergave").Select
Range("B13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C5").Copy
Sheets("Totaalweergave").Select
Range("D13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C6").Copy
Sheets("Totaalweergave").Select
Range("E13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C7").Copy
Sheets("Totaalweergave").Select
Range("G13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C8").Copy
Sheets("Totaalweergave").Select
Range("H13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F4").Copy
Sheets("Totaalweergave").Select
Range("L13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("N13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F8").Copy
Sheets("Totaalweergave").Select
Range("P13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("H4").Copy
Sheets("Totaalweergave").Select
Range("K13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Berekeningen").Select
Range("E82").Copy
Sheets("Totaalweergave").Select
Range("Q13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Berekeningen").Select
Range("F82").Copy
Sheets("Totaalweergave").Select
Range("R13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F10").Copy
Sheets("Totaalweergave").Select
Range("S13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F11").Copy
Sheets("Totaalweergave").Select
Range("T13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False

Else
Sheets("Aantallen").Select
If Range("C14") = 5 Then

Sheets("Aantallen").Select
Range("C9").Copy
Sheets("Totaalweergave").Select
Range("B14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C5").Copy
Sheets("Totaalweergave").Select
Range("D14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C6").Copy
Sheets("Totaalweergave").Select
Range("E14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C7").Copy
Sheets("Totaalweergave").Select
Range("G14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("C8").Copy
Sheets("Totaalweergave").Select
Range("H14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F4").Copy
Sheets("Totaalweergave").Select
Range("L14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("N14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F8").Copy
Sheets("Totaalweergave").Select
Range("P14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("H4").Copy
Sheets("Totaalweergave").Select
Range("K14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Berekeningen").Select
Range("E82").Copy
Sheets("Totaalweergave").Select
Range("Q14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Berekeningen").Select
Range("F82").Copy
Sheets("Totaalweergave").Select
Range("R14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F10").Copy
Sheets("Totaalweergave").Select
Range("S14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Aantallen").Select
Range("F11").Copy
Sheets("Totaalweergave").Select
Range("T14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False


End If
End If
End If
End If
End If

End Sub

Nu heb ik de uitkomst voor de variabel 1 t/m 5 in de code verwerkt. Ik kan hem nu tot Variabel 50 maken. Het is namelijk elke keer hetzelfde, alleen moet ik de celnummers bij elke positie met 1 verhogen, en moet ik op het eind elke keer een extra End If typen.
Ik zat te denken aan verticaal zoeken etc. omdat ik toch regelnummers naast de celnummers heb. Deze variable is het regelnummer, dus misschien dat er een formule voor is om in het bovenstaande toe te voegen die doorgeeft dat hij op een bepaalde regel moet plakken als er een bepaalde variabel staat.

Misschien dat iemand een verkorte manier weet voor het bovenstaande. Zoniet dan ga ik het alllemaal kopieëren en de celnummers wijzigigen.

Ik zal hier nog even mee wachten

Alvast bedankt,

 

[snb]

Vermijd select en activate in VBA-code
Hoe systematischer je het werkblad opbouwt hoe eenvoudiger de kopieercode.
Ter illustratie

Sub Knop2_BijKlikken()

select case [Aantallen!C14]
Case 1 
  [Aantallen!C9].Copy [Totaalweergave!B10]
  [Aantallen!C5:C8].Copy [Totaalweergave!D10]
  [Aantallen!F4].Copy [Totaalweergave!L10:O10]
  [Aantallen!F8].Copy [Totaalweergave!P10]
  [Aantallen!H4].Copy [Totaalweergave!K10]
  [Berekeningen!E82:F82].Copy [Totaalweergave!Q10]
Case 2
----
Case 3
-----
End select

End sub

 

[RickvH]

Dit is precies wat ik zocht, ik zal kijken of ik het hiermee voor elkaar krijg.
Ik kom er nog op terug.

In ieder geval heel erg bedankt alvast. :thumb:

 

[RickvH]

Nu heb ik het ongeveer zo gedefinieerd:

Sub Knop2_BijKlikken()

Select Case [Aantallen!C14]
Case 1
  [Aantallen!C9].Copy [Totaalweergave!B10]
  [Aantallen!C5].Copy [Totaalweergave!D10]
  [Aantallen!C6].Copy [Totaalweergave!E10]
  [Aantallen!C7].Copy [Totaalweergave!G10]
  [Aantallen!C8].Copy [Totaalweergave!H10]
  [Aantallen!H4].Copy [Totaalweergave!K10]
  [Aantallen!F4].Copy [Totaalweergave!L10:O10]
  [Aantallen!F8].Copy [Totaalweergave!P10]
  [Berekeningen!E82].Copy [Totaalweergave!Q10]
  [Berekeningen!F82].Copy [Totaalweergave!R10]
  [Aantallen!F10].Copy [Totaalweergave!S10]
  [Aantallen!F11].Copy [Totaalweergave!T10]
Case 2

End Select

End Sub

Nu is het probleem dat hij de cellen als formule kopieert, alleen ik zou graag willen dat de waarden alleen worden overgenomen.
Ik heb alleen combinatie proberen te maken met de pastespecial functie alleen ik krijg het niet voor elkaar. Ik zal nog even verder kijken, maar misschien dat iemand weet hoe ik dit voor elkaar kan krijgen.

Alvast bedankt

 

[snb]

Je hebt noch een if noch een select case nodig met:

  [Totaalweergave!B10].offset([Aantallen!C14])=[Aantallen!C9]
  [Totaalweergave!D10:D14].offset([Aantallen!C14])=[Aantallen!C5:C8]
  [Totaalweergave!L10:O10].offset([Aantallen!C14])=[Aantallen!F4]
  [Totaalweergave!P10].offset([Aantallen!C14])=[Aantallen!F8]
  [Totaalweergave!K10].offset([Aantallen!C14])=[Aantallen!H4]
  [Totaalweergave!Q10:R10].offset([Aantallen!C14])=[Berekeningen!E82:F82]

Dit is waarschijnlijk voldoende voor je hele excercitie.

 

[RickvH]

Hartelijk dank,

Dit is de beste oplossing.

Ik heb hem nu ingevoegd en hij werkt perfect.

Bedankt voor al jullie hulp. :thumb:

 

[snb]

Dan kan het nog iets compacter:

  sq=split("B10|D10:D14|L10:O10|P10|K10|Q10:R10","|")
  st=split("C9|C5:C8|F4|F8|H4|E82:F82","|")
  With sheets("Aantallen")
    for j=0 to ubound(sq)
      Sheets("Totaalweergave").Range(sq(j)).offset(.[C14])=.Range(st(j))
    next
  End with

 

[RickvH]

Allemaal bedankt voor de hulp met dit probleem.

Maar nu ben ik verder in het project en ik stuit weer op een ander probleem:
Ik heb al een tijde gezocht naar een antwoord op de volgende vraag maar ik krijg het maar niet gevonden:

Ik heb 3 kolommen waarin cijfers staan.
in Kolom A staan lengtes, in Kolom B staan gewichten & in Kolom C staan Diktes.
Van alle regels waarbij de lengte en de dikte gelijk zijn, moet het gewicht opgeteld worden.

Dus als regel 1 een lengte heeft van 500 en een dikte van 0,8 en een gewicht van 20
en als regel 2 een lengte heeft van 500 en een dikte van 0,8 en een gewicht van 10 dan zou hij die op moeten tellen en een waarde van 30 moeten geven in een cel.
Nu zijn er nog meer lengtes etc. dus als nu bv. regel 3 400 lang en 0,6 dik was dan zou het gewicht van deze weer bij zijn soortgenoten opgeteld moeten worden.

Ik denk dat het zo wel duidelijk is, maar ik heb voor de zekerheid een voorbeeld bestand bijgevoegd.

Ik heb het al geprobeert met de som.als functie en ik heb me redelijk uitgeleeft met deze site: Microsoft Support maar niets lijkt te helpen.

Dus ik dacht misshien kan hier iemand me verder helpen.

Alvast bedankt,
M.v.g. Rick.