textbox üstünde yazılı bir tarihte sadece yıl otomatik olarak bulunduğumuz yılı yazma

[olymposss]

saygıdeğer hocalarım biliyorum belki çok karıştırıyorum konuları ama programda yapım aşamasında karşıma yapamadıklarım çıkınca sormak zorunda kalıyorum. sabrınıza teşekkür ederim.

bir userform üstünde 2 adet textbox var. ve her birinde 1/11/2006 ve 30/11/2006
gibi tarihler var. bu tarihler standart yani kullanıcı değiştiremiyor. ancak sorunum şu. 2007 yılına girdiğimizde textboxlardaki 2006 nın otomatik olarak 2007 yazması yani gün ve ay sabit kalmak koşulu ile bulunduğumuz yılı textboxlara atamak istiyorum.

yardımlarınız için çook teşekkürler.

saygılar.:yardim:
-----------------------------------------------------------------------------
bana bir harf öğretenin KIRK yıl kölesi olurum.

 

[Korhan Ayhan]

Selamlar,

Bahsettiğiniz tarihleri TextBox lara nasıl alıyorsunuz kodlarınızı yada örnek dosyanızı eklerseniz yardımcı olmaya çalışırız.

 

[olymposss]

çok önemli

dosya ektedir. umarım becerebilrim. çünkü çok lazım

ilginize çok teşekkürler. saygılar:yardim:

 

[Korhan Ayhan]

Selamlar,

Textboxlara yazmış olduğunuz tarihleri silip formunuzun kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Private Sub UserForm_Initialize()
    TextBox1 = "01." & Month(Date) & "." & Year(Date)
    TextBox2 = Format(DateSerial(Year(Date), Month(Date) + 1, 1) - 1, "dd.mm.yyyy")
End Sub

 

[olymposss]

sn cost control

elinize sağlık çalışıyor. ancak;

textbox1 de tarihler arasında "."
texbox2 de tarihler arasında "/" işaretleri var sorun ayartırmı?

bir diğer sorumda ;
kodlarınızı inceledimde sanırım ay olarak bulunduğumuz ayı gösteriyor ancak yapmak istediğim aynen şöyle.
2006 yılı için
01/09/2006 31/12/2006
2007 için
01/09/2007 31/12/2007
yani 3 aylık dönemler için veri kaydetmem gerekiyor. ancak 2007 yılında da aynı aylar arasında ancak 2007 olarak yazması gerekiyor. tek değişken olarak yıl
olmasını istiyorum.

ilginize teşekkürler
saygılar:???:

 

[Korhan Ayhan]

Selamlar,

Ayracı düzeltmeyi unutmuşum üstteki mesajımda düzelttim. Ayrıca örnek dosyanızda bu ayı verdiğiniz için ona göre düzenlemiştim. Eğer 3 aylık dönem olarak belirtseydiniz ona göre yanıt vermeye çalışırdım. Neyse bu 3 aylık dönemleri neye göre belirleyeceksiniz.

 

[olymposss]

şu şekilde düzelttim

sonsuz teşekkürler.

textbox1 = "01/" & "09/" & Year(Date)
textbox2 = "31/" "12/" & Year(Date)

saygılar.:hey: