tarihe AY eklemek

[necip54]

Herkese iyi günler,
a1 hücresinde 31.01.2007 seklinde tarih var ve aynı kolonda a2,a3,a4,.... hücrelerine ay eklenecek formülü nasıl yazabiliriz, yani aşağıya doğru birer ay artarak gidecek.
Sayın Necdet Yetişener bey için çok kolay bir soru.

Şimdiden çok teşekkürler

necip54

 

[Necdet]

Sayın necip54,

Siz çok yaşayın emi, beni çok güldürdünüz. Soyadım YEŞERTENER, siz yazmışsınız YETİŞENER, yani beni hızır olarak mı gördünüz ne

Sorunuzun çözümü kolay :

=date(year(A1);Month(A1)[B][COLOR=red]+15[/COLOR][/B];day(a1))
=TARİH(YIL(A1);AY(A1)[B][COLOR=red]+15[/COLOR][/B];GÜN(A1))

Kırmızı rakamlar eklenecek ayı gösteriyor.

 

[necip54]

Sayın Necdet bey, soyadınızı yanlış hatırladığım için özür dilerim, ama dediğiniz gibi hızır gibi yetiştiniz, çok sağolun.
necip54

 

[necip54]

Sayın Necdet bey,
Soyadınızı yanlış hatırladığım için çok özür dilerim, yardımız için ve de benim hatama yaklaışm tarzınız ve hoşgörünüz için ayrıca teşekkür ederim.

 

[asada11]

arkadaşlar bir sıkıntım var yardımcı olursanız sevinirim

sayın yetkililer

elimde şöyle bir veri var buna 7 ay eklemek istiyorum
yardımcı olursanız sevinirim

(38 yıl 4 ay 13 gün) tek hücre içinde yazılı buna 7 ay eklemek için


teşekkurler

 

[Necdet]

arkadaşlar bir sıkıntım var yardımcı olursanız sevinirim

sayın yetkililer

elimde şöyle bir veri var buna 7 ay eklemek istiyorum
yardımcı olursanız sevinirim

(38 yıl 4 ay 13 gün) tek hücre içinde yazılı buna 7 ay eklemek için

teşekkurler

Merhaba,

Sorunuzu örnek dosya ile destekleyiniz.

Yine de boş duramadım bir KTF hazırladım, KTF hakkında bilginiz yoksa forumda arama yaparak öğreniniz.

Function TarihEkle(Veri As String, Sure As Integer, Optional Seçenek As String = "Y") As String
    
    Dim Metin, _
        i           As Integer, _
        dz(1 To 3)  As Integer, _
        j           As Integer
    Seçenek = UCase(Seçenek)
    If Not Seçenek = "Y" And Not Seçenek = "A" And Not Seçenek = "G" Then Seçenek = "Y"
    
    Veri = Application.WorksheetFunction.Proper(Veri)
    
    Metin = Split(Veri, " ")
    
    For i = 0 To UBound(Metin)
        If IsNumeric(Metin(i)) Then
            If Metin(i + 1) = "Yıl" Then
                dz(1) = Metin(i)
            ElseIf Metin(i + 1) = "Ay" Then
                dz(2) = Metin(i)
            Else
                dz(3) = Metin(i)
            End If
        End If
    Next i
    
    If Seçenek = "G" Then dz(3) = dz(3) + Sure
    If Seçenek = "A" Then dz(2) = dz(2) + Sure
    If Seçenek = "Y" Then dz(1) = dz(1) + Sure
    
    j = dz(3) Mod 30
    dz(2) = dz(2) + Int(dz(3) / 30)
    dz(3) = j
    
    j = dz(2) Mod 12
    dz(1) = dz(1) + Int(dz(2) / 12)
    dz(2) = j
    
    TarihEkle = dz(1) & " Yıl " & dz(2) & " Ay " & dz(3) & " Gün"
    
End Function

Fonksiyonun Parametreleri :

Veri : xx yıl yy ay zz gün içeren (sadece bir seçenekte olabilir, yani tarih xx yıl gibi de olabilir, xx yıl yy ay da) hücre,

Süre : Eklenecek Sayı

Seçenek :

"G" Güne Ekler
"A" Aya Ekler
"Y" Yıla ekler

Büyük / küçük harf duyarlı değildir.

 

[Necdet]

Hem sıkıntısı var, hem özelden mesaj gönderiyor, ama sonuç? Yok.

 

[asada11]

çok teşekkur ederim. yapılmış olan KTF örnek dosyayı kendime uyarladım. süper çalıştı

demek ki daha çok yol almam gerekiyormuş anladım

ustalara selam (Necdet Yeşertener)

 

[Necdet]

Güle güle kullanınız.