• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Wie kan mij helpen met Macro's of iets anderS?

Status
Niet open voor verdere reacties.
Ja ja, 'k geloof het graag, maar dat was ook helemaal de vraag niet.
Even nadenken misschien? Als R5 leeg blijft dan moet dat wel zijn omdat MP geen waarde krijgt, waaruit dan weer volgt dat je "If...." een FALSE oplevert.


Edit : reactie was uiteraard bedoeld voor TS (DigiCafee zat er weer ongezien tussen)
 
Laatst bewerkt:
Sorry, ik had niet begrepen dat Enigmasmurf - eens hij heeft ingebroken op een post - exclusief antwoordrecht opeist ... bij deze : ga je gang !
 
@ Digicafee,

Zag jij nu heus niet dat mijn uitspraak geestig bedoeld was ???????????

Ik wist ook niet dat dit onder "inbreken in een post" viel...
Wat is er m.a.w. mis mee als helpers elkaar aanvullen ?
 
Optellen of zoeken tot aan een lege cel in VBA?

Het bestand begint tot leven te komen. maar ben er nog lang niet.
In bijlage het bestand en macro's so far..

Het probleem nu is dat ik mijn zoekrange in kolom N naar Can of Vat maar op 1 lijn is geprogrammeerd, de "N2" in mijn geval.
Ik wil graag dat in die kolom N gaat zoeken naar Vat of Can tot aan de lege cel. en dan daarna de eerst volgende gevulde regel weer dezelfde berekening maakt.

Dus het kijkt in M hoe veel stuks en dan in N of het gaat om een Can of Vat.
Alle velden tot aan de lege rij met als "Tekst", "Can" optellen.
Vervolgens ook van "Vat" en dan komt mijn Criteria;
XX Cans en XX Vat is "1" Mp of Euro Of Blok.

Is dit überhaupt mogelijk?

Dennis.
 

Bijlagen

  • Test.xlsm
    24,5 KB · Weergaven: 45
Laatst bewerkt:
Nu nog de criteria erbij en dan in de juiste kolom.
Code: 
Sub hsv()
Dim a As Range
For Each a In Range("m2", Cells(Rows.Count, 13).End(xlUp)).SpecialCells(2).Areas
   a(a.Rows.Count).Offset(, 5) = Evaluate("sumproduct((" & a.Address & ")*(" & a.Offset(, 1).Address & "=""CAN""))")
 Next a
End Sub
 
Wow dit is al angstig goed :)

Alleen neemt die niet mijn Criteria over, maar het totaal. wat moet ik nu nog anders maken?
Ik wil dat die met die aantal 15 (cans) een keuze maakt naar kolom R , Q of S. Waarde "Euro, MP, Blok"

kan ik in die code ook VAT toevoegen?

Knipsel.PNG
 
Laatst bewerkt:
Ik kom er niet uit.
De reden waarom die de eerste regel wel op 1 mp zet is door deze code;
Code: 
Range("r5").Value = MP
Range("q5").Value = Euro
Range("S5").Value = Blok

Daarop heb ik de criteria geschreven, en vult het alleen de R5 t/m S5 onder waarde "1" nadat het gekeken heeft naar mijn criteria.

Als ik er
Code: 
Range("r:r").Value = MP
Range("q:q").Value = Euro
Range("s:s").Value = Blok

Van maak, krijg ik over mijn hele werkmap een "1".

Weet niet waar ik wat neer moet zetten.
Zodat die de juiste aantal omzet naar "1" en in de juiste kolom zet ipv de hele werkmap.:confused:
 
Laatst bewerkt:
Hoe voeg je een Criteria toe

Hoe voeg je een criteria toe?

Met deze code, telt het alles op in Kolom 13 met opmerking "Can" in kolom 14.
Code: 
For Each a In Range("m2", Cells(Rows.Count, 13).End(xlUp)).SpecialCells(2).Areas
   a(a.Rows.Count).Offset(, 5) = Evaluate("sumproduct((" & a.Address & ")*(" & a.Offset(, 1).Address & "=""CAN""))")
      Next a

Nu is de som in de cell "12" Knipsel.PNG
Nu wil ik dat de waarde "1" wordt als het kijkt naar onderstaande criteria.
Maar de vraag is ook;

Hoe laat ik die code naar deze criteria kijken?
Code: 
If aantal >= 1 And aantal <= 12 And gewicht <= 26 And gewicht >= 15 And InStr(Range("N2").Value, "CAN") Then
MP = "1"

Kolom Q is dan Euro
Kolom R is dan MP
Kolom S is dan Blok

Knipsel.PNG

Dan wil ik dat die als waarde "1" in de juiste kolom zet "Euro, Mp of Blok" op de Gele Lijn (SpecialeCel).

Alvast bedankt!

Dennis.Bekijk bijlage Proberen.xlsm
 

Bijlagen

  • Test.xlsx
    14,2 KB · Weergaven: 28
  • Proberen.xlsx
    25,8 KB · Weergaven: 31
Laatst bewerkt:
Mag het ook met een formule?
in R6
Code: 
=SOMMEN.ALS(M2:M5;N2:N5;"CAN";M2:M5;">=1";M2:M5;"<=12")
Dit is een begin, de criteria voor de gewichten moet je zelf nog toevoegen, want ik had geen zijn om je bestandje na te bouwen op basis van screenshots.
 
Laatst bewerkt:
Ben wel echt opzoek naar een aanvullende VBA. dat automatisch vult.

Zijn namelijk meer rijen Knipsel.PNG

Bestand voeg ik wel toe
 
Dennis, waarom staat jouw vba niet in je voorbeeld ?

maak een duidelijke tabel waarin staat wat wanneer enz...
 
Laatst bewerkt:
Ik snap het niet.
Wordt MP pas 1, als alle CAN's in een area, het aantal tusssen 1 en 12 hebben en een gewicht tussen 15 en 26?

Als je het in een formule kan maken dan kan je het ook in VBA maken.
 
Laatst bewerkt:
@Sylveste
Nieuwe file met Code toegevoegd "Proberen.xlsx" onder Tab "Macro" staat de code.

@Alphamax Dat is het precies.

Als alle Cans in een Area, het aantal tussen 1 en 12 , en een gewicht tussen 15-26 dan is het "1" MP
Extra voorbeelden;
Als alle Cans in een Area, het aantal tussen 13 en 26 , en een gewicht tussen 15-26 dan is het "1" Euro
Als alle Cans in een Area, het aantal tussen 27 en 32 , en een gewicht tussen 15-26 dan is het "1" Blok

Die mp moet dan in kolom R op de gele regel "zoals afbeelding" als waarde "1" ingevuld worden, omdat die criteria "1" is.

Kolom O is voor gewicht

Kolom Q is voor EURO's
Kolom R is voor MP
Kolom S is voor Blok

Als ik het uitschrijf zou het zo moeten zijn;

Als (Aantal in kolom M = 1-12 en gewicht in kolom O = tussen 15-26 en in kolom N staat "CAN" = dit "1" mp) ALs het 1 "Mp" is moet het in kolom R ingevuld worden als "1".

Hoe krijg ik dit voor elkaar.
 
Laatst bewerkt:
Zijn MP, euro en blok, zijn dat verpakkingseenheden?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan