Samenvatting maken met functie =SOM(ALS(EN( )))

[snitsel]

Beste

Een document zoals in bijlage wordt per dossier telkens door mij opgemaakt. Hoe is de bedoeling via 1 klik op de knop dat onderaan een samenvatting wordt gemaakt zodanig dat ik dit kan doorsturen naar de leverancier. Eens de prijzen ontvangen van de leverancier kan ik deze invullen in de samenvatting en worden ze automatisch in de hele lijst aangevuld.

Zie voorbeeld document in bijlage

Even een woord uitleg over het document:

Kolom A = standaard en wordt nooit gewijzigd
Vanaf kolom B tot ... (afhankelijk van het aantal in te geven deuren) worden ingevulde cellen (rij 5:19) gekopieerd uit voorgaande kolom naar de eerst volgende lege kolom
Rij 5:19 kan uitgebreid worden naar gelang rijen worden toegevoegd

Rij 5 = variabele tekst
Rij 6 = Variabel in te vullen aantal
Rij 7 = Bevat enkel tekst "Enkel", "Dubbel", of "Schuifdeur"
Rij 8 = Bevat enkel cijfers "0", "30" of "60"
Rij 9 tem 11 = variabele cijfers
Rij 12 tem 13 = variabele cijfers maar zijn gelinkt aan rij 9 tem 10
Rij 14 tem 19 = ast gelegde formules die niet van belang zijn

Eens op de knop "Samenvatting" wordt geklikt dient het volgende te gebeuren:
(zie voorbeeld in het document in bereik B2936 die handmatig werd opgesteld, maar die automatisch zou moeten kunnen gebeuren)

Er dient gezocht te worden naar zelfde resultaten van rij 7, 8, 12 en 13
Het gezochte resultaat dient vermeld te worden in vb cel B29
De som uit rij 6 dient samen geteld te worden indien ze voldoen aan dezelfde eigenschappen uit rij 7, 8, 12 en 13. Uitkomst dient vermeld te worden in de naastliggende cel vb C29
in cel D29 dient een naam aangemaakt te worden vb "prijs1"
in rij 14 dient "=$A$14*Prijs1" ingevuld te worden voor de des betreffende deur waar naar werd gezocht.

Hopelijk kunnen jullie mij hierbij verder helpen.

Mvg
Steven

Bekijk bijlage Test.zip

 

[Elsendoorn2134]

Steven,

Hierbij een oplossing voor je probleem, de vba code maakt onder aan een lijst van de
verschillende typen en hun aantallen. In de code vind je een beschrijving hoe dat werkt.
Voor het opzoeken van de prijzen in de tabel maak ik gebruik van vertikaal.zoeken.

Bekijk bijlage HelpMijDeuren.xlsm

Veel Succes.

 

[snitsel]

OMG! Het werkt inderdaad!
Had ik eerlijk gezegd nooit zelf gevonden!
Met heel veel dank Elsendoorn2134!!!

 

[snitsel]

Dag Elsendoorn2134

Ik weet niet waarom of hoe het komt, maar de Module doet zijn werk niet meer.
Als ik de test doe van het bestand dat u gepost heeft, dan werkt het wel, maar het werkt niet meer in een nieuw aangemaakt bestand.
Enig idee wat het probleem kan zijn?

Zie nieuw vb waarbij het niet lukt

Alvast bedankt voor de hulp
Met vriendelijke groeten
Snitsel

 

[Elsendoorn2134]

Snitsel,

Ik heb even gekeken, ik vermoed dat je een nieuwe knop aangemaakt hebt voor de knop Samenvatting.
In een eerdere versie heb ik deze de naam gegeven Samenvatting (Op de knop gaan staan, rechter muisknop, eigenschappen, Name = Samenvatting).
Terwijl deze nu de naam Commandbutton1 heeft.
Hernoem de knop zoals aangegeven en hij werkt weer prima.

Veel Succes.

 

[snitsel]

AH! over het hoofd gezien! Werkt inderdaad terug! Thanks!!

Veel dank en groeten!
Snitsel