• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücreye gün tarihini yazınca ay ve yılı otomatik yazdırma

Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
Hücreye gün tarihini yazdığımda ay ve yılın otomatik olarak gelmesi mümkün mü acaba ?

Örneğin; hücreye 06 yazıp entera bastığımda 06.04.2010 yazabilir mi ?

Teşekkür ederim.
 

parametre

Destek Ekibi
Destek Ekibi
Katılım
28 Ocak 2007
Mesajlar
1,585
Excel Vers. ve Dili
ofis 2010 turkce
ancak soyle yapılabilinir diye biliyorum
a3'e bir değer girildiginde bugunun tarihini girer
=EĞER(A3>0;ŞİMDİ();"") kolay gelsin
 
Katılım
25 Aralık 2004
Mesajlar
1,793
Excel Vers. ve Dili
Office 2016 Pro Plus-Türkçe
Altın Üyelik Bitiş Tarihi
10-12-2025
Hücre biçimlendirmesini "tarih"(*14.03.2001)olarak ayarlarsanız,
hücreye 06/04 girdiğinizde otomotik yılında yazar. Daha pratik bir yolunu bilmiyorum.
 
Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
Sayın parametre teşekkür ederim yalnız istediğim bu değil gibi geldi.
Eğer A3 0 dan büyükse bugünkü tarih değilse boş bırak, yapmak istediğim bu değil.

A sütunundaki herhangi bir hücreye günü, meselâ; 06 yazdığımda o hücreye; 06.04.2010 yazması gerek. Olabiliyorsa iyi olur.

Teşekkürler.
 

leumruk

Uzman
Uzman
Katılım
15 Nisan 2007
Mesajlar
3,472
Excel Vers. ve Dili
Office 2010 & 2013 tr
Sayın parametre teşekkür ederim yalnız istediğim bu değil gibi geldi.
Eğer A3 0 dan büyükse bugünkü tarih değilse boş bırak, yapmak istediğim bu değil.

A sütunundaki herhangi bir hücreye günü, meselâ; 06 yazdığımda o hücreye; 06.04.2010 yazması gerek. Olabiliyorsa iyi olur.

Teşekkürler.
Merhaba,
Makro ile çözüm isterseniz örneği inceleyebilirsiniz. A sütunu için geçerli. İsterseniz genişletebilirsiniz.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a1:a65536]) Is Nothing Then Exit Sub
If Not IsNumeric(Target) Or Target = "" Then Exit Sub
Ay = Month(Date)
Yıl = Year(Date)
Application.EnableEvents = False
Target = Format(Target & "." & Ay & "." & Yıl, "dd.mm.yyyy")
Application.EnableEvents = True
End Sub
 

Ekli dosyalar

Son düzenleme:
Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
Teşekkürler Mustafa Bey ellerinize sağlık, istediğim tam olarak buydu.
Fakat hücreyi silmek istediğimde örneğin; 10.04.2010 u delete ile sildiğimde .0.04.2010 olarak kalıyor silemiyorum ama 2 hücre seçtiğime silebiliyorum. Tarihin yanındaki ve altındaki hücreler dolu olduğu için 2 hücreyi seçip silemem. Silme konusunda birşeyler yapabilir misiniz ?
 

leumruk

Uzman
Uzman
Katılım
15 Nisan 2007
Mesajlar
3,472
Excel Vers. ve Dili
Office 2010 & 2013 tr
5 nolu mesajı güncelledim. Yeniden deneyebilirsiniz.
 
Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
:) Çok teşekkür ederim Mustafa Bey.

Hayırlı geceler.
 
Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
Teşekkürler. :)
 
Üst