tarihi yazsın..!

[sensizsoldum]

Merhabalar,

B sutundaki satıra her ne yazılırsa L sutunda o işlem yapılan tarihi yazsın istiyorum.
dosya eklemeyi isterdim, şirkette olduğumdan engel var.
bunu kod olarak yazarsanız memnun olurum.

iyi çalışmalar dilerim,


saygıyla...

 

[Emir Hüseyin Çoban]

. . .

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
    If Intersect(Target, [b1:b65536]) Is Nothing Then Exit Sub
    Cells(Target.Row, "L") = date
son:
End Sub

. . .

 

[sensizsoldum]

hüzeyin bey merhaba,
ilginize tşk ederim ama çalışmadı kod
b stündakı satıa herhangi giriş yaptım L stununda satırda herhangi bi otomatık tarıh olmadı.
rica etsem dosya ya ekleyıp forma ekleyebilirmısınız.
ben ekleyemıyorum ama ındırebiliorum dosyaları...

tekrardan tşk ederım.

 

[Emir Hüseyin Çoban]

. . .

Ekteki dosyayı inceleyiniz.

. . .

 

[sensizsoldum]

tşk ederim hüseyin bey elinize sağlık.
iyi çalışmaalr dilerim.

saygıyla

 

[kemal turan]

Hüseyin bey merhaba,
Yazdığınız kod benimde işime yaradı.
Fakat "L Sutunu dolu ise tarihi yazmasın" şeklinde kodu düzenleyebilirmiyiz.
Teşekkür ederim.

 

[Necdet]

Hüseyin bey merhaba,
Yazdığınız kod benimde işime yaradı.
Fakat "L Sutunu dolu ise tarihi yazmasın" şeklinde kodu düzenleyebilirmiyiz.
Teşekkür ederim.

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
    
On Error GoTo son
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target.Offset(0, 10) = "" Then Target.Offset(0, 10) = Date
son:
    
End Sub

 

[sensizsoldum]

ya da b sütünunda herhangi bişey yok ise L sütununda ki tarıhte silinsin.
bu da mumkunmudur.

 

[Necdet]

ya da b sütünunda herhangi bişey yok ise L sütununda ki tarıhte silinsin.
bu da mumkunmudur.

B sütunundaki değer silinirse L sütunundaki değer silinir, B sütununda değişiklik olduğunda L sütunu boş ise tarihi yazar, doluysa birşey yapmaz.

Private Sub Worksheet_Change(ByVal Target As Range)
 
On Error GoTo son
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target.Value = "" Then
        Target.Offset(0, 10) = ""
    Else
        If Target.Offset(0, 10) = "" Then Target.Offset(0, 10) = Date
    End If
son:
 
End Sub

 

[kemal turan]

Nejdet hocam.
Süpersiniz..
Çok tşk.

 

[sensizsoldum]

B sütunundaki değer silinirse L sütunundaki değer silinir, B sütununda değişiklik olduğunda L sütunu boş ise tarihi yazar, doluysa birşey yapmaz.

Necdet bey,
benim isteğime göre hala bir şey eksik,
b stuna herhangi bişey yazıldındğında L sutununda tarih olsun, b sutunu boş olduğunda tarih yeri de boş olsun ıstedım. ama oncekınden farkı pek göremedım.
yada ben farkedemedmmı

tşk ederım herşey için.

 

[sensizsoldum]

hocam tşk ederim siz haklısınız dediğiniz gibi tam anlamıyla kodunuz görevini yapıyor elinize sağlık, iyi çalışmalar hayırlı akşmlar dilerim..
saygıyla...

 

[meda58]

hocalarım bu kodları aynı sayfada aynı anda başka hücrelere nasıl uygularız örnegin a hücresi değişinçe b değişiyor aynı zamanda c hücresi değişince d hücreside değişsin istiyorum çünkü çoklu veri girişi yapıyorum ilgilenirseniz sevinirim
yalnız hocam hücreler başka yerden veri alıyor

 

[meda58]

hocam makroyu aşagıdaki gibi değiştirip entegre ettim fakat hücreler formüllü olduğundan değişikliği algılamıyor bu sorunu nasıl giderebiliriz

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [d1:d65536]) Is Nothing Then
Cells(Target.Row, "C") = Date
ElseIf Not Intersect(Target, [h1:h65536]) Is Nothing Then
Cells(Target.Row, "G") = Date
ElseIf Not Intersect(Target, [n1:n65536]) Is Nothing Then
Cells(Target.Row, "M") = Date
ElseIf Not Intersect(Target, [r1:r65536]) Is Nothing Then
Cells(Target.Row, "Q") = Date
ElseIf Not Intersect(Target, [x1:x65536]) Is Nothing Then
Cells(Target.Row, "W") = Date

End If
End Sub

 

[meda58]

huseyincoban hocam vaktiniz varsa bakablirmisiniz

 

[entegreinsaat]

B sütunundaki değer silinirse L sütunundaki değer silinir, B sütununda değişiklik olduğunda L sütunu boş ise tarihi yazar, doluysa birşey yapmaz.

Private Sub Worksheet_Change(ByVal Target As Range)
 
On Error GoTo son
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target.Value = "" Then
        Target.Offset(0, 10) = ""
    Else
        If Target.Offset(0, 10) = "" Then Target.Offset(0, 10) = Date
    End If
son:
 

End Sub

Necdet Bey ekteki avans listesine vermiş olduğunuz kodu uyguladım ve tarih yerini değiştirdim. Bir şeyi merak ediyorum personelin ad ve soyadını girdiğimde tarih sütununda olduğu gibi sıra numarasını otomatik yazdırabilirmiyiz? Bir şeyi daha çok merak ediyorum; persone ad ve soyadını yazdığımda enter tuşuna başınca imleç tutar hücresine gidecek ordanda açıklama hücresine ve en son açıklama hücresinde enter tuşuna başınca bir alt satırdaki ad soyad hücresine gidecek bunu yapmak mümkünmü Şimdiden teşekkür ederim.

 

[sensizsoldum]

merhaba iyi akşamlar
sayın hocam geçtiğimiz haftalarda yaptığınız çalışmaya bi farklılık kazandırmak ıstıyorum buda benım:= zamanım demektır.
kodunuz tam anlamıyla çalışıyor ancak ben girişleri tek tek yapmıyorum. mesela b sütundaki satırlara birden fazla 70 olabilir 100 olabilir daha fazla yada daha az olabilir copyala yapıştır mantığıyla veri girişi yapıyorum. L sutunda bu satırda tarıhı yazıyor boş ise sılınıyor. ama tek tek yapılınca. bunu çoklu girişe uygun bi hale getırebilirmıyız. yoksa sürekli f2 enter yapmak durumunda kalıyorum işime yarayan kod nejdet beyin 9 nolu mesajındakı kodlarda dır yanılmıyorsam.

kısaca b sutuna giriş yapıldığında birden fazla olsada bu girişler L sütünda da o günkü tarih gelsin. b sutunu sılınmışse tarihte sılınsın.


herkese gönülden tşklerimi sunarım saygıyla

iyi akşamlar dilerim.