otomatik tarih doldurma

[batuhan5252]

exel de aylık çizelgeler çıkartmaktayım fakat her ay tarihi elimle dolduruyorum
bunun içi tek tuş ile düzenlemek için ayı seçip tıkladığımda çizelgedeki tarih yerlerini 1 ay olacak şeklide otamatik tarihleri yazmasını istiyorum
yardımlarınız için şimdiden teşekkür ederim

 

[Korhan Ayhan]

Merhaba,

Linki inceleyerek profilinizi güncellemenizi rica ederim.

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr

 

[batuhan5252]

Merhaba,

Linki inceleyerek profilinizi güncellemenizi rica ederim.

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr

Ofis 2016 TR 32 Bit

 

[Korhan Ayhan]

Bahsettiğiniz tarihler bir sütunda alt alta mı listelenecek? Yoksa satırda sağa doğru mu listelenecek?

 

[batuhan5252]

Bahsettiğiniz tarihler bir sütunda alt alta mı listelenecek? Yoksa satırda sağa doğru mu listelenecek?

alt alta örnek olarak çizelgenin boşunu ekledim

 

[Korhan Ayhan]

İşlemi yapacağınız sayfanızın kod bölümüne aşağıdaki kodu uygulayınız.

A sütunundaki hücrelere çift tıkladığınızda kod çalışacaktır. Sizden AY değerini isteyecektir. (1-12 arası)
İçinde bulunduğumuz yıla göre tarih oluşacaktır.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Ay As Variant, X As Integer, Tarih As Date
   
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
   
    Cancel = True
   
    Ay = InputBox("Lütfen sayısal olarak ay bilgisini giriniz...", "AY", 1)
    If Ay >= 1 And Ay <= 12 Then
        Range("A5:A59,A67:A121,A129:A183").ClearContents
       
        Tarih = DateSerial(Year(Date), Ay, 1)
        For X = 5 To 179
            If X = 60 Then X = 67
            If X = 122 Then X = 129
            Cells(X, 1) = Tarih
            If Month(Tarih) <> Month(Tarih + 1) Then Exit Sub
            Tarih = Tarih + 1
            X = X + 4
        Next
    Else
        MsgBox "1-12 arası bir değer girmelisiniz!", vbCritical
    End If
End Sub

 

[batuhan5252]

İşlemi yapacağınız sayfanızın kod bölümüne aşağıdaki kodu uygulayınız.

A sütunundaki hücrelere çift tıkladığınızda kod çalışacaktır. Sizden AY değerini isteyecektir. (1-12 arası)
İçinde bulunduğumuz yıla göre tarih oluşacaktır.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Ay As Variant, X As Integer, Tarih As Date
   
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
   
    Cancel = True
   
    Ay = InputBox("Lütfen sayısal olarak ay bilgisini giriniz...", "AY", 1)
    If Ay >= 1 And Ay <= 12 Then
        Range("A5:A59,A67:A121,A129:A183").ClearContents
       
        Tarih = DateSerial(2024, Ay, 1)
        For X = 5 To 179
            If X = 60 Then X = 67
            If X = 122 Then X = 129
            Cells(X, 1) = Tarih
            If Month(Tarih) <> Month(Tarih + 1) Then Exit Sub
            Tarih = Tarih + 1
            X = X + 4
        Next
    Else
        MsgBox "1-12 arası bir değer girmelisiniz!", vbCritical
    End If
End Sub

yapamadım ama nasıl yapıştıracağım

 

[Korhan Ayhan]

Sayfa ismi üzerinde sağ tıklayıp "KOD GÖRÜNTÜLE" diyerek açılan beyaz alana önerdiğim kodu yapıştırın. Sonra dosyayı "Makro İçerebilen Excel Çalışma Kitabı" biçiminde kayıt ediniz.

 

[batuhan5252]

Sayfa ismi üzerinde sağ tıklayıp "KOD GÖRÜNTÜLE" diyerek açılan beyaz alana önerdiğim kodu yapıştırın. Sonra dosyayı "Makro İçerebilen Excel Çalışma Kitabı" biçiminde kayıt ediniz.

YARDIMLARINIZ İÇİN TEŞEKKÜR EDERİM YIL DEĞİŞTİĞİ ZAMAN NASIL YAPACAĞIM

 

[Korhan Ayhan]

Önerdiğim kodu revize ettim. YIL kısmı içinde bulunduğunuz yıla göre dinamik olarak çalışacaktır.