Tablodaki verieri ay'a ayrı ayrı sıralamak için yardım rica.

[Korzay]

Merhabalar;

Bir tablo var. Tarihe göre aylık bazda yeni bir sayfada verilerin sıralanmasını istiyorum.

Ek'i incelerseniz daha rahat olacaktır. Teşekkürler.

 

[Murat OSMA]

M1 hücresine bu formülü girin;

[FONT="Trebuchet MS"]=ALTTOPLAM(3;A2:A5000)[/FONT]

Bu kodları da Modüle yazıp F5 tuşuna basın.

[FONT="Trebuchet MS"]Sub Emre()
    Dim i As Byte, tarih, tarihim, tarihimiz
    Application.ScreenUpdating = False
    For i = 1 To 12
        ActiveSheet.ListObjects("Tablo152").Range.AutoFilter Field:=3, Operator:= _
        xlFilterValues, Criteria2:=Array(1, i & "/05/2014")
        If Range("M1").Value = 0 Then
            ActiveSheet.ListObjects("Tablo152").Range.AutoFilter Field:=3
            Exit Sub
        End If
        tarih = i & "/05/2014"
        tarihim = Format(tarih, "mm.dd.yyyy")
        tarihimiz = Format(tarihim, "mmmm")
        Range("A1:K1" & Range("K655536").End(3).Row).Copy
        Sheets("Sayfa1").Select
        Range("A65536").End(3)(2, 1) = tarihimiz
        Range("A65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Columns.AutoFit
        Columns("C:C").NumberFormat = "m/d/yyyy"
        Application.CutCopyMode = False
        Sayfa1.Select
    Next i
    Application.ScreenUpdating = True
End Sub[/FONT]

 

[Korzay]

Cevap için teşekkürler ancak modüle yazın kısmını anlayamadım ? Modül den kastınız nedir ?

 

[Murat OSMA]

Formülü M1 hücresine girdikten sonra,
Sayfadayken Alt tuşuna basılı tutun ve F11 tuşuna basın.
Açılan pencerenin üstteki menülerinden önce Insert'i ardından da Module' yi seçin.
Açılan sayfaya verdiğim kodları yapıştırın ve F5 tuşuna basın.

 

[Korzay]

Yardım için teşekkürler.

 

[Murat OSMA]

Rica ederim, iyi akşamlar.