Çözüldü makro ile sıralama

[aliexpress]

merhablar
linkteki dosyada
a Sütununda tarih varken sıralama yapıp satırlar arası boşluk oluşturuyor
tarih kısmını b sütununa taşıyınca hata veriyor yardımcı olabilirseniz sevinirim

siralama_-_Kopya__2_.zip dosyasını indir - download

siralama_-_Kopya__2_.zip dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

Sub sirala()
On Error Resume Next
ss = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If ss < 3 Then Exit Sub
With ActiveSheet
.Sort.SortFields.Clear
.Sort.SortFields.Add Range("A4:A" & ss), xlSortOnValues, xlAscending, xlSortNormal
.Sort.SortFields.Add Range("B4:B" & ss), xlSortOnValues, xlAscending, "deneme3,deneme1,deneme2", xlSortNormal
.Sort.SetRange Range("A4:r" & ss)
.Sort.Apply
End With
ss = Cells(Rows.Count, 1).End(xlUp).Row
If ss < 4 Then Exit Sub
For i = ss - 1 To 4 Step -1
If Month(Cells(i, 1)) <> Month(Cells(i + 1, 1)) Then Rows(i + 1 & ":" & i + 7).Insert Shift:=xlDown
Next i
End Sub

 

[Korhan Ayhan]

Böyle değişiklikler yapınca kodu komple revize etmeniz gerekir.

Aşağıdaki gibi olabilir...

Sub sirala()
    On Error Resume Next
    ss = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
    If ss < 3 Then Exit Sub
    With ActiveSheet
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Range("B4:B" & ss), xlSortOnValues, xlAscending, xlSortNormal
        .Sort.SortFields.Add Range("C4:C" & ss), xlSortOnValues, xlAscending, "deneme3,deneme1,deneme2", xlSortNormal
        .Sort.SetRange Range("A4:T" & ss)
        .Sort.Apply
    End With
    ss = Cells(Rows.Count, 2).End(xlUp).Row
    If ss < 4 Then Exit Sub
    For i = ss - 1 To 4 Step -1
        If Month(Cells(i, 2)) <> Month(Cells(i + 1, 2)) Then Rows(i + 1 & ":" & i + 7).Insert Shift:=xlDown
    Next i
End Sub

 

[aliexpress]

Teşekkür ederim elinize sağlık