2 cellen sorteren met missende getallen nieuw !

[telkom2012]

2 cellen sorteren met missende getallen
de titel is misschien wat vaag maar ik wist het niet anders te omschrijven.

wati k wil doen is ik heb op A 1 2 3 4 5 6 7 8 9 10 staan
en in B 1 2 3 4 6 10 staan maar in rij 1 2 3 4 5 6 dus als voorbeel 10 staat in rij 6

Nu wil ik dat hij dus A en B sorteerd en dan in B waar dus niet het getal is bijv : 5 7 8 9 dat hij deze vakken leef laat dat A10 en B10 langs elkaar staan en A9 er wel staat maar B9(een leeg vak is).

me file upload werkt op een of andere manier niet dus ik doe het even onder met een link als voorbeeld:

voorbeeld bestand

 

[WHER]

Probeer deze eens:

 

[flexcom-online]

ik krijg bij die file een visual basic foutmelding.

 

[telkom2012]

Beste When nee is niet gelukt...

is er geen optie in excel of code die dit mogelijk maakt om te doen ?

 

[WHER]

Welke foutmelding specifiek? Bij mij werkt dit gewoon, je moet natuurlijk "Enable macros" kiezen wanneer dit gevraagd wordt.

 

[telkom2012]

hij opent dan visual basic en dan krijg ik dit :

Option Explicit

Sub tst()
Dim myArray As Variant, lng As Long
myArray = Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row).Value
Range("B:B").ClearContents
 For lng = LBound(myArray) To UBound(myArray)
  Range("B" & WorksheetFunction.Match(myArray(lng, 1), Range("A:A"), 0)) = myArray(lng, 1)
 Next
End Sub

Private Sub CommandButton1_Click()
Dim myArray As Variant, lng As Long
myArray = Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row).Value
Range("B:B").ClearContents
 For lng = LBound(myArray) To UBound(myArray)
  Range("B" & WorksheetFunction.Match(myArray(lng, 1), Range("A:A"), 0)) = myArray(lng, 1)
 Next
End Sub

En dit staat in geel aangegeven als fout dus :

Range("B" & WorksheetFunction.Match(myArray(lng, 1), Range("A:A"), 0)) = myArray(lng, 1)

 

[WHER]

Vreemd, ik heb deze macro al meerdere malen uitgevoerd (in het voorbeeld bestand) en krijg geen foutmelding maar netjes het resultaat.

 

[oeldere]

@telkom2012

Met welke versie van Excel werk je?

Misschien dat dat de oorzaak van het probleem is?

@Wher,

Ik werk met Excel 2007 en daar werkt de macro in ieder geval goed.

 

[WHER]

Oeldere,

Goed om te horen, in Excel 2003 heb ik (zoals reeds gezegd) ook geen probleem.