Excell'in ustasıyım diyenler bir bakabilir mi?

Question

merhaba arkadaşlar, excellde bir işlem yapmak istiyorum, işlem sıralama işlemi başta basit gibi gelebilir aama ben orta derecede anladığım halde çözemedim soru şu,

1 - KKSMKIRMIZI
10 - MSTA211P
100 - MLPPKAREDESENB
101 - MLPPKAREDESENS
102 - MLPPPARISKELEBEKK
103 - MLPPRAINBOWP
104 - ITM9040
105 - ITM9041
106 - ITM9013
107 - ITM9010
108 - NT198BY
109 - NT190BY
11 - MSTA211S
110 - NT194I
111 - NT198SY
112 - ITM6020
113 - ITM6024
114 - ITM6030
115 - 707BY
116 - 707SY
117 - 709BY
118 - 708I
119 - 706I
12 - MSTA211T
120 - NTMBEYAZ
121 - NTMSIYAH
122 - ITM5030
123 - ITM5010
124 - ITM5020

yukardaki stok kodlarını baştaki 3 rakam baz alarak seçimi genişleterek sıralatmak istiyorum bu konuda fikri olan ?

ReisMedya · Answer

NeuStar adlı üyeden alıntı:						mesajı görüntüle									merhaba arkadaşlar, excellde bir işlem yapmak istiyorum, işlem sıralama işlemi başta basit gibi gelebilir aama ben orta derecede anladığım halde çözemedim soru şu,

1 - KKSMKIRMIZI
10 - MSTA211P
100 - MLPPKAREDESENB
101 - MLPPKAREDESENS
102 - MLPPPARISKELEBEKK
103 - MLPPRAINBOWP
104 - ITM9040
105 - ITM9041
106 - ITM9013
107 - ITM9010
108 - NT198BY
109 - NT190BY
11 - MSTA211S
110 - NT194I
111 - NT198SY
112 - ITM6020
113 - ITM6024
114 - ITM6030
115 - 707BY
116 - 707SY
117 - 709BY
118 - 708I
119 - 706I
12 - MSTA211T
120 - NTMBEYAZ
121 - NTMSIYAH
122 - ITM5030
123 - ITM5010
124 - ITM5020

yukardaki stok kodlarını baştaki 3 rakam baz alarak seçimi genişleterek sıralatmak istiyorum bu konuda fikri olan ? 		2 basamaklı sayıların başına 1 adet "0" tek basamaklılara 2 adet "0" koyarsanız, yukarıda "Veri" penceresinde "Sıralama" bölümünden otomatik yapabilirsiniz.

Secret35 · Answer

Merhaba,

Is yerimden konuya yorum yaparken filtreye takildigi icin yorum olarak ekleyemedim ama pm olarak makro yazıp size ilettim. Makroyu deneyerek isinize yararsa konuya da eklerseniz herkes faydalanmis olur.

Kolay gelsin.

LG-H815 cihazımdan Tapatalk kullanılarak gönderildi

NeuStar · Answer

ReisMedya adlı üyeden alıntı:						mesajı görüntüle									2 basamaklı sayıların başına 1 adet "0" tek basamaklılara 2 adet "0" koyarsanız, yukarıda "Veri" penceresinde "Sıralama" bölümünden otomatik yapabilirsiniz. 								Secret35 adlı üyeden alıntı:						mesajı görüntüle									Merhaba,

Is yerimden konuya yorum yaparken filtreye takildigi icin yorum olarak ekleyemedim ama pm olarak makro yazıp size ilettim. Makroyu deneyerek isinize yararsa konuya da eklerseniz herkes faydalanmis olur.

Kolay gelsin.

LG-H815 cihazımdan Tapatalk kullanılarak gönderildi 		çok teşekkürler arkadaşlar, bende bir yöntem buldum çalıştı..
şöyle soldan 3 basamak alıyorum farklı bir sutuna orada sıralıyorum genişleterek hop sıralanıyor. emeğinize sağlık.
Not, bulana kadar karnım çatladı. emeğinize sağlık yinede eksik olmayın....

Secret35 nickli arkadaşımızın yöntemi; 

Sub Macro1()
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Columns("A:A").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:B1" & lastRow)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=RC[-3] &"" - ""& RC[-2]"
    Range("D1").Select
    Selection.AutoFill Destination:=Range("D1:D1" & lastRow), Type:=xlFillDefault
    Range("D1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("B:B").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
End Sub