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

Quote

=ALS.FOUT(INDEX($N$5:$S$16;VERGELIJKEN(D3;$N$5:$N$16;0);VERGELIJKEN(D4;$N$5:$S$5;0));"")

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