bickyvp

@kweezie wabbit, voor deze vraag is alles in orde. uitstekend geholpen, dus dit mag afgesloten worden.

bedankt voor de tip Bakerman, dit zal ik eens nader bekijken.

die vrijheid had je zeker ik bedank je hartelijk! dit is perfect zo. heel erg bedankt. 👍

Goedenavond, iemand die me wil/kan helpen met de fouten uit het script te halen en aanpassen ? ik ben iets te enthousiast begonnen, waardoor ik enkele fouten heb, nu ben ik zeker geen expert en zie door de bomen het bos niet meer. ik heb me gebaseerd op verschillende bestaande vb scripts van online gevonden bestanden. de Excel is bedoeld als tracker voor toestellen/machines. (een nieuw vervolg op mijn oudere post). de gegevens in het bestand zijn fictief. alvast hartelijk bedankt! ToestelTracker_Test.xlsm

JeanPaul28, enorm bedankt! dit is absoluut een mooie aanpassing. als iemand nog ideeën heeft, om het mooier en efficiënter te maken, graag

bij deze hier het test bestandje. dit is een klein deeltje van de originele (aangepast zonder gevoelige info) checkbox test.xlsm

dit had ik net door, toen ik het poste. ik maak straks even een test sheet aan

hallo, ik heb voor men werk, een excel gemaakt waar ik bijhoud, wie welk machine mee heeft en wanneer deze terug op het magazijn is. ik gebruik hiervoor een checkbox die ik aanvink als het toestel terug is, deze voegt dan automatisch de datum toe in de andere cel. in VB is dit wel heel chaotisch. kan dit korter of anders gedaan worden ? bijgevoegd het vb script en bestandje. Private Sub CheckBox1_Click() If CheckBox1.Value = True Then CheckBox1.TopLeftCell.Offset(0, 1).Value = Date Else CheckBox1.TopLeftCell.Offset(0, 1).Value = vbNullString End If End Sub Private Sub CheckBox2_Click() If CheckBox2.Value = True Then CheckBox1.TopLeftCell.Offset(1, 1).Value = Date Else CheckBox1.TopLeftCell.Offset(1, 1).Value = vbNullString End If End Sub Private Sub CheckBox3_Click() If CheckBox3.Value = True Then CheckBox1.TopLeftCell.Offset(2, 1).Value = Date Else CheckBox1.TopLeftCell.Offset(2, 1).Value = vbNullString End If End Sub Private Sub CheckBox4_Click() If CheckBox4.Value = True Then CheckBox1.TopLeftCell.Offset(3, 1).Value = Date Else CheckBox1.TopLeftCell.Offset(3, 1).Value = vbNullString End If End Sub enzo verder voor 100+ toestellen. bestand is te groot om te uploaden. alvast bedankt! groeten, michael

het is gelukt. hij werkt goed en is dus in orde toch bedankt voor jullie hulp! dit mag gesloten worden, dmv een filter op kleur is het uiteindelijk gelukt.

hallo iedereen, ik ben bezig voor mijn wergever met een excel van al onze stockproducten en om zo eenvoudig te kunnen zien wat er besteld moet worden. dit heb ik reeds gedaan. nu wil ik dat ik snel kan sorteren op wat er besteld moet worden. het vak waarin staat dat er besteld moet worden is dmv vba. de celgrote is niet overal gelijk omdat dat niet anders kan of niet goed uitkomt. natuurlijk moet heel de rij juist mee volgen met het sorteren. ik krijg mijn werkbladen maar niet gesorteerd. waarbij ik meteen kan zien wat er moet besteld worden. kan iemand mij hierbij helpen of op weg zetten ? (ps: in bijlage vind je de excel, enkel de 3 eerste werkbladen wil ik zo gesorteerd hebben) alvast heel erg bedankt groeten michael magazijn vp.xlsm