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

Automatisch sorteren meerdere cellen

Status
Niet open voor verdere reacties.
Wou de code van het voorbeeld bestand inplakken in het orgineel maar er hij deed verder niks. Naam blad is tussenstand. Hoe kan ik deze overnemen
 
Heb het macro gedeelte ingeplakt in de desbetreffende blad (tussenstand)
 
of kan je aangeven welke tekst ik precies moet kopieren en plakken in het tabblad van de code
 
Nee in mijn eigen bestand werkt het niet in het voorbeeld bestand wel
 
Heb je de Module ook in je file geplaatst?
Dit moet in een Module
Code: 
Sub Macro1()
    [B:E].Sort _
    Key1:=Range("D2"), Order1:=xlDescending, _
    Key2:=Range("C2"), Order2:=xlAscending, _
    Key3:=Range("E2"), Order3:=xlDescending, _
    Header:=xlGuess
    [B1].Select
End Sub
Dit moet achter het Blad
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <= 5 And Target.Column >= 3 Then Macro1
End Sub
 
Laatst bewerkt:
ja, precies hetzelfde bereik. Het zijn wel meer tabbladen en de tussenstand bestaat uit formules ipv echte getallen
 
Kijk eens bij de VBA van je voorbeeld wat wel werkt.
Je zal zien dat er een Module in zit en achter het Blad ook code staat.
De code achter het Blad roept de macro in de Module aan.

Je heb ze dus alle 2 nodig om het te laten werken.

Klik met rechts op de tab van het Blad en kies voor Programmacode weeggeven.
Plaats daar de code.
Als je in de VBA editor ben kies je Invoegen / Module en plaats daar de code.
 
Laatst bewerkt:
snap niks van, open het bestand ga naar excelblad tussenstand, open programmacode weergeven en kopieer daar beide teksten in en sluit dan af sla bestand op en open het opnieuw. Dan vraagt hij om het te activeren en vul in ander tabblad wat uitslagen in zodat de tussenstand ingevuld wordt. Maar dan sorteert hij niks
 
heb broncode geopend de code ingeplakt in de tabblad van Tussenstand druk daarna op invoegen module daar de macro ingeplakt daarna afgesloten bestand opgeslagen en opnieuw geopend, wat uitslagen ingevuld maar sorteren wil hij niet
 
De oplossingen van ExcelAmateur in jouw bestandje toegevoegd.

wijzig de blauwe cel (speler A) en zie wat er gebeurt.

de stand wordt gewijzigd.

vervolgens kijk je eens in VBA met Alt+f11.

in blad 1 staat een code.

in module 1 staat een code.

dit is wat ExcelAmateur bedoelt.

bestudeer je bestandje en heb je dan vragen, laat het gewoon even weten.
 

Bijlagen

Ik heb het voorbeeld bestand ingevoegd in mijn bestand. Kan getallen aanpassen en dan werkt het. Kopieer ik de formules naar dat blad dan werkt hij het niet bij maar klik ik op F5 dan weer wel. Bestand bevat teveel persoonlijke info om erop te zetten. ga het naders proberen in het voorbeeldbestand mijn bestand nabootsen
 
Ik wens je veel suc6.

Kijk wat de macro doet als je in de VBA Editor ben.

Als je links op de kantlijn klikt bij de code komt er een breekpunt te staan en stopt de macro daar.
Nu kun je met F8 stap voor stap de code door lopen en zien wat er gebeurd.

Suc6
 
en wat zou f5 (ga naar) dan moeten doen?


Plaats deze code (is de code van EA) dan eens in ThisWorkbook en probeer het dan nog eens.
Hoe doe je dat:
klik op alt+f11
VBA editor wordt geopend
copieren onderstaande tekst
plak de tekst in het tab This Workbook
Sluit de editor
Vervolgens wijzig je een getal


Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <= 5 And Target.Column >= 3 Then Macro1
End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan