emielDS

met een klein voorbeeld word bedoeld een voorbeeld op 1 blad en zonder verborgen macro's Kijk even of dit aan uw wensen voldoet. Voorbeeld Probleem PC helpforum.xlsx

ik vrees dat je iets aan het maken bent waar je na 2 maand zelf uw weg niet meer zal vinden. U doet excel zoeken naar iets wat hij niet kent. excel kent nl. geen datums enkel getallen.. zie mijn voorbeeld zoeken op dag.xlsx

in een voorbeeld bestand zou het al opgelost zijn. of moeten wij alles overtypen?

je moet dan wel zorgen dat er lege cellen zijn. een cel met een formule in is geen lege cel. Probeer deze maar eens test geavanceerde filter (1).xlsm

Waarschijnlijk is er niemand die echt begrijpt wat je eigenlijk wil. Voor zover ik het versta moet blad 1 gesorteerd worden op de waarde van kolom B op het blad "school x" als daar een cel in kolom c leeg is? Maar sorteren van allemaal dezelfde namen zou wel eens moeilijk kunnen worden.

en hier kan je nog iets leren. aantal werkdagen.xlsx

bedoel je zoiets? aantal werkdagen.xlsx

dit lijkt me iets makkelijker selectievakje test.xlsm

zelfs met het € teken kan je verder rekenen met die getallen.

en u dacht waarschijnlijk ook dat je er uw beveiliging afgehaald had? een bevieliging op een werkblad is het laatste wat u plaatst.

zonder voorbeeldbetand is het voor iedereen gokken waar alles staat. het zal zoiets worden waarschijnlijk =vert.zoeken(materiaal;apartblad:de hoeveelste kolom; juiste waarde)

bedoel je zoiets? alhoewel ik het nut ervan niet inzie. week verplaatsen.xlsm

voor een nieuweling toch mijn best gedaan, met een ietwat kortere code automatisch sorteren.xlsm

met een voorbeeldbestandje wordt een excel bestandje bedoeld, of dacht je dat wij zelf een volledig voorbeeldje gingen maken om het te testen? ps. plaats uw code tussen code tags Sub Sorteren() With Me.Sort .SortFields.Clear .SortFields.Add2 Key:=Range("G9:G13") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .SetRange Range("A8:H13") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .Apply End With End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$15" Then Sorteren End If End Sub

bedoel je zoiets? voor het gemak nog een beetje uitgebreid zodat ook de salarissen ingevuld worden. Salarisschaal per 2020.xlsm

dat was ook de reden dat ik een eb bestand vroeg.

Je zoekt een piloot maar je weet nog niet voor welk vliegtuig? ik heb dan zelf maar iets gemaakt. je moet maar eerst zelf een map aanmaken waar je het bestand instelt aflossinstabel.xlsm

en welk excel formaat er zijn er meer dan je denkt.

bedoel je zoiets? weet wel dat beide mappen moeten openstaan. Bijlage 1 bonus.xlsx

een voorbeeld bestand zou niet misstaan.

en waar moet dan de uitslag van het 2° voorstel komen?

over welk blad heb je het?

bedoel je dan zo. stemming 2.xlsm

't Zal gisteren wat snel moeten gaan zijn, nu zou het beter moeten zijn. stemming 2.xlsm

toch nog een beetje aangepast om een eerste verkeerde ingave te kunnen rechtzetten. stemming 2.xlsm