Giriş Tarih Saat

[dEdE]

1 yazınca 01.01.2009
2 yazınca 02.02.2009
3 yazınca 03.03.2009
.................... gibi gidyor ama benim istediğim
1 yazınca 01.01.2009
2 yazınca 02.01.2009
3 yazınca 03.01.2009..........gibi olması

Diyorsunuz ama;yukarıda 15 ve 16 no lu mesajınız öyle demiyor. Bu mesajlarınızdan bir kısmını aşağıya aldım. Mavi işaretli iki tarihi inceleyin.

Ben istiyorum ki 01 yada 02 yada 03 gibi yazdığımda kendisi otomotaik 01.01.2009 atsın yada 02 yazdığımda 02.02.2009 atsın Umarım anlatabildim

Anlayamadım. Çünkü, 13 yazdığınızda ne yazacak? 13.13.2009 mu? ya da 25 yazdığınızda 25.25.2009 mu?

 

[Eren03]

Diyorsunuz ama;yukarıda 15 ve 16 no lu mesajınız öyle demiyor. Bu mesajlarınızdan bir kısmını aşağıya aldım. Mavi işaretli iki tarihi inceleyin.



Anlayamadım. Çünkü, 13 yazdığınızda ne yazacak? 13.13.2009 mu? ya da 25 yazdığınızda 25.25.2009 mu?

Haklısınız 15-16 mesajım dediğiniz gibi yanlış anlatım olmuş.
Son mesajımı dikkate alırsanız sevinirim.

Excelden Faturaları döküm olarak kaydediyorum. Kaydettiğim dökümleri muhasebe programına aktarıyorum. Muhasebe programı virgülle ayrılmış olduğum tarihi kabul etmiyor. Noktalı olarak tarihi ayırımsam kabul ediyor. Tarih yazarkende Nokta tuşuna basmak zor oluyor. O yüzden böyle bir şey istedim.
Aslında şimdi bunu başarmış olsamda Şubat ayı geldiğinde ??? kodlardaki ayı nasıl değiştireceğimide bilemiyorum.

 

[dEdE]

Merhaba,
Aşağıdaki kod içinde bulunduğunuz ayı dikkate alarak istediğinizi yapar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Offset(0, 0).Value <> "" Then Target.Offset(0, 1).Value = Format(Target.Offset(0, 0).Value & "." & Format(Now(), "mm.yyyy"), "dd.mm.yyyy")
End Sub

 

[Eren03]

Merhaba,
Aşağıdaki kod içinde bulunduğunuz ayı dikkate alarak istediğinizi yapar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Offset(0, 0).Value <> "" Then Target.Offset(0, 1).Value = Format(Target.Offset(0, 0).Value & "." & Format(Now(), "mm.yyyy"), "dd.mm.yyyy")
End Sub

Çok tşk. ederim sayın dEdE

Son Olarak Bu kodda ayları değiştirmek için ne yapmam gerekli
Mart,Nisan,Mayıs........Aralık.

 

[dEdE]

Merhaba,

Ekli dosyayı inceleyiniz.