Tarihle ilgili :yardim:

[speedy 61]

Arkadaşlar yardımcı olursanız sevinirim;örnekteki tabloda herhangi bir satırda bir malzeme yazdığımda tarih kısmında aynı satırın hizasına o günün tarihi gelse böyle bir şey mümkünmü,eğer mümkünse nasıl yapabilirim yardımcı olursanız sevinirim.

 

[İdris SERDAR]

K9 hücresine;


=IF(C9="";"";TODAY())

formülünü yazıp, aşağıya doğru kopyalayın.


.

 

[speedy 61]

Yardımların için teşekkürler fakat bu tarih ben o satıra bir şey yazdıktan sonra değişiyor mu?Değişiyorsa değişmemesi için ne yapabilirim.

 

[mehmett]

Dediğiniz özellik fonksiyon ile de yapılabilir ancak tarihlerin kalıcı olması için makroyla yapılması gerekir. Dosyanız ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C9:C52]) Is Nothing Then Exit Sub
satır = Target.Row
Cells(satır, 11) = Date
End Sub

 

[Orion1]

Merhaba.
Sayfanın kod bölümüne aşığdaki kodları Kopyalayıp yapıştırıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hata
If Intersect(Target, [C9:C59]) Is Nothing Then Exit Sub
If Target.Value <> "" Then
    Cells(Target.Row, "K").Value = CDate(Date)
    Cells(Target.Row, "K").NumberFormat = "dd.mm.yyyy"
    Else
    Cells(Target.Row, "K").Value = ""
End If
hata:
End Sub

Not:
Sayın mehmett cevabı vermiş .Göremedim.

 

[speedy 61]

Sayın Mehmet gönderdiğiniz dosyada denedim olmadı.Ben Türkçe excel yüklemiştim forumda ingilizce olarak gözüküyor.Ondan kaynaklanabilir mi

 

[mehmett]

Sn speedy 61

Gönderdiğim dosyada Malın Cinsi sütununda malzeme adı yazınca Tarih sütununda günün tarihi gelecek.

 

[speedy 61]

Sn Mehmet rahatsız ediyorum ama her zaman malın cinsi kısmına yazı yazmıyoruz bazen de kod kısmına malın kodunu yazıyoruz otomatik olarak adı çıkıyor zaten o kodlu tabloyu da siz yapmıştınız.Kod kısmına da uygulayabilirmisiniz aynı işlemi.Yardımlarınız için teşekkürler.

 

[mehmett]

Kodda aşağıdaki değişikliği yapınız.

If Intersect(Target, [B9:B52]) Is Nothing Then Exit Sub

 

[Necdet]

Sayın mehmet beyin yaptığı kodda

If Intersect(Target, [B9:C52]) Is Nothing Then Exit Sub

olarak değiştirin. Yani C9 u B9 yapınız