Tabloda birden fazla satır a filtre uygulayıp başka tabloya yazma

[cyberem]

Merhabalar,


elimde 35 satırlı bir tablo var burada, tarih, açıklama, giriş, çıkış diye 5 sütun var. Bu tablodan "M" olarak işaretleri olanlardan ayın 1 ile 10 arasındaki bir tabloya, 11-20 arası başka bir tabloya, 21-30 u da başka bir tabloya tarih, açıklama ve çıkış sütünlarını göstermek istiyorum bunun için aklıma gelen şekillerde arama yaptım fakat sonuca ulaşamadım bunun bir yolu var mıdır? yoksa kopyala yapıştır a devam mı etmeliyim, yardımlarınızı beklemekteyim.

saygılarımla

 

[Orion1]

örnek dosya için link veriniz.M sütunu hangi sütunda mesela.Link eklerseniz daha net ve çabuk yanıt alabilirsiniz.

 

[cyberem]

ilginiz için teşekkürler dosyamın linki

https://drive.google.com/file/d/0B5vjp42EG2rRSWJQSTA0am9sZjA/view?usp=sharing

 

[veyselemre]

Sub onarGunlukBol()
    [k8:u29].ClearContents
    sut1 = 11: sut2 = 15: sut3 = 19
    sat1 = 7: sat2 = 7: sat3 = 7
    For i = 4 To Cells(Rows.Count, 1).End(3).Row
        If Not IsDate(Cells(i, 1)) Or Cells(i, 6) <> "M" Then GoTo atla
        gun = Day(Cells(i, 1))
        Select Case gun
        Case 1 To 10
            sat1 = sat1 + 1
            sat = sat1: sut = sut1
        Case 11 To 20
            sat2 = sat2 + 1
            sat = sat2: sut = sut2
        Case 21 To 30
            sat3 = sat3 + 1
            sat = sat3: sut = sut3
        End Select
        With Cells(sat, sut)
            .Value = Cells(i, 1)
            .Offset(0, 1).Value = Cells(i, 2)
            .Offset(0, 2).Value = Cells(i, 5)
        End With
atla:
    Next i
End Sub

 

[cyberem]

Hocam çok teşekkürler tam istediğim gibi oldu, elinize yüreğinize sağlık.