alpha

Kopieer onderstaande formule naar B23 in het blad Overview: =SOMMEN.ALS(Expenses!$D:$D;Expenses!$E:$E;$O$1;Expenses!$F:$F;B3;Expenses!$B:$B;$A$23) en kopieer die met de vulgreep naar rechts t/m M23. Kopieer ook in datzelfde blad N22:O22 naar N23:O23. Lees ook goed de toelichting op dat blad, dan zie je dat je in cel O1 van het blad Overview eerst het juiste jaar moet kiezen. Maak in het blad Expenses de kolommen E en F zichtbaar, zodat je ziet wat daar staat. Idem voor de rijen 2 en 3 in het blad Overview.

Maak in het blad Expenses kolom H zichtbaar. Dat doe je door de kolommen G en i tezamen te selecteren en dan in het menu te kiezen in de groep "Cellen": Opmaak - Weergeven en Verbergen - Kolommen zichtbaar maken. Dan zie je in kolom H de lijst staan die in kolom B (vanaf B4) als keuzelijst gebruikt wordt. In kolom H voeg je onder 'Renovations' een rij in en je vult in: Garden. Controleer dan in B4 en onderliggende cellen of het bereik van de lijst automatisch is aangepast. Dat doe je door B4 (en onderligende cellen) te selecteren en dan in het menu te klikken op: Gegevens en dan in de groep 'Hulpmiddelen voor gegevens' op: Gegevensvalidatie. Daar moet dan ingesteld staan: "Toestaan": Lijst, en als bron: =$H$4:$H$25 (was eerst $H$4:$H$24).

@Bucky (en amenthop1); je kunt Garden in de validatie lijst op het blad Expenses in kolom H best invoegen in rij 8 (onder 'Renovations'), om de dezelfde volgorde van het blad Overview intact te houden.

Ingewikkelder?

In mijn vorig bericht heb ik de verkeerde formules gekopieerd vanuit mijn werkblad, zie ik. Dat bericht kan ik op dit forum niet wijzigen. Als het juist is dat (in je laatst geplaatste bestand) voor de auto de afschrijving over 2 jaar moet worden berekend (2013 + 2014) en voor de toonzaal over 3 jaren (2012, 2013, 2014), dan kun je onderstaande formules gebruiken. Typ in G8 en kopieer naar beneden: =ALS(B8=0;(E8*F8*(H$6-A8)/12);E8*F8) Typ in H8 en kopieer naar beneden: =ALS(B8=0;(E8*F8*(H$6-A8)/12);E8*F8*(B8+1)) Let bij beide formules op het dollarteken in H$6.

Ik hoop dat je dit bedoelt, maar zeker ben ik daar niet van. Typ in G8 en kopieer naar beneden: =E8*F8*B8+ALS(B8=0;(E8*F8*(H6-A8)/12)) Typ in H8 en kopieer naar beneden: =E8*F8*B8+ALS(B8=0;(E8*F8*(H6-A8)/12))

De berekening is niet zo moeilijk, maar de indeling van je blad ziet er zodanig uit dat ik er geen touwen aan kan vastknopen. In C6 staat als afschrijvingsjaar 2015, maar in kolom B staat dan 2014, welk afschrijvingsjaar bedoel je dan? En zoals gezegd: ook is niet duidelijk wat je onder boekjaar verstaat. Stel dat in C6 2016 staat, van welk jaar moet dan in kolom G de afschrijving worden berekend? En van welke jaren moet in dat geval in kolom H de afschrijving worden berekend? Van 2015? Van 2015 én 2016? Of nog wat anders? En heeft je tabel betrekking op 1 aankoop? Of heeft elke rij betrekking op een andere aankoop?

Met mijn vraag bedoelde ik inderdaad H6 en niet H8. Maar nu wat je bestand betreft: in C6 staat het jaar 2015, dan is dat toch het boekjaar? Jij bedoelt, zo te zien, met het boekjaar het jaar 2014.

Je gebruikt H8, maar wat staat er in die cel, of wat moet er komen te staan (het afschrijvingsbedrag ?). In A8 staat een maand, is dat als tekst (bv. mei) of als getal (5) ?

In de bijlage een voorbeeld. Wat je in B2:B10 kunt kiezen is afhankelijk van wat je eerst in A2:A10 hebt gekozen. PC-Helpforum PPSB.xlsx

