Tarihi Sıralı Yazdırma

[ZorBey_]

Merhaba
İyi Akşamlar
İyi Çalışmalar
Arkadaşlar
Sutunlara Günleri
Yazdırmak İstiyorum

Başlangıç Gününden İtibaren
İstenen Gün Sayısı Kadar

F4 Başlangıç Günü
B4 İstenen Gün Sayısı

Her Sutuna Ayrı Ayrı
Ayların Günlerini Yazdırmak İstiyorum
Bu Konuda Yardımınızı Rica Ediyorum.

 

[apocalyt]

Merhaba
bir modüle kopyalayıp çalıştırınız..

Sub deneme()
Range("b7:m37").ClearContents
a = 0
For Z = 2 To 13
For x = 7 To 37
y = Array("31.01.2013", "28.02.2013", "31.03.2013", "30.04.2013", "31.05.2013", "30.06.2013", "31.07.2013", "31.08.2013", "30.09.2013", "31.10.2013", "30.11.2013", "31.12.2013")
If a = Sheets(1).Cells(4, "b") + 1 Then
Exit Sub
End If
b = CDate(Cells(4, "f") + a)
If b <= CDate(y(Z - 2)) Then
Sheets(1).Cells(x, Z) = Cells(4, "f") + a
a = a + 1
Else
Exit For
End If
Next x
Next Z
End Sub

 

[ZorBey_]

Merhaba
İyi Çalışmalar
İlgilendiğiniz İçin
Teşekkür Ederim
Hatalı Bir Durum Var
Resimdeki Gibi.

 

[apocalyt]

ben dosyanıza şimdi tekrardan kopyalayıp denedim..problem vermiyo ..:S

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Sağolun

Hatalı = 31.01.2013
Düzeltme = 31/01/2013
Şimdi Günleri Getiriyor.
Fakat
Başlangıç Tarihine
Örneğin = 15 Şubat 2013 Yazalım
Şubat Ayını C Sutununda Sıralama Yapıyor
Başlangıç Sutunumuz Hangi Ayı Yazarsak Yazalım
B Sutunu Olarak Ayarlama
İmkanınız Varmı Acaba
B6 Daki Ay Adlarını Formülle
Getirmeyi Düşünüyorum
Hata Bende o Ayrıntıyı Gözden Kaçırmışım
Teşekkür Ederim İyi Çalışmalar.

 

[ZorBey_]

Birde
365 Günden Fazla Yazamıyorum
Örneğin 1000 Gün Yazamıyorum

 

[ZorBey_]

Örneğin
25 Temmuz 2013 Yazalım
854 Gün Sonra
26 Kasım 2015 E
Kadar Ayları
B7 Hücresi
25 Temmuz 2013
Ten Başlamak ÜZere
Diğer Günler
B Sutunu Temmuz Ayı İçin
///////////////////
C Sutunu
C7 Hücresi 1 Ağustos 2013
Ten Başlıyor
///////////////////
D Sutunu
D7 Hücresi 1 Eylül 2013
Ten Başlamak Üzere Ve Diğerleri

 

[apocalyt]

şu kodu deneyin..

Sub deneme()
Range("b7:dz37").ClearContents
a = 0
t = 1
For son = Mid(Sheets(1).Cells(4, "f"), 10, 1) To Mid(Sheets(1).Cells(4, "f") + Sheets(1).Cells(4, "b"), 10, 1)
For Z = 2 To 1300
For x = 7 To 1000
y = Array("31.01.201" & son, "28.02.201" & son, "31.03.201" & son, "30.04.201" & son, "31.05.201" & son, "30.06.201" & son, "31.07.201" & son, "31.08.201" & son, "30.09.201" & son, "31.10.201" & son, "30.11.201" & son, "31.12.201" & son)
If a = Sheets(1).Cells(4, "b") + 1 Then
Exit Sub
End If
b = CDate(Cells(4, "f") + a)
If Mid(b, 7, 4) > "201" & son Then
GoTo gel
End If
If b <= CDate(y(Z - 2)) Then
p = p + 1
If p = 1 Then
t = t + 1
End If
Sheets(1).Cells(x, t) = Cells(4, "f") + a
a = a + 1
Else
p = 0
Exit For
End If
Next x
Next Z
gel:
t = t + 1
Next son
End Sub

 

[ZorBey_]

Sayın
apocalyt
İyi Akşamlar
Sizide Yordum
Hakkınzı Helal Edin
Hata Verdi Dosyayı Ekledim.

 

[ZorBey_]

Sizin Yazdığınız Koda
İlave Yapmaya Çalıştım
5 Yıl 1825 Gün Sıralama Yapıyor
Fakat Şubat Yazınca C Sutununda Sıralama YApıyor
B Ye Alamadım.

 

[apocalyt]

sayın asr önemli değil..sizde hakkınızı helal edin...ancak dosyanızı inceliyorum..bende hata vermiyo..anlıyamıyorum neden böle oluyo :S

 

[ZorBey_]

Şimdi Bende
Hatanın Nerede Olduğunu Bulmaya Çalışıyordum
Çalıştı Bu Seferde Mart Yazıyorum
Haziranı Getiriyor

 

[ZorBey_]

İSterseniz 10.Mesajdaki
Çalışan Dosyada Düzenleme Yapabilirmiyiz
O Dosya 1825 Günlük Çalışıyor

 

[apocalyt]

sayın asr dosyayı yükledim..denemeler yaptım..7000 güne kadar sıkıntısız çalışıyo. umarım gene hata vermez..anlıyamadığım bende hata vermeyen sizde nasıl hata veriyo :s

 

[ZorBey_]

Sayın
apocalyt
Evet Sayenizde Güzel Bir
Çalışma Oldu Fakat Bende Yine
Hata Verdi Ama Bu Defa Başka Bir Satırda
Hata Bende Sizde Değil
Hatayı Bulmaya Çalışıyorum.

 

[apocalyt]

bu hatayı alırken hangi tarihi yazdınız..ve kaç gün olarak belirlediniz..

 

[ZorBey_]

Şu Anda
Tarih
1 Ekim 2014
Gün 91 ÇAlışıyor
Gün 92 VE Sonrası Hata VEriyor

 

[apocalyt]

sayın asr deniyorum hata vermiyo..kodlarda hiç bir problem yok..sorun farklı bişey..onuda anlıyamıyorum..

 

[ZorBey_]

Sayın
apocalyt
Size çok Teşekkür Ederim
Bu Saate Kadar Bana YArdımcı
Oldunuz Sizi Yordum
Hakkınızı Helal Edin
Allah Razı Olsun
Bende Bir Hata Var
Onu Bulmaya Çalışıcam.

 

[apocalyt]

ne demek..gönül isterdi tam randıman alalım ama
sizdende razı olsun..