Enter ile hücreye tarih atmak

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
255
Excel Vers. ve Dili
Excel 2010 - Türkçe
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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
28,901
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Tarih hangi hücre aralığına yazılacak?
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
255
Excel Vers. ve Dili
Excel 2010 - Türkçe
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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
28,901
Excel Vers. ve Dili
OFFICE 2019 PRO TR
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
255
Excel Vers. ve Dili
Excel 2010 - Türkçe
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
255
Excel Vers. ve Dili
Excel 2010 - Türkçe
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
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
255
Excel Vers. ve Dili
Excel 2010 - Türkçe
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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
28,901
Excel Vers. ve Dili
OFFICE 2019 PRO TR
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
255
Excel Vers. ve Dili
Excel 2010 - Türkçe
Hocam bunu nasıl yapabilirim, bilgi verebilir misiniz.
Saygılarımla.
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
28,901
Excel Vers. ve Dili
OFFICE 2019 PRO TR
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
255
Excel Vers. ve Dili
Excel 2010 - Türkçe
Anladım hocam, teşekkür ederim. İş yerine gidince deneyip sonucu bildireceğim.
Saygılarımla.
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
28,901
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Ç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
255
Excel Vers. ve Dili
Excel 2010 - Türkçe
Ç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