VBA - Formule plakken in bereik - Maar negeren subtotalen

[gjanus]

Hallo,

Ik heb een forecast tabblad die met een zoek formule gegevens ophaalt uit tabblad actuals. (zie index formule op eerste regel met een naam)


Ik zou graag deze formule plakken in het bereik (d4 tm i10) maar de regels met subtotalen moet hij laten staan/negeren.


Is dit mogelijk met VBA?


PS werken met draaitabellen is niet mogelijk.

 

[JeanPaul28]

Met vba

 

[JEC.]

Ook een optie:

Sub jvr()
 With Sheets(2)
   For i = 6 To Sheets(1).Cells(Rows.Count, 3).End(xlUp).Row
      x = Application.Match(Sheets(1).Cells(i, 3), .Range("C3:C6"), 0)
      y = Application.Index(.Range("D3:I6"), x, [transpose(row(1:6))])
      If IsNumeric(x) Then Sheets(1).Cells(i, 4).Resize(, 6) = y
   Next
 End With
End Sub

 

[HSV]

https://www.helpmij.nl/forum/showth...akken-in-bereik-negeren-regels-met-subtotalen

 

[cow18]

nog eenvoudiger, gewoon kopieren en subtotalen er op toepassen.
Misschien moet je vooraf sorteren op groep en op naam ???

Heb vorig draadje niet gevolgd, maar waarom zou een draaitabel niet werken ?

 

[gjanus]

Top voor de opties, precies wat ik bedoel.

nog eenvoudiger, gewoon kopieren en subtotalen er op toepassen.
Misschien moet je vooraf sorteren op groep en op naam ???

Heb vorig draadje niet gevolgd, maar waarom zou een draaitabel niet werken ?

Werkelijk bestand:
We kijken naar de staff planning. Stel heden:
De kolommen vullen zich met dump (eigenlijk query) de actuals tm week 23.
vanaf week 24 staat daar nog de forecast.
Als forecast gewijzigd moet worden gebeurd dat handmatig.
Met knop opslaan (vba) word er een importeerbaar csv tje van gemaakt dat in ons systeem ingelezen kan worden.
Systeem sluit weer aan met nieuwe forecast

De nieuwe forecast moet dus handmatig aangepast kunnen worden, dat gaat lastiger met draaitabellen.