Verileri sınıflandırma

[odinnn]

Merhabalar...

Ekteki dosyada gerekli açıklamaları yaptım. Özet olarak istediğim şey bir tablodaki dağınık verilerin değerlerine göre başka bir tabloda başlıklar altında sınıflandırılması.

Şimdiden çok teşekkür ederim...

 

[Muhammet Okumuş]

Merhaba,

Sub Grupla()
alt = Cells(Rows.Count, "A").End(3).Row
Range("B1:B" & alt) = "=LEFT(A1,1)"

For i = 1 To alt
süt = Cells(i, 2) + 2
son = Cells(100, süt).End(3).Row + 1
Cells(son, süt) = Cells(i, 1).Value
Next
Range("B1:B" & alt) = ""
End Sub

Kodu deneyiniz.

 

[omerceri]

Aşağıdaki kod A sütunundaki verileri G sütununa başlıklarla birlikte sıralıyor.

Sub Makro1()
Columns("A:A").Copy Columns("G:G")
   Columns("G:G").Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Range("G1").Insert Shift:=xlDown
Range("G2").Select
Do While ActiveCell.Value <> ""
If Mid(ActiveCell, 1, 1) > Mid(ActiveCell.Offset(-1, 0), 1, 1) And ActiveCell.Offset(-1, 0) <> "" Then
ActiveCell.Insert Shift:=xlDown
ActiveCell.Value = Chr(Mid(ActiveCell.Offset(1, 0), 1, 1) + 64) & " GRUBU"
End If
ActiveCell.Offset(1, 0).Select
Loop
Range("G1").Value = Chr(Mid(Range("G2"), 1, 1) + 64) & " GRUBU"
End Sub

Not: Bu kodlar, Grup Harflerinde Ç,İ gibi Türkçe karakterler kullanmıyor

 

[odinnn]

Her ikinize de çok teşekkür ederim. Çok işime yarayacak.