Draaitabel met extra kolommen

[Georgyboy]

Dag ieder,

Kunnen we een extra kolommen toevoegen naast de draaitabel met een andere opmaak in de cellen?
We maken een Qry uit ons ERP systeem, hier kolommen A:F, Met de waarden in kolom E & F.
Graag willen we 3 kolommen bij zijnde kolom G (geteld aantal stuks), Kolom H is leeg, Kolom i is gewogen).
We wensen dit af te drukken om manueel dit te kunnen noteren in kolom G & I
Dit om te kijken wat het systeem geeft en dan wat er werkelijk is om in ons systeem weer aan te passen naar het werkelijke.

Kan dit met de opmaak in bijlage? , dus telkens er een partij (nummer) in kolom C dan de opmaak in kolom G & I (Onderlijnt) tot einde draaitabel.

Daar de draaitabel uiteraard variabel is zijn de toegevoegde kolommen niet gelijk in rijen en gegevens.

Alvast bedankt!
Groeten, Georges

Locatie	(Alle)
				UIT SYSTEEM		GETELD
Leverancier	Inkp_Artikel	Partij	NaamRek	Stuks	Kg	Stuks		Kg
61680​	8100​	26768637​	VRDBEZUEMRX DFR 20KG	-2,4​	201,4​
	Totaal 8100			-2,4​	201,4​
Totaal 61680				-2,4​	201,4​
61685​	11000​	1687174​	MZRZBNZ C*TBX VZNZF 25KG 06219	0​	0,0​
		1810003​	MZRZBNZ C*TBX VZNZF 25KG 06219	0​	149,9​
		26102214​	MZRZBNZ C*TBX VZNZF 25KG 06219	8​	-47,0​
	Totaal 11000			8​	102,9​
	11500​	26316530​	MZREZBTMBBL GBMODRFRCBBRD	0​	-0,4​
		26736363​	MZREZBTMBBL GBMODRFRCBBRD	10,8​	271,0​
		26779610​	MZREZBTMBBL GBMODRFRCBBRD	20​	500,0​
	Totaal 11500			30,8​	770,6​
	30000​	26663780​	GBTBXTURBBRDB EOJZ 3-5MM	20,8​	332,2​
		26738008​	GBTBXTURBBRDB EOJZ 3-5MM	29​	464,0​
	Totaal 30000			49,8​	796,2​
	44000​	26748998​	WZTBRFRX WHRTB	19,7​	491,3​
	Totaal 44000			19,7​	491,3​
	45000​	26665100​	WZTBRFRX BROWNRNG	1​	13,4​
		26738007​	WZTBRFRX BROWNRNG	1​	25,0​

 

[Haije]

Zet deze eens in de voorwaardelijke opmaak voor G5:G60 en I5:I60:

=EN(LINKS($A5;6)<>"Totaal";LINKS($B5;6)<>"Totaal";$E5<>"")

 

[Georgyboy]

Dankjewel Haije ! Super
Werkt ook dynamisch

Nooit zover over nagedacht (kort en goed)





Groeten,
Georges

 

[snb]

Waarom niet simpel ?

=ISNUMBER($E5)*($D5<>"")

op gebied

$G$5:$G$200;$I$5:$I$200

 

[Georgyboy]

Dankjewel, dankzij jullie 2 extra mogelijkheden gevonden

Dus telkens als er in kolom C (Partij) een Partijnummer staat.

=LENGTE($C5) Of =ISLEEG($C5)=ONWAAR

Op bereik

$G$5:$G$200;$I$5:$I$200

 

[cow18]

je kan anders een beetje gekker doen en er een macro voor maken

Sub Georgyboy()
     With ActiveSheet.PivotTables("Draaitabel1")     'je draaitabel

          Set c = .TableRange1.Offset(, .TableRange1.Columns.Count).Resize(, 5)     'de 5 kolommen rechts er van
          With c.Borders                     'geen boorden
               .Weight = xlThin
               .LineStyle = xlNone
          End With

          Intersect(.DataBodyRange.EntireRow, c).Borders(xlInsideHorizontal).LineStyle = xlContinuous     'allemaal horizontale lijnen

          .PivotSelect "Inkp_Artikel[All;Total]", xlDataAndLabel, True     'alle inkoopartikelen-totaalrijen
          With Intersect(Selection.EntireRow, c)
               .Borders(xlEdgeBottom).LineStyle = xlNone     'geen horizontale lijn
               .Interior.Color = RGB(150, 150, 150)     'wel grijze achtergrond
          End With

          .PivotSelect "Leverancier[All;Total]", xlDataAndLabel, True     'alle leveranciers-totaal rijen
          Intersect(Selection.EntireRow, c).Borders(xlEdgeBottom).Weight = xlThick     'dikke horziontale streep

     End With
     Application.Goto ActiveCell
