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

Excel automatisch sorteren na toevoegen regel

Status
Niet open voor verdere reacties.
hoogteijling

hoogteijling

Terugkerende gebruiker
Lid geworden
12 aug 2005
Berichten
4.261
Hallo allemaal,

In bijgevoegde sheet kan je m.b.v. de Project toevoegen-knop een project toevoegen.
Dit gebeurd iedere keer netjes op de eerst volgende lege regel.

Stel er word een project toegevoegd met nummer 1.234-1A,
dan zou deze tussengevoegd moeten worden tussen regel 6 en 7.
Hoe krijg ik dit voor elkaar ?

Groeten Marcel
Bekijk bijlage Projectenboek.zip
 
Laatst bewerkt:
Hallo Marcel,

Volgens mij doet de volgende code wat jij nodig hebt :

Code: 
Sub Macro1()
i = Range("B1048576").End(xlUp).Row
    ActiveWorkbook.Worksheets("Projectenboek").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Projectenboek").Sort.SortFields.Add Key:=Range( _
        "C1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Projectenboek").Sort
        .SetRange Range(Cells(1, 1), Cells(i, 10))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Groet,

Joske
 
Dank je Joske2000,

Je macro werkt goed.
Alleen zou ik willen dat ie het automatisch doet.
Zodra ik dus een projectnummer heb toegevoegd bedoel ik.
Is dat voor elkaar te krijgen ?

Groeten Marcel
 
Deze doet het automatisch

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C2:C2000")) Is Nothing Then Exit Sub
i = Range("B1048576").End(xlUp).Row
    ActiveWorkbook.Worksheets("Projectenboek").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Projectenboek").Sort.SortFields.Add Key:=Range( _
        "C1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Projectenboek").Sort
        .SetRange Range(Cells(1, 1), Cells(i, 10))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

De macro achter blad "Projectenboek" steken, dus niet in een module.

Groeten,

Joske
 
Joske,

did werkt (bijna) fantastisch.
Ik zie alleen de status niet verschijnen in mijn sheet (Offerte, Afwijzing, Opdracht, Gereed, Melding)
Zolang het projectnummer onderaan toegevoegd wordt werkt het wel goed.
Alleen wanneer een nummer er tussen gevoegd wordt dan vult ie alleen de datum en het projectnummer in.

Groeten Marcel
 
Laatst bewerkt:
Niks mis met de macro van Joske. Maar als je gebruik maakt van excel tabellen (Invoegen > Tabel) komt dit ook in de richting:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    With Me.ListObjects(1)
        If Intersect(Target, .DataBodyRange) Is Nothing Then Exit Sub
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=.ListColumns("Prj. Nr:").DataBodyRange, _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Sort.Header = xlYes
        .Sort.Apply
    End With
End Sub
Tip: kies bij voorkeur eenvoudige header namen, zonder spaties en leestekens. Dus geen "Prj. Nr:" maar bijv "ProjectNr".
 
Frans,
Is het handiger wanneer ik tabellen zou gebruiken ?
Zitten er meer voordelen aan de tabellen of kan ik later weer in de knoei komen met andere dingen ?

Groeten Marcel
 
Pixcel, ik snap de voordelen van de tabellen.
Dank je voor de link.

Ik heb je code toegepast maar hij loopt ergens vast.
Kun je me verder helpen ?
Hij vult alleen de datum en het Projectnummer in en daarna stopt ie.
Ik heb te weinig verstand van de code om te achterhalen wat ik moet aanpassen.
Ik vermoedt dat het tussen de volgende 2 regels stopt.
Code: 
End If
.Cells(rij, "D") = ComboBox13.Value

Groeten Marcel
 
Laatst bewerkt:
Misschien kan het volgende een aanzet zijn :
Code: 
Sub Worksheet_activate()
[A2:P1000].Sort [N3], xlAscending
[A1].Select
End Sub
 
Marcel,
Er zit iets onverklaarbaars in je bestand.
Ik zie dat je ook een knop hebt gemaakt om projecten te verwijderen.
Probeer het volgende eens:
Verwijder manueel eens het eerste project (selecteren en verwijderen)
Open dan opnieuw je Uform; is uw Uform nu nog volledig ????????
 
hoogteijling zei:
Ik heb je code toegepast maar hij loopt ergens vast.
Klik om te vergroten...
Marcel, als je de code hebt toegepast moet je ook een tabel gemaakt hebben van je gegevens, en dus je bestand hebben bijgewerkt. Zet de bijgewerkte versie dan hier neer. Nu reageren helpers op een verouderd bestand.
 
Marcel,
Er zit iets onverklaarbaars in je bestand.
Ik zie dat je ook een knop hebt gemaakt om projecten te verwijderen.
Probeer het volgende eens:
Verwijder manueel eens het eerste project (selecteren en verwijderen)
Open dan opnieuw je Uform; is uw Uform nu nog volledig ????????
Klik om te vergroten...
Wanneer je dat op die manier doet verwijder je ook de waardes uit de kolommen M, N, O en P.
Hier staan waardes in die door het Uform gebruikt worden, vandaar dat het Uform er dan onvolledig uitziet.
De Verwijder knop is iets wat ik later wil doen, eerst moet de Toevoegknop 100% werken.
textbox.png


Groeten Marcel
 
Begin eerst eens in het userform alle tekstvakken die je als 'labels' gebruikt te vervangen door echte userform labels.

Voor de invoer van een datum in een userform kun je beter een combobox met een lijst van geldige data gebruiken; voor voorbeelden zie hier:

http://www.snb-vba.eu/VBA_Fill_combobox_listbox.html
 
Laatst bewerkt:
Als jij zegt dat dat beter is met labels dan zal ik dat morgen zsm doen.

Groeten Marcel
 
Laatst bewerkt:
Bij deze de ge-update versie (Aantal textboxen vervangen door labels en kalender ingevoegd).

Iemand nog ideeën over hoe ik de rand van de datum box rood krijg ?

Wanneer er een project tussengevoegd wordt m.b.v. het formulier dan vult ie alleen de datum+projectnummer in, de rest niet.
Zie ook POST#9
Het sorteren gaat ook gewoon goed.
Weet iemand hier nog iets vanaf ?

Groeten Marcel
Bekijk bijlage Projectenboek tabellen.zip
 
Laatst bewerkt:
Hallo allemaal,

is er nog iemand die me even verder kan helpen m.b.t. het toevoegen van de projecten.
Zie vorige post.

Ik start een nieuw onderwerp

Groeten Marcel
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan