Tarih ve saat

[ormancı06]

Selam
şöyle bir sıkıntım var,bir tablo ile uğraşıyorum,A1 de herhangi bir işlem yapıldığı zaman,A2 ye tarih A3 e ise A1 e işlem yapılan saati yazdırmak istiyorum,yardımlarınızı bekliyorum.

 

[muygun]

Merhaba;
sayfanın kod bölümüne geçin. (Sayfada iken ALT+F11 ile kod bölümüne geçersiniz)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Cells(2, 1) = Format(Date, "dd.mm.yyyy")
Cells(3, 1) = Format(Time, "hh:mm:ss")
End Sub

Kodlarını yerleştirin.

İyi çalışmalar.

 

[Korhan Ayhan]

Tarih ve saatin kalıcı olmasını istiyorsanız makro kullanmanız gerekir.

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A1" Then
        Range("A2").NumberFormat = "dd.mm.yyyy"
        Range("A3").NumberFormat = "hh:mm:ss"
        Range("A2") = Date
        Range("A3") = Format(Time, "hh:mm:ss")
    End If
End Sub

 

[ormancı06]

ilginiz için çok teşekkür ederim

 

[ormancı06]

Sanırım sorunu yanlış aksettirdim,derdimi baştan anlatayım,4 sütündan oluşan bir sayfa yapmam lazım,A sütünundaki her hücreye bir şey yazıldığı zaman,b sütunundaki hücreye tarih C sütünüdaki hücreye ise saat ve D sütunundaki hücreye ise 1 yazmasını istiyorum,bu konuda desteğinizi bekliyorum.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

Not : A sütununda silme işleminde yine tarih ve saat yazdırılacak mı belirtmemişsiniz. Kod her şartta tarih ve saati yazdıdır.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [A:A]) Is Nothing Or Target.Row < 2 Then Exit Sub
    Target.Offset(0, 1) = Date
    Target.Offset(0, 2) = Time
    Target.Offset(0, 3) = 1
    
End Sub

 

[ormancı06]

Sayın Necdet YEŞERTENER çok teşekkür ederim ilginize

 

[ormancı06]

Necdet hocam,A sütünündaki silme işleminde diğerleinin de silmesini istersem nasıl değişiklik yapmam lazım?

 

[Necdet]

Merhaba,

Silme işlemini 2 değişik şekilde verdim. Siz hangisini kullanırsınız artık.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [A:A]) Is Nothing Or Target.Row < 2 Then Exit Sub
    
    If Target.Value = "" Then
'        Target.Offset(0, 1) = ""
'        Target.Offset(0, 2) = ""
'        Target.Offset(0, 3) = ""
        Range("B" & Target.Row & ":D" & Target.Row).ClearContents
    Else
        Target.Offset(0, 1) = Date
        Target.Offset(0, 2) = Time
        Target.Offset(0, 3) = 1
    End If
    
End Sub

 

[ormancı06]

Çok sağolun emeğinize yüreğinize sağlık