Hücrede tarih ve saat varsa yazmasın

[ASLAN7410]

Merhaba hayırlı akşamlar.

Ekte gönderdiğim excel dosyamın E sütununa mause ile çift tıkladığımda günün tarihini atıyor.

Yapmak istediğim hücre içerisinde tarih varsa bu hücreye çift tıkladığımda günün tarihini atmasın.

Sadece hücre boş ise ve hücre içerisi tarih haricinde veri varsa tarih atsın istiyorum.
.

 

[askm]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 5 Then Exit Sub
If IsDate(Target.Value) = False Then
    Target.Value = Format(Now, "dd.mm.yyyy")
End If
End Sub

 

[ASLAN7410]

Sayın askm, ilginiz için çok teşekkür ediyorum, tam istediğim gibi çalışıyor.

Hayırlı akşamlar, hayırlı çalışmalar diliyorum.

 

[ASLAN7410]

Sayın askm, bu kod arasına aşağıdaki koduda ilave ettim ama bir türlü çalıştıramadım.

Yardımcı olur musunuz?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 5 Then Exit Sub
If IsDate(Target.Value) = False Then
    Target.Value = Format(Now, "dd.mm.yyyy")
End If

If Target.Column <> 6 Then Exit Sub
If IsDate(Target.Value) = False Then
    Target.Value = Format(Now, "hh.mm.ss")
End If
End Sub

 

[askm]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Target.Column <> 5 Then
If IsDate(Target.Value) = False Then
    Target.Value = Format(Now, "dd.mm.yyyy")
End If
End If
If Target.Column <> 6 Then Exit Sub
If IsDate(Target.Value) = False Then
    Target.Value = Format(Now, "hh:mm:nn")
End If

End Sub

 

[ASLAN7410]

Sayın askm, kod gayet güzel çalışıyor da, ancak hücrede saat verisi var ise yine değişiklik yapıyor.

 

[ASLAN7410]

Sayın askm, kod F sütünundaki hücrelerde saat varsa yine değişiklik yapıyor.

 

[ASLAN7410]

Sayfanın E sütunundaki tarih ile ilgili kod gayet güzel çalışıyor, ama F sütunundaki saat ile ilgili yazılan kod çalışmıyor.

F sütunu için istediğim aynen E sütunundaki gibi olmasını istiyorum.

Yardımcı olur musunuz?

 

[askm]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Target.Column <> 5 Then
If IsDate(Target.Value) = False Then
    Target.Value = Format(Now, "dd.mm.yyyy")
End If
End If
If Target.Column <> 6 Then Exit Sub
If IsTime(Format(Target.Value, "hh:mm:nn")) = False Then
    Target.Value = Format(Now, "hh:mm:nn")
End If

End Sub

Function IsTime(str)
  If str = "" Then
    IsTime = False
  Else
    On Error Resume Next
    TimeValue (str)
    If Err.Number = 0 Then
      IsTime = True
    Else
      IsTime = False
    End If
    On Error GoTo 0
  End If
End Function

 

[ASLAN7410]

Sayın askm, sizi yordum kusura bakmayın. Ellerinize sağlık çok teşekkür ediyorum, kod şuan tam istediğim gibi çalışıyor.

Hayırlı geceler, hayırlı çalışmalar diliyorum.

 

[askm]

Rica ederim hayırlı geceler.

 

[Ömer BARAN]

Merhabalar.

Yanlış anlamıyorsam aşağıdaki kod da alternatif olsun.
Kod'da kullanılan işlem Format(Now, "dd.mm.yyyy") olduğunda elde edilen sonuç tarih gibi görünse de METİN oluyor.
Bu nedenle bunun yerine Date kullanmak daha doğru olur sanki.
.

[B]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)[/B]
If IsDate(ActiveCell.Text) Or ActiveCell.Column <> 5 Then Exit Sub
If ActiveCell.Column = 5 Then Cells(ActiveCell.Row, 5) = [I][COLOR="Blue"][B]Date[/B][/COLOR][/I]
Cancel = True
[B]End Sub[/B]

Date

 

[ASLAN7410]

Sayın Ömer bey, sizin ilginize de çok teşekkür ederim.

Hayırlı akşamlar, hayırlı çalışmalar diliyorum.