End Sub

 

[Georgyboy]

Goedemorgen,

Ja gek , wel leuk hoe je dit ook weeral leerrijk oplost!
Dankjewel Cow18

 

[snb]

@cow18

Niet gek, maar minder dynamisch dan met voorwaardelijke opmaak.
In het bestand met 3 eenvoudige voorwaardelijke opmaakregels ingevoerd.

 

[cow18]

@snb, ik denk dat Georgyboy bezig is de stock per einde jaar aan het maken is, een jaarlijk gebeuren, dan maakt mijn macro dat jaarlijk in één keer af met de uitdraai van zijn ERP. Met VO moet je vooraf nog je bereiken ruim kiezen.
Dus ja, het zal meer het gevoel/gebruikservaring zijn, die de doorslag zal geven.
Prettige feestdagen.

PS. om de macro te begrijpen, start je anders eens met een DT zonder VO's en dan kom je met je muis van links richting een totaal, dus bv. je staat in jouw A11 en gaat met de muis heel langzaam richting B11 "totaal 11000". Op het ogenblik dat je muisaanwijzer van vorm verandert (bij mij een pijl) klik je links en alle "totaal"-rijen zijn geselecteerd en die kan je nu een specifieke opmaak geven (kleur, font, onderlijnen, ...), die de TD in de toekomst altijd meeneemt. Toch wel een stuk handiger dan die VO, die vrij regelmatig hapert.
Je kan vanuit de kantlijn "7", nu ook richting "totaal61680" bewegen tot je een pijltje ziet en nu een andere opmaak kiezen voor dit soort totalen.
Nu doe je hetzelfde nog een keer komende van boven cel D1 richting D4, de muisaanwijzer kan 2 keer veranderen in een pijl en als je netjes enkel de cellen van de D-kolom geselecteerd hebt, dan geeft je die ook nog een opmaak mee.
Dus eigenlijk kan je op een vrij simpele manier een opmaak klaarzetten in de draaitabel en (een beetje anders dan in of met de macro) die opmaak van kolom D kopieren en plakken in het lege bereik (meerdere kolommen) er naast.

 

[Georgyboy]

@snb
Dank voor de eenvoudige voorwaardelijke opmaakrekgels, zeer bruikbaar.
Eenvoudig is groots
Net als je VBA codes kort die en krachtig zijn, waar ik ook van leer maar meestal moeilijker begrijp.

Dank ook Cow18 om te leren wat VBA kan ook al is het een beetje gek
Je weet dat ik nog véél te leren heb en me daar steeds mee helpt, met een waardje uitleg.

 

[cow18]

dan moet je bovenstaande handmatige versie even proberen, dus met gepast selecteren je kolom D van de draaitabel een opmaak geven en die dan doorkopieren naar het bereik naast je draaitabel.
Dat laatste ga je niet zo vaak doen, maar je draaitabel opvrolijken met die gekleurde subtotalen, dat doe ik voor mezelf kwasi continu.

 

[Georgyboy]

Dankjewel Cow18, zeggen dat ik dit vroeger gebruikte en niet meer op dacht om de simpele opmaak zo
visueel beter te maken.

Het is zo wekelijks worden er stocktellingen gedaan en via Excel lijstjes bij gehouden.
Graag wil ik er werk van maken om wat uit ons systeem ERP komt te gebruiken en aan te passen via Mutatie.

De kolommen A T/M F komen uit ons systeem via een Query Data en zo een draaitabel maken. De kolommen G & I zijn lege velden waar men kan noteren
of de stock op Partij (kolom C) klopt.
Vandaar dat het nuttig is om de kolommen G & I (stuks & kg) toe te voegen en indien anders dan kolom E & F te noteren om in ons systeem aan te passen.

Hier met voorwaardelijke opmaak

=LENGTE($C5)

Op bereik

$G$5:$G$200;$I$5:$I$200

Hier met je opmaak @cow18

Dank allen voor alle bijstand!

 

[Georgyboy]

Of