Ha úgy értetted,ahogy az elõbbi hozzászólásban leírtam, itt a makró.
Ha az elõbbi hozzászólásomban leírtak szerint szeretnéd szétválogatni az adataidat, itt van hozzá a makró:
Sub szortiroz()
Dim a As Variant, oszlop As Integer, usor As Integer
a = Left(Cells(1), 5)
Select Case a
Case 10000
oszlop = 5: GoTo Szort
Case 20000
oszlop = 10: GoTo Szort
Case 30000
oszlop = 15: GoTo Szort
Case 40000
oszlop = 20: GoTo Szort
Case 50000
oszlop = 25: GoTo Szort
End Select
a = Left(Cells(1), 4)
Select Case a
Case 1000
oszlop = 4: GoTo Szort
Case 2000
oszlop = 9: GoTo Szort
Case 3000
oszlop = 14: GoTo Szort
Case 4000
oszlop = 19: GoTo Szort
Case 5000
oszlop = 24: GoTo Szort
End Select
a = Left(Cells(1), 3)
Select Case a
Case 100
oszlop = 3: GoTo Szort
Case 200
oszlop = 8: GoTo Szort
Case 300
oszlop = 13: GoTo Szort
Case 400
oszlop = 18: GoTo Szort
Case 500
oszlop = 23: GoTo Szort
End Select
a = Left(Cells(1), 2)
Select Case a
Case 10
oszlop = 2: GoTo Szort
Case 20
oszlop = 7: GoTo Szort
Case 30
oszlop = 12: GoTo Szort
Case 40
oszlop = 17: GoTo Szort
Case 50
oszlop = 22: GoTo Szort
End Select
a = Left(Cells(1), 1)
Select Case a
Case 1
oszlop = 1: GoTo Szort
Case 2
oszlop = 6: GoTo Szort
Case 3
oszlop = 11: GoTo Szort
Case 4
oszlop = 16: GoTo Szort
Case 5
oszlop = 21: GoTo Szort
End Select
Szort:
usor = Cells(65536, oszlop).End(xlUp).Row
If Cells(10, oszlop) > "" Then
Cells(usor + 1, oszlop) = Cells(1)
Else
Cells(10, oszlop) = Cells(1)
End If
End Sub
Rendelhetsz hozzá gyorsbillentyût: Alt+F8 -ra bejönnek a makrók. Kijelölöd a szortiroz nevût, az Egyebek gombra kapsz egy párbeszéd ablakot, ahol a Ctrl+ mellé beírod a betût, amelyikkel a billentyûzetrõl indíthatod.