SÜTUNA takvim yazdırma

[hasanozcan]

1 sütüna otamatik olarak 1 yıllık takvimi nasıl yazdırabilirim

 

[mustafa1205]

İlk satıra bugünün tarihini ikinci satıra yarının tarihini yazın ve mouse ile imleci aşağı doğru çekmeniz yeterli.

 

[Necdet]

Merhaba,

Birkaç yöntemle çözülebilir.

En basit şekli

İlk Hücreye yılın ilk gününün tarihini
ikinci hücreye yılın ikinci gününn tarihini yazın
sonra bu iki hücreyi seçip, ikinci hücrenin sağ altındaki noktaya tıklayıp basılı tutarak aşağıya doğru çekerseniz tarihler sıralanır.

2. yöntem

İlk hücreye yılın ilk gününü yazın
Bu hücre ile birlikte aşağıya doğru bir sürü sutun seçin
Seriler kısmına girin
Seri yeri : Sütun
Tür : Tarih
Tarih Birimi : Gün
Adım Değeri : 1
Tamam

3. yöntem ve otomatik olanı
içinde bulunduğumuz yıla göre tarihler kontrol edilir.

A1: Başlık
A2 :

=EĞER(YIL(TARİH(YIL(BUGÜN());1;SATIR(A1))) = YIL(BUGÜN());TARİH(YIL(BUGÜN());1;SATIR(A1));"")

A2 hücresini aşağıya istediğiniz kadar kopyalayın, yıl değiştiğinde göstermeyecektir.


Şimdilik aklıma gelen yöntemler bunlar. Seçim sizin.

 

[mustafa1205]

Necdet Hocam affınıza sığınarak örnek bir dosya hazırladım. Acizane birşeyler yapmaya çalıştım.

 

[Necdet]

Necdet Hocam affınıza sığınarak örnek bir dosya hazırladım. Acizane birşeyler yapmaya çalıştım.

Rica ederim.

Bende bir örnek vereyim makroyla ilgili.

A1 in başlık olduğunu varsaydım.

Sub Tarih_Yaz()
    
    Dim i   As Integer
    
    Range("A2") = DateSerial(Year(Date), 1, 1)
    
    i = DatePart("Y", DateSerial(Year(Date), 12, 31)) + Range("A2").Row - 1
    
    Range("A2:A" & i).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
        xlDay, Step:=1, Trend:=False
    
End Sub

 

[lsagirdak]

Necdet Hocam affınıza sığınarak örnek bir dosya hazırladım. Acizane birşeyler yapmaya çalıştım.

Bu takvimi satırlara değilde sütünlara nasıl yazdırabiliriz?

 

[Murat OSMA]

Müsadenizle...


A2:A366 satırlarını seçip kopyalayın, B2 hücresini seçerek sağ tıklayın ve Özel Yapıştırı seçin, sağ alt köşedeki İşlemi Tersine Çeviri seçip Tamam butonuna basın.

 

[lsagirdak]

Müsadenizle...


A2:A366 satırlarını seçip kopyalayın, B2 hücresini seçerek sağ tıklayın ve Özel Yapıştırı seçin, sağ alt köşedeki İşlemi Tersine Çeviri seçip Tamam butonuna basın.

Sayın Murat Osma öncelikle ilginize teşekkür ederim aşağıdaki hatayı alıyorum

 

[Murat OSMA]

Necdet Bey'in kodlarının sonuna şu kodları ilave edin;

Range("A2:A366").Copy
Range("B2").PasteSpecial Paste:=xlPasteAll, Transpose:=True

Not: Ofis versiyonunuzun 2003 üzeri bir versiyon olması gerekir.

 

[lsagirdak]

Murat Bey

yine aynı hatayı veriyor.



Edit :dosyayı xlsm uzantılı kaydedince çözüldü teşekkürler