Sorteren hoog laag

[snb]

Ook de 2e application goto moet weg.

En rich tde code zo in dat je de interaktie met het werkblad minimaliseert: bij voorkeur 1 keer lezen, 1 keer schrijven. Dus die lus is volledig uit den boze en bovendien overbodig.

 

[Chris15]

Beste @emields,

Kan jij de code aanpassen van "Map 4(1)"?

Als ik HSV begrijp, dan is het beter als het aangepast zal worden?

PS ik ben nog steeds erg blij met jou code hoor!

 

[emields]

Aangepast.

 

[HSV]

Het nut van kolom B die hetzelfde is als kolom A ontgaat me.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a7")) Is Nothing And Target.Count = 1 Then
  Application.EnableEvents = False
   target.Insert
     Range("a8").CurrentRegion.Columns(2) = Range("a8").CurrentRegion.Columns(1).Value
       With Range("J8:L19")
         .Value = Range("d8:f19").Value
         .Sort Range("L8"), xlDescending
       End With
   Application.EnableEvents = True
End If
End Sub

 

[Chris15]

Hoi Harry,
Die kolom is nodig voor de E kolom. Kolom A gaat er steeds 1 naar beneden. En kolom B blijft staan.

Leg ik het een beetje goed uit?

 

[Chris15]

Harry, ik heb jou code ook geprobeerd, maar bij het invoeren gaat het niet terug naar A8.

 

[HSV]

Wat gaat er niet terug naar A8?

 

[Chris15]

Het invoeren van getallen gaat via A7, maar met jou code blijft de cursor op A8 staan, en gaat hij niet terug naar A7.

Ik vergiste me net met A7/A8

 

[HSV]

Als jij dat nodig vindt.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a7")) Is Nothing And Target.Count = 1 Then
  Application.EnableEvents = False
   target.Insert
     Range("a8").CurrentRegion.Columns(2) = Range("a8").CurrentRegion.Columns(1).Value
       With Range("J8:L19")
         .Value = Range("d8:f19").Value
         .Sort Range("L8"), xlDescending
       End With
   Application.EnableEvents = True
[COLOR=#ff0000]  application.goto target.offset(-1)[/COLOR]
End If
End Sub

 

[Chris15]

Dank,

 

[snb]

If Target.address="$A$7" Then

is functioneel identiek aan:

If Not Intersect(Target, Range("a7")) Is Nothing And Target.Count = 1 Then