Exel Sayı SIralama

[Teo2013]

Excel Sayı SIralama

Merhaba

Benim A Sütununda ve B Sütununda aynı sayılar var fakat yerleri değişik.

Ben A sütünün daki sayıların aynı sıralamasını B Sütünda'da yapmak istiyorum.

Yani B sütunundaki sayıları A sütundaki sayılar gibi sıralayacak.

Örnek

Teşekkürler

 

[turist]

İki sütunda da aynı sayılar varsa;
her iki sütun için Veri menüsünden A-Z sıralama yapın.

Bilgi için, bakınız:
http://office.microsoft.com/tr-tr/excel-help/HP010342909.aspx?CTT=1#_Toc246836976

 

[Teo2013]

İki sütunda da aynı sayılar varsa;
her iki sütun için Veri menüsünden A-Z sıralama yapın.

Bilgi için, bakınız:
http://office.microsoft.com/tr-tr/excel-help/HP010342909.aspx?CTT=1#_Toc246836976

Sütün A daki sayılar Aynı yerinde kalmalı sadece sütün B sütün A gibi olmalı böyle yaptığım zaman her ikiside değişiyor.

 

[turist]

Sütün A daki sayılar Aynı yerinde kalmalı sadece sütün B sütün A gibi olmalı böyle yaptığım zaman her ikiside değişiyor.

A ve B den başka sütunda veri bulunuyor mu?
Listeniz sadece A ve B sütunlarında mı?

 

[Orion1]

Sütün A daki sayılar Aynı yerinde kalmalı sadece sütün B sütün A gibi olmalı böyle yaptığım zaman her ikiside değişiyor.

Dosyanız ektedir.

Sub sırala59()
Dim i As Long, sat1 As Long, sat2 As Long, sayi As Double
Dim k As Range
sat1 = Cells(Rows.Count, "A").End(xlUp).Row
sat2 = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To sat1
    Set k = Range("B2:B" & sat2).Find(Cells(i, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        sayi = k.Value
        k.Value = Cells(i, "B").Value
        Cells(i, "B").Value = sayi
    End If
    Set k = Nothing
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[Teo2013]

Dosyanız ektedir.

Sub sırala59()
Dim i As Long, sat1 As Long, sat2 As Long, sayi As Double
Dim k As Range
sat1 = Cells(Rows.Count, "A").End(xlUp).Row
sat2 = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To sat1
    Set k = Range("B2:B" & sat2).Find(Cells(i, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        sayi = k.Value
        k.Value = Cells(i, "B").Value
        Cells(i, "B").Value = sayi
    End If
    Set k = Nothing
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

Yardımlarınız için teşekkürler

 

[mila12]

Merhaba banada böyle bir şey lazım fakat bunun gelişmiş halini nasıl yapabiliriz.