Otomatik Tarih Atmak

[mavi674]

Selam,
aşağıdaki makro otomatik olarak c sütununa girilen bir veri ile b sütununa tarih atıyor.
Sizdem ricam eğer b sütunu dolu ise o hücreye tarih atmasın...
Teşekkürler...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then Target.Offset(0, -1) = Date
End Sub

 

[volki_112]

Selam,
aşağıdaki makro otomatik olarak c sütununa girilen bir veri ile b sütununa tarih atıyor.
Sizdem ricam eğer b sütunu dolu ise o hücreye tarih atmasın...
Teşekkürler...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then Target.Offset(0, -1) = Date
End Sub

Deneyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Sadece C sütunundaki değişiklikleri kontrol et
    If Target.Column = 3 And Not IsEmpty(Target.Value) Then
        ' B sütunundaki hücre boşsa tarih at
        If IsEmpty(Target.Offset(0, -1).Value) Then
            Application.EnableEvents = False  ' Döngü oluşmasını önler
            Target.Offset(0, -1).Value = Date
            Application.EnableEvents = True
        End If
    End If
End Sub

 

[Muzaffer Ali]

Merhaba.
Alternatif kod.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target <> "" And Cells(Target.Row, "B") = "" Then Cells(Target.Row, "B") = Date
End Sub

 

[mavi674]

İlginiz için teşekkürlerimi sunarım
çok sağolun
2 kod da süper çalışıyor.
tam istediğim gibi
Ellerinize sağlık...

 

[mavi674]

İYİ Kİ VARSINIZ...

 

[mavi674]

Sayın Muzaffer Ali hocam,
kod güzel ama tarih ile veriyi seçip (c ve b sütununda 2 hücreyi yan yana seçip) silince hata veriyor, pek önemi yok ama bilginiz olsun...

 

[Muzaffer Ali]

O zaman bu kodu kullanabilirsiniz.

Private Sub xWorksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        If Target.Column = 3 And Target <> "" And Cells(Target.Row, "B") = "" Then Cells(Target.Row, "B") = Date
    End If
End Sub

 

[mavi674]

tarih atmıyor.

 

[Muzaffer Ali]

Tarih atması için C sütununda ve sadece bir hücre seçili olması, seçili hücrenin boş olmaması, be seçili hücrenin yanındaki B sütununa denk gelen hücrenin boş olması gerekiyor.
Eğer bu şartlar sağlanıyorsa kod çalışıyor ve tarih atıyor.

Yine de kodlar çalışmazsa tüm açık Excel dosyalarını kapatıp yeniden açıp deneyin.

 

[mavi674]

dediklerinizin hepsini tek tek denedim.
hatta yeni bir sayfa da açıp boş bir sayfada deneme yaptım, sonuç alamadım....

 

[Muzaffer Ali]

dediklerinizin hepsini tek tek denedim.
hatta yeni bir sayfa da açıp boş bir sayfada deneme yaptım, sonuç alamadım....

xWorksheet_Change
yazmışım
Worksheet_Change olacak

 

[mavi674]

Tamamdır
Eline sağlık olduuuu
Kusursuz çalışıyor.
Çok Teşekkürler....