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

tabblad automatische sorteren

Status
Niet open voor verdere reacties.
D

davylenders123

Gebruiker
Lid geworden
20 jun 2010
Berichten
902
Heb een exel doc gemaakt met keuze menu's.
Bestaat uit 3 tab bladen.
De tab bladen adres en dokter die zouden alfabetische moeten blijven staan op achternaam omdat het zo makkelijk is om
in het keuze menu de juist naam te vinden.Uit deze lijst worden er regelmatig verwijderd en toegevoegd.
Hoe moet je daar juist sorteren.Of is er een moggelijkheid dat het automatisch gebeurt dat sorteren.

Heb al geprobeer om de rijen te selecteren waar de namen in staan dan op sorteren klikken kiezen dat de rij van de achternaam gesorteerd wordt en de andere rijen wijzigen juist mee.
De namen worden dan wel gesorteerd maar als ik dan inhet eerste tab blad in het keuzen menu een naam kies neemt hij een verkeerd adres huisnummer postcode en gemeente over.

Wat is er verkeerd.

En is er mischien een automatische oplossing voor het sorteren als je een naam toevoegd of verwijderd.

Bekijk bijlage voorbeeld bestand 4.zip
 
Selekteer kolom B tm O en daarna sorteer je op kolom C waar de achternamen staan
 
popipipo zei:
Selekteer kolom B tm O en daarna sorteer je op kolom C waar de achternamen staan
Klik om te vergroten...

Bedankt :thumb:

Is er mischien een oplossing waar dit automatische gebeurt.
Als je een naam toevoegd vanonder aan de lijst dat het bv bij het sluiten de lijst automatische sorteerd zoals hierboven beschreven. En ook als je een naam verwijderd uit de lijst.
 
hoi davylenders123

een macro opnemen en aan een knop toevoegen

of automaties laten uitvoeren als er iets veranderd in het betreffen blad

groet sylvester

ps blad dokter bevat de zelfde gegevens alleen wat minder kolommen dan blad adressen
misschien is het handig om aan blad "adres" een knop toe te voegen die een aantal kolommen verbergt zodat dit blad lijkt op blad dokter. (en nog een druk op de knop zou dan de kolommen weer zichtbaar moeten maken.
als hier hulp bij nodig hebt hoor ik het wel
 
sylvester-ponte zei:
hoi davylenders123

een macro opnemen en aan een knop toevoegen

of automaties laten uitvoeren als er iets veranderd in het betreffen blad

groet sylvester

ps blad dokter bevat de zelfde gegevens alleen wat minder kolommen dan blad adressen
misschien is het handig om aan blad "adres" een knop toe te voegen die een aantal kolommen verbergt zodat dit blad lijkt op blad dokter. (en nog een druk op de knop zou dan de kolommen weer zichtbaar moeten maken.
als hier hulp bij nodig hebt hoor ik het wel
Klik om te vergroten...

Hoi Sylevester,

Zou graag hebben dat die 2 tab bladen automaties sorteren als er een verandering gebeurt maar weet
niet hoe hier aan te beginnen.
En macro aan een knop toegevoegd mag ook maar dat weet ik ook niet hoe ik aan zoiets begin.
Ken al wel een deeltje van exel maar het grooste deel is voor mij nieuw.

Die rijen verbergen is niet echt nodig omdat wel al die gegevens gebruiken die erin staan.
En als je dan iets wil zien van die gegevns moet je ze eerst tevoorschijn roepen.
 
sylvester-ponte zei:
zo iets?

groet sylvester
Klik om te vergroten...

Dat is het wat ik zocht ja B E D A N K T :thumb:

Maar als ik u code in mijn bestand plak (heb dat gedaan omdat het bestand ondertussen al grondig is veranderd)
werkt het niet krijg ik een fout melding compileer fout.
Wat doe ik daar dan verkeerd ?
Is dat mischien omdat er ondertussen al meer codes instaan.


Bekijk bijlage voorbeeld bestand 7.zip
 
Code: 
Sub sorteren_dokter()
  Application.Calculation = False
    With Sheets("dokter").UsedRange.Offset(3, 1)
      .Sort .Columns(2), , .Columns(1)
    End With
  Application.Calculation = False
End Sub

Sub sorteren_adres()
  Application.Calculation = False
    With Sheets("adres").UsedRange.Offset(3, 1)
      .Sort .Columns(2), , .Columns(1)
    End With
  Application.Calculation = True
End Sub
 
Jack Nouws zei:
Code: 
Sub sorteren_dokter()
  Application.Calculation = False
    With Sheets("dokter").UsedRange.Offset(3, 1)
      .Sort .Columns(2), , .Columns(1)
    End With
  Application.Calculation = False
End Sub

Sub sorteren_adres()
  Application.Calculation = False
    With Sheets("adres").UsedRange.Offset(3, 1)
      .Sort .Columns(2), , .Columns(1)
    End With
  Application.Calculation = True
End Sub
Klik om te vergroten...

B E D A N K T

Ben blij dat het eindelijk af is nu en dat dankzij jullie hulp top :thumb:

Allemaal bedankt:)
 
Het is volgens mij de zelfde vraag.
Is het dan huiswerk?
 
Jack Nouws zei:
Code: 
Sub sorteren_dokter()
  Application.Calculation = False
    With Sheets("dokter").UsedRange.Offset(3, 1)
      .Sort .Columns(2), , .Columns(1)
    End With
  Application.Calculation = [B][U]False [/U][/B]  ' hier moet true staan
End Sub

Sub sorteren_adres()
  Application.Calculation = False
    With Sheets("adres").UsedRange.Offset(3, 1)
      .Sort .Columns(2), , .Columns(1)
    End With
  Application.Calculation = True
End Sub
Klik om te vergroten...

zie regel 6
groet sylvester
 
Laatst bewerkt:
Hoornvan zei:
Het is volgens mij de zelfde vraag.
Is het dan huiswerk?
Klik om te vergroten...

Ik zie ook dat de vraag op het andere forum gewoon de zelfde is maar ik heb ze op dit forum geplaatst en niet op het andere.
Op het andere forum hebben ze dan mijn vraag gebruikt zeker.
 
He,

Zit terug met een probleem.

Ik heb het exel doc. thuis gemaakt in exel 2007 , heb het juist op het netwerk van het werk gezet maar daar draait exel 2003 en
krijg ik een foutmelding bij het sorteren in adres tab blad en in dokter tabblad sorteer hij ook niet meer.

De foutmelding die ik krijg is" fout 1004 tijdens uitvoeren"

Hoe moet dit opgelost worden dat hij het wel doet op het netwerk van het werk.
 
Als ik op foutopsporing klik krijg ik het volgende

Sub sorteren_adres()
Application.Calculation = False hier staat een pijltje voor en is geel gekleurd
With Sheets("adres").UsedRange.Offset(3, 1)
.Sort .Columns(2), , .Columns(1)
End With
Application.Calculation = True
End Sub
 
davylenders123 zei:
Als ik op foutopsporing klik krijg ik het volgende

Sub sorteren_adres()
Application.Calculation = False hier staat een pijltje voor en is geel gekleurd
With Sheets("adres").UsedRange.Offset(3, 1)
.Sort .Columns(2), , .Columns(1)
End With
Application.Calculation = True
End Sub
Klik om te vergroten...

waar False staat moet xlCalculationManual staan
en waar True staat moet xlCalculationAutomatic staan

groet sylvesteter
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan