• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

hier is het project

Status
Niet open voor verdere reacties.

noorderling

Gebruiker
Lid geworden
22 feb 2005
Berichten
10
het is het zefde project als die gene die hier de eerste vraag heeft gesteld

alvast bedankt
 

Bijlagen

Hoi Sk utsjesiler,

Als ik het goed begrijp wil je op blad1 uitrekenen wie waar start voor de volgende dag. Waarom niet eenvoudiger?

Gewoon op blad1 de stand aanpassen!

Zet de onderstaande macro in de editor van VBA (Alt & F11) en de stand wordt automatisch gesorteerd.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H7:I20")) Is Nothing Then
Range("A7:K20").Select
Selection.Sort Key1:=Range("K7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub

Het bereik is ingesteld op A7:K20, gesorteerd wordt op kolom K (Range("K7")), bij wijziging in het bereik J7:I20 de kolommen waar de (straf)punten worden ingevoerd.
 
jah dat is de bedoeling

ik zal even kijken of het werkt maar dat was de bedoeling ja

alvast bedankt
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan