makro ile tarihe ay ekleme

[bulentcigali]

iyi akşamlar,
forumda tarihe ay ekleme ile ilgili makro ile yapılmış bir çözüm bulamadım.
16/07/2010 tarihinde ay a 3 ekleyip 16/10/2010 olmasını nasıl yapabilirim.teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub TARİHE_AY_EKLE()
    Dim Tarih As Date
    
    Tarih = Date
    MsgBox DateSerial(Year(Tarih), Month(Tarih) + 3, Day(Tarih))
End Sub

 

[bulentcigali]

teşekkür ederim korhan ayhan elinize sağlık.

 

[Orion1]

Alternatif.

Dim tarih As Date, son_tarih As Date
tarih = Date
son_tarih = DateAdd("m", 3, tarih)
MsgBox son_tarih

 

[kargaşlar]

makroya gün ekleme olarak değiştirdiğimde hata veriyor.bir de gün sayısını da bir hücreden atamam gerek.c1 de bulunan sonucu 3 e bölüp gün sayısı elde ediceğim bunu da tarihe ekleyeceğim.yardımcı olursanız sevinirim.

 

[YUSUF44]

Sayın Korhan Ayhan'ın kodlarından yola çıkarak elde edebileceğiniz aşağıdaki kodlar bugünün tarihine C1'deki sayının 1/3'ünü ekleyip mesaj olarak gösterir:

Option Explicit

Sub TARİHE_GÜN_EKLE()
    Dim Tarih As Date
    
    Tarih = Date
    MsgBox DateSerial(Year(Tarih), Month(Tarih), Day(Tarih) + [c1] / 3)
End Sub

Aşağıdaki şekilde olursa B1 Hücresindeki tarihe C1 hücresindeki sayının 1/3'ünü ekleyip D1 hücresine yazar:

Sub TARİHE_Hücreden_Gün_EKLE()
    Dim Tarih As Date
    
    Tarih = [B1]
    [D1] = DateSerial(Year(Tarih), Month(Tarih), Day(Tarih) + [c1] / 3)
End Sub

Aynı işlemi şu kod da yapar:

Sub TARİHE_Hücreden_Gün_EKLE_2()
    Dim Tarih As Date
    [D1] = DateSerial(Year([B1]), Month([B1]), Day([B1]) + [C1] / 3)
End Sub

 

[Emir Hüseyin Çoban]

makroya gün ekleme olarak değiştirdiğimde hata veriyor.bir de gün sayısını da bir hücreden atamam gerek.c1 de bulunan sonucu 3 e bölüp gün sayısı elde ediceğim bunu da tarihe ekleyeceğim.yardımcı olursanız sevinirim.

. . .

Küsüratlı çıkan bölme işlemlerinde, sayı yuvalaması yapılacak mı ?

Format(Date + (Range("C1") / 3), "DD.MM.YYYY")

. . .

 

[kargaşlar]

. . .

Küsüratlı çıkan bölme işlemlerinde, sayı yuvalaması yapılacak mı ?

Format(Date + (Range("C1") / 3), "DD.MM.YYYY")

. . .

3 e bölmemin sebebi şu; fabrikada vardiya sayısı 3 eğer üretim için 20 vardiya yapıcaksam kalan iki vardiyayı 7.günün ilk iki vardiyası olarak gösterebilir miyim?