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

macro automatisch uitvoeren

Status
Niet open voor verdere reacties.
R

ronnie123

Gebruiker
Lid geworden
21 nov 2007
Berichten
595
goede middag
in het bestandje heb ik een blad wat automatisch gesorteerd moet worden doormiddel van een macro
als ik de getallen handmatig verander lukt dat
maar in het originele bestand wordt het veranderd door verwijzingen
in het voorbeeld voer ik in blad 2 B3 een getal (=D13 in totaalstand ) in dan veranderd er niets
wat moet er aan de code aangepast worden
bvd ronnie
 

Bijlagen

  • auto.xlsm
    18 KB · Weergaven: 38
zet dit eens achter Blad2:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

If Target.Offset(0, 0).Address = "$B$3" Then
With ActiveWorkbook.Worksheets("totaalstand")
    .Sort.SortFields.Clear
    .Sort.SortFields.Add2 Key:=Range("D4:D13"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    .Sort.SortFields.Add2 Key:=Range("H4:H13"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Sort.SortFields.Add2 Key:=Range("K4:K13"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Sort.SetRange Range("C3:K13")
    .Sort.Header = xlYes
    .Sort.MatchCase = False
    .Sort.Orientation = xlTopToBottom
    .Sort.SortMethod = xlPinYin
    .Sort.Apply
End With
MsgBox "sheet totaalstand is sorted."
End If
End Sub
 
Hallo Haije bedankt voor de reactie
dit werkt prima maar
wat nu blad 2 is is in het origineel blad wedstrijden waar ik in kolom E.F.G gegevens invoer
hoe komt het er dan uit te zien
groetjes ronnie
 
Als je deze achter dat blad zet?

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E:G")) Is Nothing Then
 If Target.Count = 1 Then
    With Sheets("totaalstand")
        .Range("C3:K13").Sort .Range("D4"), 2, .Range("H4"), , 1, .Range("K4"), 1, , xlYes
    End With
 End If
End If
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan