otomatik tarih

[spilavci]

Aşağıdaki dosyada belirttiğim gibi D sütununa teslim yazınca E sütununa günün tarihini otomatik olarak attırmak mümkünmü?

Selamlar

 

[Necdet]

Merhaba,

Tarih & Zaman & Saat Fonksiyonları Uygulamaları Son sayfayı inceleyiniz.

 

[spilavci]

Necdet Hocam ,

Bunları sayenizde öğrenmiştim.Benim istediğim aşağıdaki gibi bir kod belki veya koşullu biçimlendirme.

Sub Macro1()
Range("D3").Select
ActiveCell.FormulaR1C1 = "teslim"
Range("E3").Select
ActiveCell.FormulaR1C1 = "=NOW()"
End Sub

burada şöyle bir sorun var.Sadece tek bir hücreyi yapıyor.Genişletemiyorum.

Yardımlarınız teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
If Target.Row < 4 Then Exit Sub
If Target.Value = "teslim" Then
    Target.Offset(0, 1) = Date
Else
    Target.Offset(0, 1) = ""
End If
Son:
End Sub

 

[spilavci]

Necdet Hocam elinize sağlık süper oldu.Sizden sonra IF ile yapayım dedim ve şöyle bir tablo ortaya çıktı.Durum hanesine teslim yazmaya başladığınızda günün tarihini atıyor.Sadece paylaşmak istedim.

Sizin göndermiş olduğunuz tam çözüm oldu.Benimki biraz pansuman gibi.

Tekrar selam ve sevgilerimle.

 

[vitaminb1]

eğer fonkasiyonu =EĞER(D4=teslim;" ";BUGÜN())

 

[spilavci]

Sevgili Hemşerim vitaminb1

formulü alta doğru kopyalayınca name çıkıyor.

Slm.

 

[vitaminb1]

gardeş ben o formülü yazdım ama sonradan aklıma geldiki orada bügün formülü var.Bugun formülünden dolayı teslim tarihine hep içinde bulunduğumuz tarihi yazar. o nedenle pek kullanışlı değil.Name hatasının neden kaynaklandığını çözemedim. Hücre bişindirmeden kaynaklana bir sorun diye düşünüyorum ama çözemedim. Teslim tarihini yazsak otamatik Teslim diye yazdırmak daha kolay. D SUTUNUNA AŞAĞIDAKİ FORMÜLÜ KOPYALAYINCA
=EĞER(E5=0;" ";"teslim")

 

[spilavci]

Hemşerim haklısın ve süpersin.

Çok selamlar.

 

[spilavci]

Necdet Hocam Günaydın ,

Tekrar rahatsız ediyorum.Kodlar çalıştı.Yalnız şöyle bir durum var.Teslim yazınca tarihi atıyor.Bir sonraki günde , aynı hücreye gene teslim yazınca günün tarihini atıp önceki tarihi değiştiriyor.

Ne yapabilirim?

Selamlar.

 

[Necdet]

Günaydın,

Aşağıdaki kodları yine ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
If Target.Row < 4 Then Exit Sub
If StrComp("Teslim", Target.Value, vbTextCompare) = 0 And _
    Target.Offset(0, 1) = "" Then
        Target.Offset(0, 1) = Date
End If
Son:
End Sub

 

[spilavci]

Şimdi oldu.Çok teşekkür ederim.

Bu arada fructose hala üyemi?

Çok selam söylüyorum kendisine.

 

[Necdet]

Bu arada fructose hala üyemi?

Çok selam söylüyorum kendisine.

Fructose Ali beyin eski nickidir.