Otomatik tarih,

[sensizsoldum]

Merhaba,
Aşağıdaki kod ile B sütun aralığına veri girildiğinde, a sütunda tarih geliyor. silindiğinde de siliyor.
Çok işime yarıyor bu kod, İlaveten bir sayfada yine veri girişine göre tarih atsın istiyorum.
Şöyle ki G sütuna da veri girilse, F sütunda tarih olmasını istiyorum.
G sütuna yazılırsa F sütunda,
B sütuna yazıldığında A sütunda tarih olması gibi.

Private Sub Worksheet_Change(ByVal Target As Range)
'B sütuna veri girildiğinde A sütunda tarih yazar
On Error GoTo son
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
If Target.Row < 3 Then Exit Sub
If Target <> "" Then Target.Offset(0, -1) = Date
If WorksheetFunction.CountA(Target) = 0 Then Target.Offset(0, -1).Clear
son:
End Sub

Konuyla ilgili yardımcı olursanız sevinirim.
İyi çalışmalar dilerim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sizin kodda kullandığınız WorksheetFunction.CountA gerekliyse onu da kodların içine koyunuz.

Ayrıca kullandığınız kodlarla aşağıdaki kodu karşılaştırdığınızda çok fazla bir fark olmadığını sadece sütunların eklendiğini göreceksiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [B:B,G:G]) Is Nothing Or Target.Row < 3 Then Exit Sub
    
    If Target.Value = "" Then
        Target.Offset(0, -1) = ""
    Else
        Target.Offset(0, -1) = Date
    End If
    
End Sub

 

[sensizsoldum]

Hocam Çok teşekkür ediyorum.
İyi çalışmalar, Hayırlı günler dilerim.

 

[assenucler]

Bir rica

Üstatların kodunu, aşağıdaki kendi dosyama niye uyarlayamıyorum.

Yardımınız için teşekkürler.

 

[Ömer BARAN]

Üstatların kodunu, aşağıdaki kendi dosyama niye uyarlayamıyorum.

Yardımınız için teşekkürler.

Merhaba.

Ekediğiniz dosyada modülde bulunan kod
Private Sub Worksheet_Change(ByVal Target As Range) şeklinde,
bu tür worksheet kodlarını modüle değil ilgili sayfanın kod bölümüne
(alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLE seçildiğinde açılan ekranın sağ tarafına) aktarmalısınız.

Belirtilen kod Change kodu olduğuna göre hedef sütunda (B ve G sütunu) değişiklik olduğunda kod otomatik olarak çalışacak ve
tarih yazacak veya silecektir, bunun için düğme kullanmanıza da gerek olmayacaktır.

 

[assenucler]

Teşekkür

Değerli Üstadım,


Gününüz aydınlık, neşeniz sağlığınız yerinde ve rızkınız bol olsun.

En içten teşekkürlerimle.

Sevgi ve saygılar.

 

[Ömer BARAN]

Değerli Üstadım,


Gününüz aydınlık, neşeniz sağlığınız yerinde ve rızkınız bol olsun.

En içten teşekkürlerimle.

Sevgi ve saygılar.

Eyvallah, sağlıcakla.