Sütunları belirli kritere göre sıralamak.

[unur]

Merhaba arkadaşlar;
Sayfa2 nin A sütununda oluşturduğum bir kriter oluşturdum.Sayfa1 deki bilgileri sütun olarak Sayfa2 deki kriterlere göre sıraya koyabilirmiyiz.Dosya Ektedir.Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub DÜZENLE()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Integer, BUL As Range
    
    Application.ScreenUpdating = False
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    For X = 2 To S2.Cells(Rows.Count, 1).End(3).Row
        Set BUL = S1.Rows(1).Find(S2.Cells(X, 1), , , xlWhole)
        If Not BUL Is Nothing Then
            If X - 1 <> BUL.Column Then
                BUL.EntireColumn.Cut
                Columns(X - 1).Insert Shift:=xlToRight
            End If
        End If
    Next
    
    S1.Cells.EntireColumn.AutoFit
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[unur]

Korhan Bey çok Teşekkürler. Emeğinize ve bilginize sağlık.