hücrede formül varken otomatik tarih yazma

[cdroy1]

iyi akşamlar arkadaşlar ben a5 ile a15 satırları arasında bi işlem yaptığım zaman b5 ile b15 satırına otomatik olarak tarih ve saati yazdırmak istiyorum formda birkaç örnek buldum denedim olmadı çünkü benim a5:a15 arasına bilgi formülle geldiği için tarih ve saat çıkmadı normalde boş hücreye yazdığım zaman çıkıyo formül olduğu zaman nasıl tarih ve saati otomatik olarak atayabilirim. şimdiden alakanız için teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya üzerinde işlemi nasıl yaptığınızı tarif edermisiniz.

 

[kombo]

=EĞER(A5="";"";ŞİMDİ())

yazın aşağıya doğru kopyalayın.

 

[enteresan]

Sayın kombo, bu şekilde olduğunda b sütunundaki tarihler her gün yenilenecektir. Sanırım cdroy1 rumuzlu arkadaş yaptığı işlemin ne zaman yapıldığnı takip etmek istiyor. Ne dersiniz....?

 

[Seyit Tiken]

Aşağıdaki kodu çalışmanıza uyarlayarak deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C1:C15]) Is Nothing Then Exit Sub
If [c1].Value > 0 Then [b1] = Now
If [c2].Value > 0 Then [b2] = Now
If [c3].Value > 0 Then [b3] = Now
End Sub

 

[Necdet]

A5:A15 arası formülün C5:C15 alanından geldiğini varsayarsak
ilgili sayfanın kod bölümüne aşağıdaki kodları yazabiliriz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [C5:C15]) Is Nothing Then Exit Sub
Target.Offset(0, -1).Value = Now
son:
End Sub

 

[cdroy1]

arkadaşlar harikasınız yaptıklarınız benim sorunumu çözdü çok teşekkür ederim ellerinize sağlık

 

[pashazeus]

A5:A15 arası formülün C5:C15 alanından geldiğini varsayarsak
ilgili sayfanın kod bölümüne aşağıdaki kodları yazabiliriz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [C5:C15]) Is Nothing Then Exit Sub
Target.Offset(0, -1).Value = Now
son:
End Sub

merhaba bunu yaptığımız zaman hücredeki veriyi sildiğimiz zaman da tarih atıyor yani o hücrede herhangi bir değişklik yaptığımız anda tarih atıyor. bunu sadece ilgili hücreye ''1'' girildiği zaman veya yazı yazıldığı zaman tarih atsın hücrede bişey yazmadığı zaman veya silindiği zaman tarih bilgisi de silinecek şekilde yapamazmıyız ?

şimdiden teşekkürler

 

[pashazeus]

merhaba bunu yaptığımız zaman hücredeki veriyi sildiğimiz zaman da tarih atıyor yani o hücrede herhangi bir değişklik yaptığımız anda tarih atıyor. bunu sadece ilgili hücreye ''1'' girildiği zaman veya yazı yazıldığı zaman tarih atsın hücrede bişey yazmadığı zaman veya silindiği zaman tarih bilgisi de silinecek şekilde yapamazmıyız ?

şimdiden teşekkürler

yardım lütfen ???

 

[Necdet]

Merhaba,

Aşağıdaki gibi deneyiniz. Kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo son
    If Intersect(Target, [C5:C15]) Is Nothing Then Exit Sub
    If Target.Value = "" Then
        Target.Offset(0, -1) = ""
    Else
        Target.Offset(0, -1).Value = Date
    End If
son:

End Sub

 

[pashazeus]

Merhaba,

Aşağıdaki gibi deneyiniz. Kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo son
    If Intersect(Target, [C5:C15]) Is Nothing Then Exit Sub
    If Target.Value = "" Then
        Target.Offset(0, -1) = ""
    Else
        Target.Offset(0, -1).Value = Date
    End If
son:

End Sub

çok teşekkürler

 

[Necdet]

Rica ederim.

 

[rcpkcmn]

kolay gelsin arkadaşlar; benim bir sorunum var ama nasıl bir çözüm bulabiliriz, kendi faturalarımı, kredi kartlarımı vb. takip ettiğim bir şablon yaptım, sizden istediği örnek; a1 de son ödeme tarihi: 05.01.2012, a2 tutar: 50,00 tl ben son ödeme tarihi geçtiğinde tutar butonunun kırmızı renge boyanmasını istiyorum, bu mümkün müdür? mümnkümse nasıldır? şimdiden teşekkürler... saygılarımla...

 

[pashazeus]

Merhaba,

Aşağıdaki gibi deneyiniz. Kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo son
    If Intersect(Target, [C5:C15]) Is Nothing Then Exit Sub
    If Target.Value = "" Then
        Target.Offset(0, -1) = ""
    Else
        Target.Offset(0, -1).Value = Date
    End If
son:

End Sub

tekrar selam,

bu kodu C kolonu için yapmıştık ben ayni kodu A koloni için de ayni sheet de kullanmak istiyorum yani C kolonuna değişklik olunca D kolonuna tarih atarken, a kolonuna değşklik yapıldığında E kolonuna tarih atacak şekilde yapabilirmiyiz.

 

[Necdet]

tekrar selam,

bu kodu C kolonu için yapmıştık ben ayni kodu A koloni için de ayni sheet de kullanmak istiyorum yani C kolonuna değişklik olunca D kolonuna tarih atarken, a kolonuna değşklik yapıldığında E kolonuna tarih atacak şekilde yapabilirmiyiz.

Merhaba,

Sub Worksheet_Change(ByVal Target As Range)
    Dim Kol As Integer
    
    On Error GoTo son
    If Intersect(Target, [A5:A15, C5:C15]) Is Nothing Then Exit Sub
    
    If Target.Column = 1 Then
        Kol = 4
    Else
        Kol = 1
    End If
    
    If Target.Value = "" Then
        Target.Offset(0, Kol) = ""
    Else
        Target.Offset(0, Kol).Value = Date
    End If
son:
End Sub

 

[pashazeus]

Merhaba,

Sub Worksheet_Change(ByVal Target As Range)
    Dim Kol As Integer
    
    On Error GoTo son
    If Intersect(Target, [A5:A15, C5:C15]) Is Nothing Then Exit Sub
    
    If Target.Column = 1 Then
        Kol = 4
    Else
        Kol = 1
    End If
    
    If Target.Value = "" Then
        Target.Offset(0, Kol) = ""
    Else
        Target.Offset(0, Kol).Value = Date
    End If
son:
End Sub

teşekkür ederim.
iyi çalışmalar