Tarih Aralığını Takvim Günlerine İşlemek

[speech_free]

Herkese merhaba,

Yapmaya çalıştığım şeyi kısaca açıklamak istiyorum.

12 tane sayfamız var. Her birinde aylık takvim var. Ocak, Şubat, Mart, Nisan şeklinde gidiyor. Her ay içinde de toplamda 6 hafta bulunuyor. Örneğin C2 Pazartesi, D2 Salı, E2 Çarşamba şeklinde devam ediyor. C3 hücresinde tarih yazılı. (06/06/2017 formatında) D3 ve E3 hücresinde de aynı şekilde tarih yazılı. Her tarihin altında da 5 adet satır bulunuyor.

Başlangıç Tarihi: 25/06/2017
Bitiş Tarihi: 10/07/2017
Personel: Kişi A
İzin Durumu: İzin Verildi

Kişi A'nın ismini bu takvim sayfalarında ilgili tarihlerin altında yer alan satırlara yazdırmak mümkün mü? 25/06/2017 tarihinin altındaki ilk satırda Kişi A yazacak. Sonra 26/06/2017 tarihinin altında yer alan ilk satırda gene Kişi A yazacak. Bu şekilde 10/07/2017 tarihine kadar ismi yazılacak. İzin durumu izin verildi değilse isim yazılmayacak.

5 adet satır bulunmasının sebebi aynı tarihte birden fazla personel ismi olabilir ve bunların alt alta gözükmesini istiyoruz.

Bir butona basıldığında bütün takvim sıfırdan bu verilerle doldurulacak. Umarım yeterince açıklayıcı olmuştur. İstenirse yarın örnek dosya da ekleyebilirim.

Teşekkür ediyorum.

 

[YUSUF44]

Sorunu çözebilmemiz için aynı dosya yapısını oluşturup ona göre kod yazmamız gerekiyor. Mesajınızda da belirttiğiniz gibi böyle kapsamlı işlerde ve hatta nerdeyse tüm sorularınızda örnek dosya eklemeniz iyi olur.

 

[speech_free]

Teşekkür ederim Yusuf Bey. Gün içerisinde yetiştirebilirsem ekleyeceğim. Olmazsa yarın eklerim.

 

[speech_free]

Herkese tekrar merhaba. Ancak vakit bulup da örnek dosyayı hazırlayabildim. Gerekli açıklamalar 2. Çeyrek sayfasında mevcuttur.

http://www.dosya.tc/server8/u1aqv6/deneme-takvim.rar.html

Teşekkür ediyorum.

 

[speech_free]

Sanırım belli bir tarih aralığını kendi günlerine takvimde işlemek olmuyor.

 

[speech_free]

Konu günceldir. Yardımcı olabilecek üstadlarımı bekliyorum. En azından bir yol gösterilse belki araştırarak çözmeye çalışabilirim.

 

[speech_free]

Yavaş yavaş ümidimi kesiyorum. Sanırım istediğim yapılabilecek birşey değil.

 

[speech_free]

Herkese tekrar merhaba. İhtiyacım ile ilgili şöyle bir kod buldum.

Sub WriteDates()
    'Updateby20150305
    Dim rng As Range
    Dim StartRng As Range
    Dim EndRng As Range
    Dim OutRng As Range
    Dim StartValue As Variant
    Dim EndValue As Variant
    xTitleId = "Tarih Aralığı Seçme"
    Set StartRng = Application.Selection
    Set StartRng = Application.InputBox("Start Range (single cell):", xTitleId, StartRng.Address, Type:=8)
    Set EndRng = Application.InputBox("End Range (single cell):", xTitleId, Type:=8)
    Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
    Set OutRng = OutRng.Range("A1")
    StartValue = StartRng.Range("A1").Value
    EndValue = EndRng.Range("A1").Value
    If EndValue - StartValue <= 0 Then
        Exit Sub
        End If
        ColIndex = 0
        For i = StartValue To EndValue
            OutRng.Offset(ColIndex, 0) = i
            ColIndex = ColIndex + 1
        Next
    End Sub

Bu kod A1 ve B1 hücrelerinde yazılı olan tarihleri açılan pencerelerde seçilen hücrelere göre başka seçilen bir hücreden itibaren listeliyor. Bunu yaparken acaba bütün satırı listeleme şansımız var mıdır?

Yardımlarınız için teşekkür ederim.