Enter ile hücreye tarih atmak

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,035
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Arkadaşlar, gelen dergilerin takibini yapıyorum da. Tarih yazmakla uğraşmadan. Tarih yazılacak hücredeyken 'enter' yaparak tarih atmasını nasıl sağlayabilirim. Tarih olacak 600 küsur hücrenin tarih biçimini 'hücre biçimlendir' ile biçimlendireceğim elbette.
Şimdiden teşekkür ederim. Elinize emeğinize sağlık.
Saygılarımla.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,332
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Tarih hangi hücre aralığına yazılacak?
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,035
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Tarih hangi hücre aralığına yazılacak?
Hocam belli bir aralık yok. O yüzden zorlandım. Bir sürü gelen dergi var. Aşağı doğru dergi isimleri ve soldan sağa doğru hücreler. Mesela bugün ekonomist dergisi geldi. Ekonomistin önündeki hücre seçili iken 'ENTER' yapacağım. 29 eylül 2020 tarihini atacak, ama o tarih sabit kalacak, yani yarın değişmeyecek.
Umuyorum, anlatabildim. Hocam isterseniz örnek bir dosya oluşturmaya çalışayım.
Saygılarımla.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,332
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

Boş bir modüle;
C++:
Option Explicit

Sub Tarih_Yaz()
    With Selection
        .Value = Date
        .EntireColumn.AutoFit
    End With
End Sub
ThisWorkbook bölümüne;
C++:
Option Explicit

Private Sub Workbook_Activate()
    Application.OnKey "~", "Tarih_Yaz"
    Application.OnKey "{ENTER}", "Tarih_Yaz"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "~"
    Application.OnKey "{ENTER}"
End Sub

Private Sub Workbook_Deactivate()
    Application.OnKey "~"
    Application.OnKey "{ENTER}"
End Sub

Private Sub Workbook_Open()
    Application.OnKey "~", "Tarih_Yaz"
    Application.OnKey "{ENTER}", "Tarih_Yaz"
End Sub
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,035
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Deneyiniz.

Boş bir modüle;
C++:
Option Explicit

Sub Tarih_Yaz()
    With Selection
        .Value = Date
        .EntireColumn.AutoFit
    End With
End Sub
ThisWorkbook bölümüne;
C++:
Option Explicit

Private Sub Workbook_Activate()
    Application.OnKey "~", "Tarih_Yaz"
    Application.OnKey "{ENTER}", "Tarih_Yaz"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "~"
    Application.OnKey "{ENTER}"
End Sub

Private Sub Workbook_Deactivate()
    Application.OnKey "~"
    Application.OnKey "{ENTER}"
End Sub

Private Sub Workbook_Open()
    Application.OnKey "~", "Tarih_Yaz"
    Application.OnKey "{ENTER}", "Tarih_Yaz"
End Sub
Hocam, olur da... Bu kadar mı mükemmel olur. 😃
Eğer o attığım tarihler, yarın 30 olmazsa. Muhteşem ötesi. İyi ki varsınız hocam.
Çok teşekkür ederim.
Elinize emeğinize sağlık.
Saygılarımla.
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,035
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Hocam, boş hücreye tarih atmayı uyguladım.
Bu çalışma kitabı bölümüne sormadan kapat makrosu koydum. Normalde çalışıyor. Ama ikisi bir olunca hata verdi, hatayı anlamadım.
Başka bir "bu çalışma kitabı" mı açmam gerekiyor. Nasıl açılır.
Size zahmet bakabilir misiniz.
SaygılarımlaEkran Alıntısı.PNG
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,332
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
BeforeClose prosedürü mükerrer olmuş.
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,035
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Benim yazdığım makrodakini silmem mi gerekiyor. Silersem benim makro çalışır mı.
Ya da dediğim gibi, ikinci bir "this workbook" açmak mı gerekiyor. Nasıl açılır.
Saygılarımla.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,332
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Aynı isimle tek prosedür olabilir. Bu durumda iki kodu uygun şekilde birleştirmelisiniz.
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,035
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Hocam bunu nasıl yapabilirim, bilgi verebilir misiniz.
Saygılarımla.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,332
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Hata veren bloktaki kodları alıp diğer BeforeClose prosedüründeki kodların altına yapıştırın.
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,035
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Anladım hocam, teşekkür ederim. İş yerine gidince deneyip sonucu bildireceğim.
Saygılarımla.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,332
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Çizgi içine aldığınız bölümdeki END SUB satırını siliniz.
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,035
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Çizgi içine aldığınız bölümdeki END SUB satırını siliniz.
Hocam, çalıştı. Çok ama çok teşekkür ederim.
İlginize. Emeğinize. Gerçekten çok teşekkür ederim.

Excel işimde çok ama çok işime yarıyor. Sizler sayesinde öğreniyorum.
Saygılarımla.
 
Üst