2 tarih arası ve seçime göre çizelge oluşturmak

[CenTay]

Selamlar,

Bu çizelge 2 tarih arasında ve b1 de yazan seçime göre, aylık sayfasından tarihe denk gelen bilgilerden oluşacak, mevcut bir koda ilave gerekiyor da olabilir, kod sayfasına yeşil renkle açıklama yaptım,(aşağıdaki gibi)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D1,F1]) Is Nothing Then Exit Sub
If Target = "" Or [D1] > [F1] Then
MsgBox "D1 hücresindeki tarih F1 hücresindeki tarihten büyük olamaz." & vbLf & _
        "D1 ve F1 hücreleri boş bırakılamaz."
Exit Sub
End If
    Call listele
End Sub
Sub listele()
Set S1 = Sheets("AYLIK"): Set s2 = Sheets("ÇİZELGE")
If s2.[B50].End(3).Row <> 1 Then s2.Range("B7:B50").ClearContents
For satır = 4 To 500
    If s2.[D1].Value <= S1.Cells(satır, 2).Value And s2.[F1].Value >= S1.Cells(satır, 2).Value Then _
    s2.Cells(WorksheetFunction.Max(s2.[B65536].End(3).Row + 1, 7), 2) = S1.Cells(satır, 2)
    
'EĞER Çizelge sayfası B1 = "0-1 YAŞ" ise ;
'Çizelge B7:B50 aralığındaki tarihe göre;

'AYLIK sayfası C4  : ÇİZELGE sayfası C7'ye
'AYLIK sayfası D4  : ÇİZELGE sayfası D7'ye
'AYLIK sayfası AL4 (SÜTUN 38): ÇİZELGE sayfası F7'ye
'AYLIK sayfası AM4 (SÜTUN 39): ÇİZELGE sayfası G7'ye
'AYLIK sayfası AR4 (SÜTUN 44): ÇİZELGE sayfası H7'ye
'AYLIK sayfası AS4 (SÜTUN 45): ÇİZELGE sayfası I7'ye
'AYLIK sayfası AX4 (SÜTUN 50): ÇİZELGE sayfası J7'ye
'AYLIK sayfası BA4 (SÜTUN 53): ÇİZELGE sayfası K7'ye
'AYLIK sayfası BD4 (SÜTUN 56): ÇİZELGE sayfası L7'ye
'AYLIK sayfası BG4 (SÜTUN 59): ÇİZELGE sayfası M7'ye

'EĞER Çizelge sayfası B1 = "1-2 YAŞ" ise ;
'Çizelge B7:B50 aralığındaki tarihe göre;

'AYLIK sayfası E4  : ÇİZELGE sayfası C7'ye
'AYLIK sayfası F4  : ÇİZELGE sayfası D7'ye
'AYLIK sayfası AN4 (SÜTUN 40): ÇİZELGE sayfası F7'ye
'AYLIK sayfası AO4 (SÜTUN 41): ÇİZELGE sayfası G7'ye
'AYLIK sayfası AT4 (SÜTUN 46): ÇİZELGE sayfası H7'ye
'AYLIK sayfası AU4 (SÜTUN 47): ÇİZELGE sayfası I7'ye
'AYLIK sayfası AY4 (SÜTUN 51): ÇİZELGE sayfası J7'ye
'AYLIK sayfası BB4 (SÜTUN 54): ÇİZELGE sayfası K7'ye
'AYLIK sayfası BE4 (SÜTUN 57): ÇİZELGE sayfası L7'ye
'AYLIK sayfası BH4 (SÜTUN 60): ÇİZELGE sayfası M7'ye

'EĞER Çizelge sayfası B1 = "3-6 YAŞ" ise ;
'Çizelge B7:B50 aralığındaki tarihe göre;

'AYLIK sayfası G4  : ÇİZELGE sayfası C7'ye
'AYLIK sayfası H4  : ÇİZELGE sayfası D7'ye
'AYLIK sayfası AP4 (SÜTUN 42): ÇİZELGE sayfası F7'ye
'AYLIK sayfası AQ4 (SÜTUN 43): ÇİZELGE sayfası G7'ye
'AYLIK sayfası AV4 (SÜTUN 48): ÇİZELGE sayfası H7'ye
'AYLIK sayfası AW4 (SÜTUN 49): ÇİZELGE sayfası I7'ye
'AYLIK sayfası AZ4 (SÜTUN 52): ÇİZELGE sayfası J7'ye
'AYLIK sayfası BC4 (SÜTUN 55): ÇİZELGE sayfası K7'ye
'AYLIK sayfası BF4 (SÜTUN 58): ÇİZELGE sayfası L7'ye
'AYLIK sayfası BI4 (SÜTUN 61): ÇİZELGE sayfası M7'ye

Next
End Sub

http://s5.dosya.tc/server2/4bar1j/zelge_olusturmak__CenTay-04.07.2016_gunu_.rar.html

 

[Ömer BARAN]

Merhaba.

Belgeye buradan da ulaşabilirsiniz.
.

 

[CenTay]

Ömer bey selamlar, ne kadar teşekkür etsem borcumu ödeyemem Sağol varol küçük bir ayrıntı, 4. Satıra başlık attım ayrıca seçenek düğmelerini silip yenilerini ( 4,5,6 isimlerini aldı) yazdım, ancak seçim yaptığımda tablo değişmedi, ne zamanki hem seçim yapıp hem de tarihi değiştiriyorum o zaman oluyor, sizin orj.belge de sıkıntı olmadı, kendime uygulayınca seçenek düğmesi sıkıntı yaptı, bunu nasıl aşarım. Tekrar tekrar Teşekkürler.

 

[Ömer BARAN]

Merhaba.

Eklediğiniz yeni seçenek düğmelerine (tek tek) sağ tıklayıp,
MAKRO ATAyı seçin ve açılan küçük ekranda LİSTELE makrosunu seçip işlemi onaylayın.
.

 

[CenTay]

Merhaba.

Eklediğiniz yeni seçenek düğmelerine (tek tek) sağ tıklayıp,
MAKRO ATAyı seçin ve açılan küçük ekranda LİSTELE makrosunu seçip işlemi onaylayın.
.

Ömer hocam selamlar problem halloldu teşekkür ediyorum her şey için.İyi ki varsınız.

 

[Ömer BARAN]

Eyvallah, sağlıcakla.