Verilerin Tasnifi

[gertt]

Merhaba.
A3:A500 arasındaki verileri nasıl tasnif edebiliriz?

Örnek dosyayı ekledim.

Teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Duzenle()
    
    Dim i As Long, j As Byte, son As Long
    
    Range("B3:E" & Rows.Count).ClearContents
    
    For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row
        For j = 2 To 5
            son = Cells(Rows.Count, j).End(xlUp).Row + 1
            If Cells(i, "A") Like Cells(2, j) & "*" Then
                Cells(son, j) = Cells(i, "A")
            End If
        Next j
    Next i
            
End Sub

.

 

[gertt]

Ömer Bey,teşekkürler.Elinize sağlık.