Otomatik tarih dökümü

[xternet]

Merhaba arkadaşlar

Yaklaşık 10 ayın (Eylül-Haziran arası) tarih ve günlerini listelemek istiyorum. İlk tarihi ben belirliycem. Devamı alt alta sıralanıcak. Yani ben ilk tarihi 01.09.2008 Pazartesi verdiğimde devamı aşağıdaki gibi sıralanacak. Bu mümkün mü?

01.09.2008 PAZARTESİ
02.09.2008 SALI
.
.
.
.
30.06.2009 SALI

 

[Ömer]

Merhaba,

Belirleme tarihinin A1 hücresinde olduğunu düşünürsek.

=$A$1+SATIR(A1)-1

Bu formülü herhangi bir hücreye yazarak alt satırla kopyalayınız.

Formülü yazdığınız hücrenin biçimini;

gg.aa.yyyy gggg

olarak değiştiriniz..

.

 

[xternet]

Sorun nerede çözemedim. Dediğiniz gibi sonuç alamadım. Sanırım hücre biçimlendirmelerinde sorun yaşıyorum.

Bu arada konum ile alakalı bir noktayı daha sorayım.
ilk değer olarak örneğin Pazartesi dediğimde, alt alta

Salı
Çarşamba
Perşembe
.
.
Şeklinde liste oluşturabilir miyim?

 

[sinbade]

Pazartesi yazdığınız hücrenin köşesinde imleç + işaretine dönüştüğünde tutut aşağıya doğru sürükleyin..

 

[xternet]

Teşekkür ederim sayın sinbade. Benim isteğim sadece ilk günü girince devamının gelmesi idi.
Ancak sorunumu başka şekilde aştım sanırım. Size ve sayın espiyonajl a teşekkür ederim.

İyi çalışmalar.

 

[sinbade]

İlk sorunuzun makro ile çözümü

1 A1 hücresi seçiliyor.
2 seçilen hücre uzun tarih olarak biçimlendiriliyor. isterseniz bu komut satırını silebilirsiniz.
3 A1 hücresindeki tarihe göre alta doğru 300 günün tarihi yazdırılıyor.

Sub Makro1()
    Range("A1").Select
    
    Selection.NumberFormat = "[$-F800]dddd, mmmm dd, yyyy" 
    'seçilen hücreyi "01 Eylül 2008 Pazartesi" şeklinde biçimlen _
    dirir. Biçimlendirmeyi elle yapacaksanız bu satırı kaldırabilirsiniz.
    
    Selection.AutoFill Destination:=Range(ActiveCell, ActiveCell.Offset(300, 0)), Type:=xlFillDefault 
    '300 gün olarak ayarladım. Siz arzunuza göre bir rakam girin.
End Sub

 

[xternet]

Sayın sinbade, çözümünüz için çok teşekkür ediyorum.
İyi çalışmalar.