Enter ile hücreye tarih atmak

[muratgunay48]

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]

Tarih hangi hücre aralığına yazılacak?

 

[muratgunay48]

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]

Deneyiniz.

Boş bir modüle;

Option Explicit

Sub Tarih_Yaz()
    With Selection
        .Value = Date
        .EntireColumn.AutoFit
    End With
End Sub

ThisWorkbook bölümüne;

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]

Deneyiniz.

Boş bir modüle;

Option Explicit

Sub Tarih_Yaz()
    With Selection
        .Value = Date
        .EntireColumn.AutoFit
    End With
End Sub

ThisWorkbook bölümüne;

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]

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ımla

 

[Korhan Ayhan]

BeforeClose prosedürü mükerrer olmuş.

 

[muratgunay48]

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]

Aynı isimle tek prosedür olabilir. Bu durumda iki kodu uygun şekilde birleştirmelisiniz.

 

[muratgunay48]

Hocam bunu nasıl yapabilirim, bilgi verebilir misiniz.
Saygılarımla.

 

[Korhan Ayhan]

Hata veren bloktaki kodları alıp diğer BeforeClose prosedüründeki kodların altına yapıştırın.

 

[muratgunay48]

Anladım hocam, teşekkür ederim. İş yerine gidince deneyip sonucu bildireceğim.
Saygılarımla.

 

[muratgunay48]

Hata veren bloktaki kodları alıp diğer BeforeClose prosedüründeki kodların altına yapıştırın.

Hocam yaptım yine hata verdi. Benim kodu (mükerrer olan kısım hariç) yapıştırdım.

 

[Korhan Ayhan]

Çizgi içine aldığınız bölümdeki END SUB satırını siliniz.

 

[muratgunay48]

Ç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.