ARKADAŞLAR KUTUCUGA ÇİFT TIKLAMA İLE OTOMATİK TARİH YAZILMASI FORMULLU NASILDIR

[Heybetullah]

OTOMATİK TARİH ÇIKMASI ÇİFT TIKLAMA

 

[S.Yiğit]

Bildiğim kadarıyla formülle olmaz. Kısa yol kullanın. CTRL + ; Aktif olan hücreye bulunduğunuz tarihi girer

 

[Heybetullah]

VARDI FARE İLE İKİ TIKLAMA İLE GERÇEKLEŞİYORDU

 

[Merhum İdris SERDAR]

.
Sayın Heybetullah,

Merhaba .

Lütfen Konu başlıkları ile mesajlarınızı küçük harflerle yazınız.

.

 

[Heybetullah]

Merhaba
kardeşim boş hucreye fare ile çift tıklama yaptıgımda o günün tarih yazılmasını istiyorum
ör: 01.05.2020 yazılsa

 

[Heybetullah]

açma tarihi ve kapama isimlerin altında 40 kadar olan kutucuklara

 

[Merhum İdris SERDAR]

.

Kullandığınız Excel sürümünü belirtmemişsiniz. Makro ile bunu yapmak mümkündü. Ancak, Excelin son versiyonlarında bu özellik kaldırıldı.

.

 

[Heybetullah]

şuan attıgım ecxell
kullanıyorum

 

[metin_0606]

açma tarihi ve kapama isimlerin altında 40 kadar olan kutucuklara

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B80")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
      End If
     If Not Intersect(Target, Range("G1:G80")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
 
     End If
    
End Sub

 

[YUSUF44]

Sayın İdris Serdar'ın belirttiği durumu bilmiyordum. Excel 2016'da denedim ve gerçekten öyleymiş. Ancak çift tıklama değil de hücre seçimi ile yapmak isterseniz aşağıdaki kodu kullanabilirsiniz. Kod eğer hücre doluysa boşaltır, boşsa tarih atar:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B10:B49, G10:G49]) Is Nothing Then Exit Sub
If Target = "" Then
    Target = Date
Else
    Target = ""
End If
End Sub

Ekleme: Sayın metin0606'nın verdiği kodu denediğimde çift tıklama ile tarih atabildim. İlginçtir, benzer kodu ben de yazmıştım ama denediğimde çalışmamıştı.

 

[metin_0606]

açma tarihi ve kapama isimlerin altında 40 kadar olan kutucuklara

 

[Heybetullah]

yusuf by nasıl yapılır bilmiyorum

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B10:B49, G10:G49]) Is Nothing Then Exit Sub
Cancel = True
Target = Date
End Sub

 

[Heybetullah]

Çok tşkler