Dzieki wielkie! Działa tak jak chciałem. POZDRAWIAM!
napisał: Trebor postów: 1209
umieszczony: 28 maja 2006 08:59
Hej
Może tak:
Sub Makro1() Dim a AsInteger For a = 1 To 4000
Range(Cells(a, 1), Cells(a, 4)).Sort Key1:=Cells(a, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal Next a EndSub
gdzie "a" to wiersz który będzie sortowany, zapis Range(Cells(a, 1), Cells(a, 4)) oznacza że będą sortowane kolumny od 1 do 4 w wierszu a
Pozdrawiam
napisał: AbelR postów: 2
umieszczony: 28 maja 2006 03:19
Witam!
Zaraz mnie trafi...siedze juz do pozna (!) bo jutro musze cos waznego oddac w firmie i nie moge sobie poradzić.
Otoz mam 4 kolumny i 4000 wierszy. W komórkach są dane liczbowe.
Chciałbym posortować te wiersze od najmniejszej liczby do największej.
Np.
4 2 1 9
5 3 2 0
na:
1 2 4 9
0 2 3 5
problem w tym ze pojedynczo kazdy wiersz zaznaczajac i robiac to ręcznie sortowalbym tydzien tyle pozycji.
Probowalem przerobic makro zrobione na podstawie sortowania jednego wiersza ale radze sobie.
Prosze Was o kod makra albo o jakakolwiek radę jak NA RAZ posortowac wiersze od lewej do prawej w porzadku rosnącym.
wstecz 1 dalej
otwarty rozpoczął: AbelR
postów: 3
