Seçtiğim hücrelere bugunün tarihi versin macrosu lazım

[isarican]

seçtiğim hücrelere bugünün tarihini nasıl verdirebilirim..?

 

[Orion1]

A sütununda seçtiğiniz hücrelere bu günkü tarihi verir.
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Value = CDate(Date)
End Sub

 

[isarican]

A sütununda seçtiğiniz hücrelere bu günkü tarihi verir.
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Value = CDate(Date)
End Sub

Sağolasın arkadaşım. Peki hücreyi ben seçeyim. Command butona tıklayayım. O seçtiğim hücrelere atasın nasıl? macroyu biraz edileyim dedim. Onu yapamadım.

Böylebir macro varmı?

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub Düğme1_Tıklat()
Selection = CDate(Date)
End Sub

 

[adiabatos]

ctrl+shift+; bu kombınasyonu dene bence daha kolay
arkadaş makroyu koymuş bende kısayolunu veriyim

 

[isarican]

ctrl+shift+; bu kombınasyonu dene bence daha kolay
arkadaş makroyu koymuş bende kısayolunu veriyim

Biliyordum.Bunu yinede çok sağolasın. Düşünmen yeter

Orion Allah Razı Olsun Ne diyeyim. Sağolasın

 

[Orion1]

Orion Allah Razı Olsun Ne diyeyim. Sağolasın

Rica ederim.
İyi çalışmalar.

 

[ERENYILMAZ]

Hücrede takvim

Bir de bu örneği deneyiniz.Belki işinize yayar.