Aktif hücreye günün tarihini atmak

[EKREM1661]

Arkadaşlar..! aktif hücre boş ise, günün tarihini butonla aktif hücreye yazdırmak istiyorum, fakat sadece C sütunu ile sınırlı kalsın..

 

[Ayşavkı]

Merhaba!!! buton ile nasıl olur bilmiyorum ancak;Ctrl+Shift+ ; tuş kombinasyonu ile yapabilirsiniz.sütunun hücre biçimini metin olarak ayarlamayı unutmayınız.saygılar!!!

 

[İhsan Tank]

Arkadaşlar..! aktif hücre boş ise, günün tarihini butonla aktif hücreye yazdırmak istiyorum, fakat sadece C sütunu ile sınırlı kalsın..

merhaba
Sayfanın kod bölümüne

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C1:C65536")) Is Nothing Then Exit Sub
If Target = "" Then
Target = Format(Now, "dd.mm.yyyy")
End If
End Sub

bu kod'u yazarak dener misiniz

 

[yusufymr]

Merhaba çift tıklama ile istenen hücreye nasıl tarih atarız yardımcı olurmusunuz teşekkürler

 

[EKREM1661]

İhsan bey..! bu kodu bir buton altında kullanacağım, fakat sanırım bunun için kodda değişiklik gerekecek..

 

[AS3434]

Merhaba çift tıklama ile istenen hücreye nasıl tarih atarız yardımcı olurmusunuz teşekkürler

Tarih atacağınız Sayfanın kod sayfasına yazın....

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell = Date
End Sub

EKREM1661 tarafından gönderildi
İhsan bey..! bu kodu bir buton altında kullanacağım, fakat sanırım bunun için kodda değişiklik gerekecek..

Sayın İhsan Tank sorunuzu herhalde farketmedi...

Sub tarihat()
If ActiveCell.Column <> 2 Then GoTo 20
sat = ActiveCell.Row
If Cells(sat, 2) = "" Then
Cells(sat, 2) = Date
End If
20
End Sub

 

[Ayşavkı]

Merhaba sayın EKREM1661!!! ekteki dosyayı inceleyin isterseniz. kodlar bana ait değildir.

 

[Ayşavkı]

Sayın AS3434 Uzmanım!! cevabınızı görmedim.saygılar!!!

 

[yusufymr]

Allah razı olsun kaç gündür buna uğraşıyordum yeni olduğum dan cahilliğime verin çok teşekkür ederim sizlere

 

[cumle_alem]

şöyle bir formül kullanıyorum ben " =bugün() " örnek dosyadan inceleyebilirsiniz ( belgeyi her açtığımda o günün tarihini yazıyor )

 

[EKREM1661]

ilgilenen tüm arkadaşlarımıza teşekkür ediyorum..