Welke formule moet ik gebruiken voor deze situatie?

[AccountMonk]

Hi hele slimme personen op dit forum!

Ik weet het echt niet meer, ik zou kunnen zeggen dat ik met mijn handen in mijn haar zit. Ik heb tijdens mijn opleiding echt wel geleerd hoe ik een Als/Dan formule moet toepassen of hoe ik verticaal moet zoeken in Excel... Maar dit stijgt mijn intelligentie te boven... Of hoe zal ik het formuleren?

Ik moet voor de lunch op mijn werk een boodschappen bestellijst maken. Ik had bedacht dit te doen door in Excel allemaal tabbladen te maken met verschillende categorieën waar wij dagelijks de producten van de lunch uit bestellen. Dus ik heb alle producten in Excel gezet en op de eerste pagina, het eerste tabblad dus een 'boodschappenlijst' gemaakt.

De indeling is als volgt:
Eerste tabblad: Boodschappenlijst
Tweede tabblad: Brood
Derde tabblad: Vleeswaren
Vierde tabblad: Kaas
Et cetera.

Onder elk tabblad staat dan aantal en product. De producten zijn vermeld. Dus onder het tabblad brood staat dan bijvoorbeeld volkoren brood. Ik wil, dat op het moment dat ik bij aantal volkoren brood een 1 of een 2 of welk getal dan ook in vul dat hij dit product, inclusief het aantal dan op de boodschappenlijst van het eerste tabblad plaatst. Maar op het moment dat er 0 of niets staat dat hij dit product niet op de boodschappenlijst staat, ook omdat we over heel veel producten spreken.

Zou iemand mij kunnen vertellen hoe of wat?

Heel heel erg bedankt!

Groetjes,
Ria

Ps. Ik zie net dat ik het bestand in een bijlage kan voegen, dus dat heb ik gedaan.

 

[WHER]

Een voorbeeld van hoe het zou kunnen. De formules in sheet "Boodschappenlijst", kolom E en F zijn reeds ingevuld voor Brood, Groente & Fruit, Kaas, Vlees en Vleeswaren. De rest mag je zelf aanvullen.
E en F zijn hulpkolommen die je eventueel kan verbergen.

 

[AccountMonk]

Antwoordd

Thanks! Dit ziet er goed uit.. Alleen nu zie ik niet goed hoe je die hulp kolommen hebt gemaakt?

Ik kijk wel even!

 

[AccountMonk]

Een voorbeeld van hoe het zou kunnen. De formules in sheet "Boodschappenlijst", kolom E en F zijn reeds ingevuld voor Brood, Groente & Fruit, Kaas, Vlees en Vleeswaren. De rest mag je zelf aanvullen.
E en F zijn hulpkolommen die je eventueel kan verbergen.

De formules heb ik door, hoe heb je die kleur erachter gekregen? Gewoon opmaak neem ik aan?

Laat maar! ben er al achter en ik hem 'm helemaal klaar! Super bedankt!

 

[WHER]

De kleur is gewoon opmaak en louter ter illustratie van de bereiken van de verschillende formules, maar dat had je ondertussen al door denk ik.

 

[AccountMonk]

De kleur is gewoon opmaak en louter ter illustratie van de bereiken van de verschillende formules, maar dat had je ondertussen al door denk ik.

Jaa klopt! Je hebt ons echt super geholpen!

 

[sylvester-ponte]

hoi AccountMonk

met een macrotje gaat het ook

groet sylvester

 

[AccountMonk]

hoi AccountMonk

met een macrotje gaat het ook

groet sylvester

En dat is dus iets dat ik altijd nog heb willen leren.. Nooit gehad.

 

[AccountMonk]

Oplossing tot nu toe!

Dat is de oplossing die ik nu heb. Ik heb ook de optie van de makro ook bekeken. Kan iemand mij uitleggen hoe je een Makro plaatst?

 

[sylvester-ponte]

hoi AccountMonk

het vorige bericht is een zooitje
zo ziet het er beter uit

de macro BoodschappenlijstSamenstellen() wordt automatiesch gestart als blad boodschappen lijst wordt geselecteerd

probeer het maar uit

Sub BoodschappenlijstSamenstellen()
  Dim BoodsRij As Integer
  Dim Blad As Worksheet
  Dim Laatste As Integer
  Dim Rij As Integer
  
  With Sheets("Boodschappenlijst")
    .Columns("A:C").ClearContents
    .Cells(1, 1) = "Aantal"
    .Cells(1, 2) = "Productnaam"
    .Cells(1, 3) = "Soort"
  End With
  BoodsRij = 1
  
  For Each Blad In Sheets
    With Blad
      If .Name <> "Boodschappenlijst" Then
        Laatste = .Cells(Rows.Count, 1).End(xlUp).Row
        For Rij = 2 To Laatste
          If .Cells(Rij, 1) > 0 Then
            BoodsRij = BoodsRij + 1
            Sheets("Boodschappenlijst").Cells(BoodsRij, 1) = .Cells(Rij, 1)
            Sheets("Boodschappenlijst").Cells(BoodsRij, 2) = .Cells(Rij, 2)
            Sheets("Boodschappenlijst").Cells(BoodsRij, 3) = Blad.Name
          End If
        Next Rij
      End If
    End With
  Next Blad
  
  Sheets("Boodschappenlijst").Columns("A:C").EntireColumn.AutoFit
End Sub

 

[AccountMonk]

hoi AccountMonk

mijn macro zit al verwerkt in het vorige bestand

gewoon dat bestand oppenen en testen

en de macro bekijken in menu
macro's
en dan bewerken

groet sylvester

ps dit is de macro
Sub BoodschappenlijstSamenstellen()
Dim BoodsRij As Integer
Dim Blad As Worksheet
Dim Laatste As Integer
Dim Rij As Integer

With Sheets("Boodschappenlijst")
.Columns("A:C").ClearContents
.Cells(1, 1) = "Aantal"
.Cells(1, 2) = "Productnaam"
.Cells(1, 3) = "Soort"
End With
BoodsRij = 1

For Each Blad In Sheets
With Blad
If .Name <> "Boodschappenlijst" Then
Laatste = .Cells(Rows.Count, 1).End(xlUp).Row
For Rij = 2 To Laatste
If .Cells(Rij, 1) > 0 Then
BoodsRij = BoodsRij + 1
Sheets("Boodschappenlijst").Cells(BoodsRij, 1) = .Cells(Rij, 1)
Sheets("Boodschappenlijst").Cells(BoodsRij, 2) = .Cells(Rij, 2)
Sheets("Boodschappenlijst").Cells(BoodsRij, 3) = Blad.Name
End If
Next Rij
End If
End With
Next Blad

Sheets("Boodschappenlijst").Columns("A:C").EntireColumn.AutoFit
End Sub

Ik zie de macro indd staan. Alleen als je het zelf wil invoeren is het volgensmij best lastig...

Ik zit nu inderdaad in het scherm van die code.. Die je gekopieerd et cetera had. Alleen stel, ik wil in een willekeurig bestand een Makro maken. Klik ik dan weer op Makro? en die codes moet ik dan allemaal maken? Of hoe en wat?

 

[sylvester-ponte]

de macro zit al in het exel bestand verwerkt Probeer het dan uit
verander je broodbestelling
of voeg eens een nieuw tabblad toe met bv eigen gekkighijd en selecteer daar wat uit

groet sylvester

voor bestand zie vorige mail hier boven