Birleştirilmiş hücreleri verileri bozmadan sıralama!!!

[kobra000]

Merhaba arkadaşlar excelden çok az anlamaktayım. Benim ihtiyacım ekteki dosyada örneği olan birleştirilmiş hücreler olan ve sayısal değerlerin olduğu puantajı birleşmiş hücreleri bozmadan sicil numarasına göre sıralamak istiyorum. Bunun için ne yapmalıyım? Bana yardımcı olursanız sevinirim. Ayrıca bu tablo gibi 2.tabloda olursa iki tabloyu en kolay nasıl karşılaştırabilirim??

Teşekkür ederim şimdiden

 

[Ömer BARAN]

Merhabalar. Foruma hoşgeldiniz.
Aşağıdaki kod'u kullanabilirsiniz.
(alt tarafta sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi tıkladığınızda karşınıza gelen ekranda sağ taraftaki boş alana yapıştırın)

Sub SIRALA()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    son = [A65536].End(3).Row + 1
Columns("AH:AH").Insert Shift:=xlToRight', CopyOrigin:=xlFormatFromLeftOrAbove
With Range("AH2:AH" & son)
    .Formula = "=IF(ISEVEN(ROW()),""A""&A2,""A""&A1)"
    .Value = .Value
End With
Columns("A:C").MergeCells = False
Range("A2:AH" & Cells(Rows.Count, "AH").End(3).Row).Sort Key1:=[AH2], Order1:=xlAscending
For sat = 2 To son
    For süt = 1 To 3
        Range(Cells(sat, süt), Cells(sat + 1, süt)).Merge
    Next
sat = sat + 1
Next
Columns("AH").EntireColumn.Delete
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[kobra000]

Merhabalar. Foruma hoşgeldiniz.
Aşağıdaki kod'u kullanabilirsiniz.
(alt tarafta sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi tıkladığınızda karşınıza gelen ekranda sağ taraftaki boş alana yapıştırın)

Sub SIRALA()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    son = [A65536].End(3).Row + 1
Columns("AH:AH").Insert Shift:=xlToRight', CopyOrigin:=xlFormatFromLeftOrAbove
With Range("AH2:AH" & son)
    .Formula = "=IF(ISEVEN(ROW()),""A""&A2,""A""&A1)"
    .Value = .Value
End With
Columns("A:C").MergeCells = False
Range("A2:AH" & Cells(Rows.Count, "AH").End(3).Row).Sort Key1:=[AH2], Order1:=xlAscending
For sat = 2 To son
    For süt = 1 To 3
        Range(Cells(sat, süt), Cells(sat + 1, süt)).Merge
    Next
sat = sat + 1
Next
Columns("AH").EntireColumn.Delete
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

bu kodu nereye yazacağım acaba ömer baran bey

 

[Ömer BARAN]

Cevabımda parantez içinde kırmızı renk ile vurguladığım kısımda nasıl işlem yapacağınız yazılı.