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

Tabbladen sorteren dmv VBA

  • Onderwerp starter Onderwerp starter dbk
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
D

dbk

Gebruiker
Lid geworden
8 aug 2008
Berichten
33
Goedemorgen allen,

Is het mogelijk om dmv VBA tabbladen te laten sorteren op volgorde?

Voorbeeld:
In mijn bestand heb ik drie vestigingen welke dmv afkortingen en getal (opdrachtcode) zijn aangemaakt. Dit bestand heb ik als bijlage toegevoegd ter verduidelijking.

Vestigingen:
- Apl
- Drn
- Rtm

Als hij sorteert op de eerste drie karakters van ieder tabblad ben ik al blij.

Graag zou ik dus alle vestigingen bij elkaar hebben staan.



kan iemand mij daar mee helpen of een voorzet geven?

Alvast bedankt.

Groet,
DBK
 

Bijlagen

Op deze site van cpearson wordt code getoond om werkbladen te sorteren.

Met vriendelijke groet,


Roncancio
 
Heb deze code om te sorteren:

Code: 
Option Explicit

Sub SortSheets()
   Application.ScreenUpdating = False
   Dim I As Integer, J As Integer

   For I = 1 To Sheets.Count - 1  'Aantal tabbladen die aanwezig zijn / Pak 1 tabblad
      For J = I + 1 To Sheets.Count ' Pak 1 tabblad verder
         If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then 'Als tablad 1 groter in alfabet is dan tabblad 2
            Sheets(J).Move Before:=Sheets(I) 'wissel deze om
         End If
     Next J
  Next I
End Sub
 
Hallo Roncancio en RaymondC,

Bedankt voor jullielle reactie.
Ik heb beide voorstellen geprobeerd en ze werken.:thumb:

Harstikke bedankt!


Groet,
DBK
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan