Hücre Değeri Büyük İse Yandaki Hücre ile Yer Değiştirme

[ottoman71]

Merhaba Arkadaşlar,
G sütunundaki değerler malzemeye ait En'i, H sütunundaki değerler ise malzemeye ait Boy'u ifade etmektedir.
G sütununda bulunan hücre değerleri H sütunundaki hücre değerinden büyük ise birbiri ile yer değiştirsin....
Şeklinde bir makroya ihtiyacım var yardımcı olur musunuz?
Kolay gelsin.

 

[hamitcan]

Sub Degistir()
    For i = 2 To [a65536].End(3).Row
        a = Cells(i, 1)
        b = Cells(i, 2)
        If a > b Then
            Cells(i, 1) = b
            Cells(i, 2) = a
        End If
    Next
End Sub

 

[ottoman71]

Hamitcan Hocam;
Çok teşekkur ederim.
İyi çalışmalar.