bakerman

Mijns inziens maak jij een denkfout omdat je zoals jij het voorstelt nogmaals commissie gaat berekenen op reeds verrekende commissie. De commissie is geen kost als dusdanig (zoals bv. loonkost) maar een méérkost op de verkoopprijs. Wat jij volgens mij nodig hebt is een kolom waar je al je kosten in samentelt (Aankoop+Vaste kosten+verpakking+Verzending + Loonkost+Vooropgestelde winst) Daarop bereken je dan de BTW die je bij de som van je kosten telt zodat je de bruto verkoopprijs bekomt. Daarop ga je dan je commissie berekenen die je dan bij de bruto verkoopprijs telt om zo uiteindelijk bij je netto verkoopprijs te komen. Als je dan later de commissie aftrekt van het ontvangen bedrag is dit eigenlijk een nul-operatie. Ik zag ook in je tabel 2X kolommen waarin je commissie berekent?????

Beste Magda, Mijn commentaar was allerminst naar jouw persoon gericht, maar eerder een beschouwing van hoe het mijns inziens opgelost zou moeten worden. Ben ook even aan de slag gegaan zoals je zal zien in de bijlage. Je tabblad Inkoop vul je zoals vanouds in. Omdat je data nu als tabel is opgemaakt worden bij elke nieuwe regel de validatie en formules automatisch meegenomen. Je zal merken dat elk inkooporder standaard op Openstaand staat. Van zodra je een betaaldatum invoert wordt de status automatisch naar Betaald gewijzigd. Wanneer je nu op tabblad Betalingen een nieuwe regel invoert wordt in Inkoop gezocht naar de gelijkaardige Omschrijving en indien gevonden wordt de betaaldatum ingevuld, wat weer tot gevolg heeft dat de status naar Betaald wordt gezet, net zoals je gevraagd hebt. Let er wel op dat je steeds de omschrijving invult alvorens het bedrag in te vullen.Op blad Lijsten staan alle lijsten voor de datavalidatie. De lijst openstaand genereert door de aanwezige formule elke Omschrijvingen die nog openstaand is. Deze lijst wordt op Betalingen in de kolom Omschrijving gebruikt zodat je steeds een selectie hebt van nog openstaande inkooporders. Op blad Betalingen staan nog enkele inkoopordes zonder bedrag om al eens te testen. Heb je nog vragen laat het dan maar weten. Magdalena.xlsm

Dit stuur je toch niet aan vanuit werkblad inkopen maar vanuit werkblad betalingen. Een inkooporder dat niet onmiddellijk betaald wordt zet je standaard op Openstaand. Anders op betaald. Als je nu een betaling invoert ga je de omschrijving zoeken in Inkoop en past de status en datum aan. Je gaat toch niet eerst alle betalingen invoeren en daarna proberen te onthouden dewelke je hebt ingevoerd om Inkoop aan te passen. Stuur dit vanuit Betalingen zodat gegevens op Inkoop automatisch aangepast worden en niet andersom.

Welke rest nog ??? E19 is toch ook ingevuld in het voorbeeldbestand. 😲

Aangezien jouw zoekbereik begint op regel 4 is het rijnummer wel correct. Zoeken en kopieeren.xlsx

Sub Knop1_Klikken() For Each cel In Range("b2", Range("B" & Rows.Count).End(xlUp)) If cel.Value <> "gezinshoofd" Then cel.Offset(, 1).Resize(, 3).ClearContents End If Next End Sub Deze werkt ongeacht het aantal rijen dat je daadwerkelijk hebt.. Dan ben je ook ineens van die 5000 af. Het aantal rijen op voorhand beperken is een slechte werkwijze omdat je dan na verloop van tijd eventueel aanpassingen moet maken aan de code die je makkelijk kan voorkomen door bovenstaande manier te gebruiken om een bereik te definiëren.

Probeer zo weinig mogelijk interactie met het werkblad te hebben. Sub test() Dim vDB, vNew() Dim n As Long, i As Long Application.ScreenUpdating = False With ActiveSheet vDB = .Range("C5", .Range("C" & Rows.Count).End(xlUp)) n = UBound(vDB, 1): ReDim vNew(1 To n, 1 To 1) For i = 1 To n vNew(i, 1) = Left(vDB(i, 1), 1) Next i .Columns(3).Insert .Range("C5").Resize(n, 1) = vNew .Range("A5").CurrentRegion.Sort .Range("C5"), xlAscending .Range("C:C").Delete End With Application.ScreenUpdating = True End Sub

Wat jij wil bereiken is zonder VBA NIET mogelijk. Je zal dan steeds een hulpkolom nodig hebben.

Weet niet hoe ze er hier op gaan reageren maar stuur mij een PB met uw emailadres in zodat ik daarop kan reageren. Op die manier hebt U mijn privé emailadres ook en kan je daar je bestand naar sturen.

Hier een versie waar Naam of Voornaam voldoende zijn. Bastet_Database_VI_wb.xlsm

