Rijen overnemen op een ander tabblad met behoud van opmaak.

[HyperXnl]

Goedemiddag leden,

Ik ben bezig om te kijken of het mogelijk is om waardes van een tabblad over te nemen naar een ander tabblad.
Alleen kom ik er niet helemaal meer uit.

Wat ik voor ogen heb:

In het voorbeeld heb je twee opname bladen, Aardappel A-J en Aardappel 1-10. (deze bladen worden nog verder uitgebreid tot een blad of 20, maar twee moet voor nu even genoeg zijn denk ik)

Op het moment dat ik een waarde hoger als 0 invoer bij aantal op het blad Aardappel A-J en Aardappel 1-10, dat deze waardes dan overgenomen worden naar het tabblad Order Totaal. waarbij dan elke keer de waarde vanaf rij 6 ingevoerd moet worden. met behoudt van regel 7 (dat deze zeg maar mee naar beneden verplaatst.)

Is dit mogelijk en zo ja hoe? en hoe kan ik als er een formule voor is deze toepassen bij uitbreiding naar meerdere bladen?

Ik hoor graag van jullie.


Mvgr. Michael

 

[popipipo]

Persoonlijk zou ik de boel omkeren.
Alles in tabblad totaal invoeren en dan via een draaitabel de andere tabbladen creëren.

 

[HyperXnl]

Voor de formule zou dat makkelijker zijn want dan kan je uit de voeten met vert. zoeken.

Alleen als ik bij een klant ben en die heeft enkel aardappelen nodig is het makkelijk om enkel bijv. het tabblad aardappelen te openen dan een hele lijst af te gaan.

Althans dat is mijn gedachte erachter.

 

[Haije]

Michael,

kun je eens een bestand plaatsen met ingevulde fake gegevens?

 

[HyperXnl]

@Haije, deze staat in de eerste post? Moet enkel de aantallen dan erbij zetten.

 

[VenA]

Met een macro is het wel te doen.

Sub VenA()
  Set d = CreateObject("Scripting.Dictionary")
  For Each sh In Sheets
    If sh.Name <> "Order totaal" Then
      ar = sh.Cells(1).CurrentRegion
      For j = 2 To UBound(ar)
        If ar(j, 1) <> "" Then d(ar(j, 2)) = Array(ar(j, 2), ar(j, 3), ar(j, 1))
      Next j
    End If
  Next sh
  
  With Sheets("Order totaal").ListObjects(1)
    If .ListRows.Count Then .DataBodyRange.Delete
    .ShowTotals = False
    If d.Count Then .ListRows.Add.Range.Resize(d.Count, 3) = Application.Index(d.items, 0, 0)
    .ShowTotals = True
    .TotalsRowRange = Array("", "Totaal")
    .ListColumns(3).TotalsCalculation = xlTotalsCalculationSum
  End With
End Sub

Vul wat aantallen in en klik vervolgens op de tab 'Order totaal'

 

[HyperXnl]

Beste VenA,

Dit is idd, waar ik naar opzoek ben top.
Hoe gaat het/ wat moet ik aanpassen als ik meerdere tabbladen wil toevoegen?
Zodat deze ook meegenomen worden in de totaal order?


Thanks so far

 

[VenA]

Niets.

 

[HyperXnl]

Yes,

Helemaal top en duidelijk.

Ik zie wel dat hij waarschijnlijk kijkt naar het PLU nummer.
Op het moment dat ik twee keer hetzelfde PLU nummer heb op twee verschillende bladen, pakt hij hem maar 1 keer
Zie ook bijlage.
Wat ik graag zou zien is dat hij hem dan ook gewoon twee keer laat zien. Is dit nog aan te passen.

 

[VenA]

Lijkt mij wel. Doe maar een poging dan zien we wel waar je tegenaan loopt. Ik weet niet wie PLU is maar een uniek artikelnummer lijkt mij handiger.

 

[HyperXnl]

Yes, ik er even mee stoeien mocht ik er niet meer uitkomen dan laat ik het horen.
Thanks voor de support so far :thumb: