bakerman

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. 👍

In J2 en doortrekken naar beneden. =INDEX('status en %'!$A$1:$B$9;MATCH('new funnel 2021'!$I2;'status en %'!$A$1:$A$9;0);2) Kan je ook een reactie plaatsen op je vorige vraag zodat deze kan afgesloten worden.

Dit heeft niets te maken met jouw of mijn voorkeur. Alleen OP heeft te beslissen wat voor haar het beste werkt. Wij zijn hier alleen maar om meerdere opties aan te bieden zodat OP tenminste een keuze heeft.

Even voorbeeldbestandje. Anja_ba_.xlsx