Enter ile tarih girmek

[muratgunay48]

@Korhan Ayhan hocam sizin yazdığınız kod vardı. Enter tıkladığınızda hücreye tarih atan. Çok faydalı bir kod. Halen kullanıyorum. Tekrar elinize emeğinize sağlık. Hocam. Onu şu şekilde revize etmek mümkün mü? Sadece A sütununda geçerli olsa.
Konuyu telefon ile açtığım için kodu yazamadım. İsterseniz yazarım.
Tekrar teşekkür ederim.
Saygılarımla.

 

[Korhan Ayhan]

Kodu hatırlayamadım. Paylaşırsanız düzenlerim.

 

[Korhan Ayhan]

Konunuzu buldum. https://www.excel.web.tr/threads/enter-ile-huecreye-tarih-atmak.190342/

Orada ki modüle ait kodu aşağıdaki gibi değiştirip kullanabilirsiniz.

Option Explicit

Sub Tarih_Yaz()
    Dim Alan As Range

    On Error Resume Next
    Set Alan = Nothing
    Set Alan = Intersect(Selection, Range("A:A"))
    On Error GoTo 0
   
    If Not Alan Is Nothing Then
        With Alan
            .Value = Date
            .EntireColumn.AutoFit
        End With
    End If
End Sub

 

[muratgunay48]

Konunuzu buldum. https://www.excel.web.tr/threads/enter-ile-huecreye-tarih-atmak.190342/

Orada ki modüle ait kodu aşağıdaki gibi değiştirip kullanabilirsiniz.

Option Explicit

Sub Tarih_Yaz()
    Dim Alan As Range

    On Error Resume Next
    Set Alan = Nothing
    Set Alan = Intersect(Selection, Range("A:A"))
    On Error GoTo 0
   
    If Not Alan Is Nothing Then
        With Alan
            .Value = Date
            .EntireColumn.AutoFit
        End With
    End If
End Sub

Çok teşekkür ederim hocam. Var olun.
Saygılarımla.