In een ander topic op dit forum Klik heb ik op een gelijksoortige vraag antwoord gegeven. Dat antwoord kun je als uitgangspunt nemen. Kopiëren is niet zo moeilijk, de dingen er omheen (foutafhandeling e.d.) vergen altijd veel meer tijd.

je kunt best geen gehele regel (dat zijn 16384 cellen) kopiëren als je er maar 10 of 20 van gebruikt. Stel dat je een tabel hebt die de eerste 10 kolommen gebruikt en waarvan de gegevens beginnen in rij 2, dan zou je deze macro kunnen gebruiken: Sub Koop_Verkoop() Dim x As Integer Sheets("Overzicht").Columns("a:j").ClearContents With Sheets("Exit") For x = 2 To .Range("a" & .Rows.Count).End(xlUp).Row If Application.Or(.Range("h" & x).Value = "Verkoop", .Range("h" & x).Value = "Koop") Then .Range("a" & x & ":j" & x).Copy Sheets("Overzicht").Range("a" & Sheets("Overzicht").Range("a" & Sheets("Overzicht").Rows.Count).End(xlUp).Row + 1) End If Next x End With End Sub

De letterkleur is tot stand gekomen via voorw. opmaak, dat maakt het optellen een stuk lastiger. Maar uit die voorw. opmaal blijkt dat alleen de letterkleur groen gemaakt moet worden van de cellen waarin "verkoop" of "uitkering" staat. Dan kun je net zo goed die tekst als criterium voor de optelling gebruiken. Je krijgt dan, voor de "Verkoop"-cellen: =SOM.ALS(C3:C8;"Verkoop";E3:E8) Voorde "Uitkering"-cellen kun je een soortgelijke functie gebruiken, en als je dat wil kun je die twee ook optellen.

De formule in je bericht zal in geen enkele versie van Excel werken, niet in de vroegere en niet in de huidige. Gebruik dit: =ALS(EN(D6>=1500;D6<=2499);"Silver";"")

Als je alleen met formules wil werken en er per nummer slechts 1 andere rij voorkomt met eenzelfde nummer, dan zou je met de functies INDEX en VERGELIJKEN een eind kunnen komen. Maar je kunt dan alleen de waarden uit een andere rij ophalen, niet de opmaak zoals de celkleur. Een oplossing met vba lijkt mij daarom meer aangewezen, die zou als volgt kunnen verlopen: 1. Bepaal de laatste rij en kolom van de tabel. 2. Start met het nummer in rij 2 van kolom A (1e loop) en 3. doorloop kolom A (2e loop) om te kijken of nummers in de volgende rijen gelijk zijn aan het nummer in rij 2. 4. Als eenzelfde nummer wordt gevonden, doorloop dan die rij vanaf kolom B tot de laatste kolom om cellen met gegevens in die rij te kopiëren naar de overeenkomstige kolom(men) in rij 2. (3e loop). 5. Ga terug naar punt 2 en verhoog het rijnummer met 1. 6. Na afloop de celranden bijwerken, want het is bv. mogelijk dat de dikke omranding van de onderste gekopieerd wordt naar een rij daarboven en dat de onderste rij wordt verwijderd. De 3 loops kunnen bv. uitgevoerd worden met een for-nextlus, of met een Do-While-, Do Until-, While-Wend-opdracht.

Als in A1 en B1 resp. 05:00 en 14:30 staat, maak de cel voor de berekening op als "Financieel" met 2 decimalen en voer in: =((B1-A1)*24-1)*15

Als het probleem is dat je in sommige cellen hekjes ziet in plaats van getallen: dat kun je eenvoudig oplossen door de kolommen breder te maken.

Handmatig berekend kom ik, rekening houdend met de gewenste verdeling, tot deze cijfers: Gemiddeld gewicht alle varkens per hok: 6.306 gram, 6.238 gram, 6.232 gram, 6.223 gram Het verschil tussen het hoogste- en laagste gemiddeld gewicht is dan slechts 83 gram (met 35 varkens per hok).

Plaats hier eens een Excel-voorbeeldbestand waaruit blijkt hoe je je gegevens vastlegt. Dan kan wellicht een gericht antwoord worden gegeven.

Dank voor de feedback !

