JeanPaul28

Kijk eens of deze macro de job doet Sub Afboeken() For Each Cl In [C9:C999] If Cl <> "" Then sq2 = Cl.Offset(, -1).Value With Sheets("Voorraad") Set FoundCell = .Range("A:A").Find(Cl) sq1 = .Range(FoundCell.Address).Offset(, 3).Value If sq1 > sq2 Then MsgBox "Af te boeken aantal is groter dan de stock " & Cl & " deze word op nul gezet" End If .Range(FoundCell.Address).Offset(, 3).Value = Application.WorksheetFunction.Max(0, sq1 - sq2) End With End If Next End Sub

test deze eens Sub Afboeken() With Sheets("voorraad").Columns(1) Stock = .Find([B8], , xlValues, xlWhole).Offset(, 3) If [C8] > Stock Then MsgBox "Afboeken kan maar max " & Stock & " aantallen": Exit Sub .Find([B8], , xlValues, xlWhole).Offset(, 3) = .Find([B8], , xlValues, xlWhole).Offset(, 3) - [C8] End With Dim data(1 To 5) data(1) = Now 'tijdstip boeking data(2) = [B8].Value 'artikelnr data(3) = [D3].Value data(4) = CDbl([C8].Value) * -1 Sheets("Mutaties").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, UBound(data)).Value = data End Sub

Kan je hier verder mee Kopie(jp) van debet credit calculatie.xlsx

In de validatie cel E2 kies je de Graad die je wil filteren In module1 staat de macro die jou bestand in blad1 zal filteren, dit is een advance filter in VBA Deze filter word geactiveerd bij het selecteren van blad2, deze vind je in het VBAproject achter blad2

Met validatie in cel E2, met resultaat op Blad2 Kopie (JP) Excelissue.xlsm

Mooi foto's emielDS 🤣 🤣 🤣

graag het excel bestand ipv foto

Je kan ook verzekering vragen per beginnend 7 dagen aan 25 €

plaats eens een excel voorbeeld

Die 7's stonden al van in je eerste bestand, maar rij 1 was verborgen, die waren voor het berekenen voor jou formules.

In het Vba project venster staat Module1 daar staat de macro updateX in , hier kan je wijzigingen aanbrengen ,aangepast voor dat ander document.

Wijzig eens iets in een tabblad van week 5 en zie of de macro werkt Kopie(jp2) van Dagrapportage HVAC 2019.xlsm

Met VBA Kopie(jp) van Dagrapportage HVAC 2019.xlsm

geef het volledig path waar de files staan, en enkele voorbeeld bestanden mee in bijlage

staan ze allen in de zelfde cel op het eerste blad en in een map, dan laat je VBA dit werkje doen

nog eentje typ in de kolom datum E de letters dt in (d van datum en de t van tijd) Vraag over tijd en datum automatisch(jp).xlsm

En het kan ook met de formule index + vergelijken

Ik stel deze oplossing voor Kopie van Formule(jp).xlsx

Moet dat niet zo zijn

Graag voorbeeld bestand

in cel D5

Aangepast,kolom R, omdat de formule een matrix is moet je deze afsluiten met accolade, dat doe je met Ctrl+shift+enter te samen indrukken Kopie van rangschikken(jp2).xlsx

Kijk eens naar mijn inbreng en oplossing (de samen gevoegde cellen brengen problemen met zich mee bij de matrix formules) Kopie van rangschikken(jp).xlsx

Zoals alpha al zei , je topic is onduidelijk voor de helpers, maar hier een gok Kopie van Timesheet(jp).xlsx

Na veel puzzel werk heb ik er dit van gemaakt Kopie van oefening stapelen.xlsm