Voor het tel.nr heb ik de kolombreedte een beetje vergroot. kijk eens na of het volledige nr nu weergegeven wordt. Bij mijn testen moet Datum ontvangen, Geleverd of CDS niet noodzakelijk ingevuld zijn bij het nieuw opslaan of aanpassen. Probleem bij de datum is dat ik met een Engelse versie werk en die kan blijkbaar afwijken van de jouwe. Probeer het nieuwe bestand eens uit. Naam EN Voornaam MOETEN ingevuld worden voor het correct werken van formulier Adresses en Liste. Ik heb geen fouten meer gekregen bij het testen van alle formulieren maar moest dit gebeuren klik dan op Beëindigen in het foutcode venster en sla je bestand op. Bastet_Database_V_wb.xlsm

Selectie en datum probleem opgelost. Wat betreft het wijzigen of wissen. Van zodra je op Toevoegen hebt geklikt kan je inderdaad product of aantal niet meer wijzigen. Dit is speciaal gedaan om je inventaris te beschermen. Als je na het opslaan begint te morrelen aan artikel of hoeveelheid wordt het zeer moeilijk om je inventaris correct bij te houden. Het is dus een kwestie van goed controleren voordat je op toevoegen klikt. Wat betreft het inventaris formulier kan ik je opmerkingen niet repliceren. Wat betreft enkel een gedeelte van de items te zien krijgen is het idd. zo dat vanaf je een categorie kiest je enkel die artikels te zien krijgt die al opgeslagen zijn onder die categorie. Vind je een bepaalde categorie of artikel niet in de lijst vul je deze gewoon in in de vakken en klikt op toevoegen. Bastet_Database_IV_wb.xlsm

Bij Adresses 2 extra velden nl Categorie en Opmerkingen. B Liste nu de mogelijkheid om alles aan te passen behalve Artikel en Hoeveelheid. Persoonlijk zou ik dit formulier exclusief voorbehouden voor uitgaande artikelen. Bij Inventaire nu de mogelijkheid om een Donateur in te vullen. Ook wordt elke inbreng geregistreerd in de rechtse tabel. Bastet_Database_III_wb.xlsm

Wat maria-rita eerst en vooral moet doen is ons vertellen met wiens bestand ze wil verdergaan. 😮 Zodat 1 van ons beiden niet werkt aan iets dat toch niet gebruikt zal worden. 😑

Heb hier en daar de code nog wat aangepast en enkele dingen toegevoegd. Verduidelijking zal moeten wachten tot morgen. Bedje roept. Bastet_DatabaseII_wb.xlsm

Eentje voor de lol. Bastet_Database_wb.xlsm

Daar was ik al een beetje bang voor. Zoals DJ al zei, VBA en Mac is soms een moeilijk verhaal. Zoals ik het zie heb je drie mogelijkheden. 1) Gebruik de 1ste methode die ik gepost heb. Probleem hiermee is dat kolom E en F gelijk gevuld moeten zijn want anders krijg je een hoop lege rijen in je validatielijst. 2) Gebruik onderstaande code ipv de vorige maar dan heb je nog steeds die extra kolom die je wil vermijden. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("E:F")) Is Nothing Then sn = Range("E1").CurrentRegion.Value With New Collection For i = 1 To UBound(sn) For j = 1 To 2 If sn(i, j) <> vbNullString Then .Add sn(i, j), "k" & .Count Next Next Range("Z1").CurrentRegion.ClearContents Application.EnableEvents = False For i = 1 To .Count Cells(i, 26) = .Item(i) Next Application.EnableEvents = True End With ThisWorkbook.Names.Add "myList", Range("Z1").CurrentRegion End If End Sub 3) Vervang de validatielijst door een Combobox zodat je de waarden rechtstreeks in de CB-lijst kan zetten. De keuze is aan jou, laat maar iets weten.

Is dit nu enkel bij mij of mis ik hier plots enkele posts ??? Daarom nogmaals het laatst geposte bestand, nu met een stukje VBA. Bij wijzigingen in kolom E of F wordt de lijst automatisch aangepast. markata.xlsm

Dan zal deze iets beter aansluiten bij je wensen. Alle niet-lege cellen uit kolom E en F worden in een lijst gezet beginnend in Z1. De validatielijst in B2 is daarop gebaseerd. Breng je een wijziging aan in kolom E of F dan wordt de lijst automatisch aangepast. markata.xlsm

Wat dacht je van deze? selectie aantal.xlsx

Je vraag is al 64 keer bekeken doch nog nog geen enkele reactie. Misschien is het beter eens een visuele voorstelling te geven in een XL-bestandje met een duidelijke uitleg wat je nu juist wil berekenen.

Graag gedaan. Bedankt voor de feedback.

Datavalidatie in Artikel kolom zodat enkel artikels uit stocklijst kunnen gekozen worden. Controle op aanwezigheid artikelnaam bij ingave hoeveelheid. Bij ingave hoeveelheid controle op aanwezige stock. Indien onvoldoende stock, melding en stand huidige voorraad. Hoeveelheid wordt gewist. Indien voldoende stock aanpassing stocklijst. Kopie van STOCKLIJST.xlsm

Bedankt voor de feedback en succes verder met je project. 👍