Je hebt 140 varkens, waarvan de helft "b" en de helft "z". De verdeling over de vier hokken naar aantal en geslacht is dan eenvoudig: 35 varkens per hok (2 hokken met 18 x "b" en 17 x "z", en 2 hokken met 17 x "b" en 18 x "z"). Ervan uitgaande dat je het gewicht in grammen hebt vermeld, is dan het gemiddelde gewicht per varken 6250 gram (resp. 6319 gram voor de "b" en 6181 gram voor de "z"). Bovenstaande zaken zijn eenvoudig te berekenen (zover was je waarschijnlijk zelf ook wel al), het moeilijkste is uiteraard om per hok op ongeveer eenzelfde totaalgewicht uit te komen. Ik ben daar handmatig mee bezig geweest en zo'n verdeling lijkt me wel mogelijk. Aan een handmatige verdeling heb je natuurlijk niks, je zou een eenduidige oplossing moeten hebben die voor elk willekeurig aantal dieren en geslacht bruikbaar is. Dat is wel te programmeren in vba, maar kost behoorlijk wat tijd. Hetzelfde geldy voor de vragg die je eerder op dit forum stelde (http://www.pc-helpforum.be/topic/56833-samenvoegen-van-gegevens ).

Het kan wel in een redelijke tijd als je de code maar beperkt tot een niet al te groot bereik. Hieronder een voorbeeld voor het bereik A1:T50 op alle werkbladen in een workbook. Sub macro1() Dim cl As Range, x As Integer For x = 1 To Sheets.Count For Each cl In Sheets(x).Range("A1:T50") If cl.Interior.ColorIndex <> xlColorIndexNone Then cl.Font.ColorIndex = cl.Interior.ColorIndex End If Next cl Next x End Sub En voor opheffing van wat met macro1 werd ingesteld: Sub macro2() Dim cl As Range, x As Integer For x = 1 To Sheets.Count For Each cl In Sheets(x).Range("A1:T50") If cl.Interior.ColorIndex = cl.Font.ColorIndex Then With cl.Font .ColorIndex = xlAutomatic .Bold = True End With End If Next cl Next x End Sub

Bedoel je voor alle cellen in alle werkbladen? Weet je hoeveel miljoenen cellen dat zijn? Hoeveel bladen gebruik je? Als je die opdracht geeft kun je (bij wijze van spreken) wel enkele weken met vakantie voordat die voltooid is. Je kunt daarom beter die opdracht beperken tot een bepaald bereik in de verschillende bladen, nl. tot het bereik wat je gebruikt. Met jouw macro worden overigens geen cellen verborgen (je kunt in Excel alleen hele rijen of kolommen verbergen), maar wordt de tekstkleur en celkleur aan elkaar gelijk gemaakt (en met de tweede macro weer opgeheven). Persoonlijk vind ik dat niet aan te bevelen, je moet altijd kunnen zien wat er in een cel staat (vind ik), maar als je dat beslist wil, dan kan dat wel.

Bedankt voor de uitleg Plongske. Rest voor mij nog deze vraag voor Herman: bij de uitslag staat vast wat er bij toto komt te staan (een 1 voor winst van de thuisploeg, een 2 bij winst voor de uitploeg), maar is dat ook zo bij de voorspeller? Of kan die bij een voorspellende uitslag van bv. 3 - 1 toch bij toto een 2 invullen om zo een grotere kans te hebben om punten te vergaren? Hoe zit dat Herman?

@Herman, Die formule is eenvoudig te bedenken, maar ik vind de puntentelling wel wat vreemd (of ik begrijp die niet goed). Aantal doelpunten van de thuisploeg goed voorspeld = 2 punten. Aantal doelpunten van de uitploeg goed voorspeld = 2 punten. Als die twee gegevens goed zijn voorspeld is dat dus samen 4 punten. Tot zover is het voor mij duidelijk. Maar dan: "Totovoorspelling goed" = 5 punten. Maar de voorspelde uitslag is toch hetzelfde als de totovoorspelling? M.a.w. als het aantal doelpunten van zowel de thuis- als uitploeg goed is voorspeld, dan komen er automatisch 5 punten bij, die totocel heb je niet nodig. Je kunt net zo goed schrijven: "Aantal doelpunten van zowel thuis- als uitploeg goed voorspeld = 9 punten. Ik vind dat overigens geen al te logische puntentellling, maar dat terzijde. M.i. kun je beter (ook) punten toekennen voor de voorspellingen winst, verlies, en gelijk spel.