Sayıya göre veri yazma

[mrkync]

Arkadaşlar istediğim olay şu;
Be Ve Ak Diye 2 Tane Sayfam Var Ve Her Sayfada Aylar Bulunmakta,
Be Sayfasında Mayıs Ayında A1 Çiftlik 3 Tane Görüküyor Ben Özet Sayfasında Menuye 3 Tane A1 Çiftlik Yazmasını, Daha Sonra A3 Çiftlik 1 Tane Gözüküyor Hemen Altına A3 Çiftlik Yazacak, Ve O Sayfa Bu Şekilde Bittikten Sonra Diğer Ak Sayfasının Mayıs Ayına Geçecek Ve Yine Aynı Şekilde Oradaki Verilere Göre Tabloya Devamını Yazmasını Ve Bir Önceki Hücreye Sıralama Ve Bir Sonraki Sıraya İse Be Den Alıyorsa B Ak Den Alıyorsa A Yazmasını İstiyorum. Yazınca Karışık Gibi Geliyor Ama Örnek Dosyasında İstediğimi Daha Güzel İzah Ettim. Yardımlarınız İçin Şimdiden Teşekkür Ederim

 

[asi_kral]

Merhaba
Bunu sizin belirlediğiniz aylara göre mi yapacak yoksa tüm liste mi kontrol edilecek.

 

[mrkync]

Her ayı ayrı ayrı verecek ama siz sadece mayıs ayını aldırsanız yeter ben diğer aylara farklı bir sayfa açıp orada formülü değiştirerek alabilirim.

 

[asi_kral]

Her ayı ayrı ayrı verecek ama siz sadece mayıs ayını aldırsanız yeter ben diğer aylara farklı bir sayfa açıp orada formülü değiştirerek alabilirim.

Bu işi formüle yaptırmak oldukça zor makro yazacağım. Onun için tüm bilgileri vermelisiniz_?

 

[mrkync]

TÜm bilgiler derken?

 

[mrkync]

Yapmak istediğim dosyanın orijinali eke koydum

 

[mrkync]

Yardımlarınızı bekliyorum...

 

[Ömer]

Merhaba,

İşinize karışmak gibi olmasın fakat neden her ay için bir safa açtınız. Yılda 12 ay var buda fazladan 11 sayfa demektir. Gereksiz yere dosyayı şişirmek gibi geldi bana.

Bunun yerine tek bir sayfadan ay seçimine göre raporlama daha doğru olmaz mı?

 

[mrkync]

Ömer Bey ne demek işinize karışmak forumun amacı bu; ancak daha sonra her ay üzerinde değişiklik yapılması gerekeceği için bu şekilde ayrı sayfalarda almam gerekiyor.

 

[Ömer]

Bu şekilde deneyin.

Sub Listele()
 
    Dim sut As Byte, ay As String, Sy As Worksheet, syf As Worksheet
    Dim son As Long, i As Byte, j As Byte, k As Long, say As Long, dizi()
 
    dizi = Array("EG", "EB", "BE")
 
    Application.ScreenUpdating = False
 
    sut = 2
    For i = 1 To 12
        ay = Format(CDate("1." & i), "mmmm")
        If varmi("" & ay & "") Then
            Set Sy = Sheets(ay)
            Sy.Range("A2:F" & Rows.Count).Clear
            son = 2
            For j = 0 To UBound(dizi)
                Set syf = Sheets(dizi(j))
                For k = 4 To syf.Cells(Rows.Count, "B").End(xlUp).Row - 1
                    If syf.Cells(k, sut + i) > 0 Then
                        say = syf.Cells(k, sut + i)
                        Sy.Range(Sy.Cells(son, "D"), _
                            Sy.Cells(son + say - 1, "D")) = syf.Cells(k, "B")
                        Sy.Range(Sy.Cells(son, "F"), _
                            Sy.Cells(son + say - 1, "F")) = syf.Name
                        son = son + say
                    End If
                Next k
            Next j
        End If
    Next i
 
End Sub
 
Function varmi(adi As String) As Boolean
    On Error Resume Next
    varmi = CBool(Len(Worksheets(adi).Name) > 0)
End Function

.