Sorteren met VBA na invullen kolom A en B

[Yasmin]

Beste Excellers,
Wie kan mij helpen om bijgaande VBA code zodanig aan te passen dat na het toevoegen van een nieuw artikel in (kolom A) en de prijs (kolom B) de sortering op kolom A pas start en niet zoals nu al bij het toevoegen van een nieuw artikel (kolom A).

[HTMLPrivate Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A2:B999")) Is Nothing Then
Range("A2:B999").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub][/HTML]


Bij voorbaat dank.

 

[sylvester-ponte]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Not Intersect(Target, Range("A2:B999")) Is Nothing Then
    If WorksheetFunction.CountA(Target.EntireRow.Resize(2)) = 2 Then
      Range("A2:B999").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End If
  End If
End Sub

 

[AD1957]

Zo?

If Not Intersect(Target, Range("[COLOR="#FF0000"]B2[/COLOR]:B999")) Is Nothing Then

 

[Yasmin]

Bedankt

Code aangepast het het werkt!