herhangi bir hücreye giriş yapıldığında farklı hücreye o günün tarihini atma

[sonatoztan]

Benim sıkıntım; herhangi bir hücreye giriş yapıldığında farklı hücreye o günün tarihini atma yadımlarınızı bekliyorum şimiden teşekkür ederim

 

[Ali]

Aşağıdaki linki inceleyin.
http://www.excel.web.tr/showthread.php?t=22638

 

[sonatoztan]

bu bir sonraki sütuna tarih atıyor benim istediğim herhangi bir hücreye teşekkürler.

 

[alpi]

aşağıdaki kodu sayfanın kod bölümüne yaz

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then 'iki kolon numarasını temsil ediyor yani B sutununda bir değişiklik olduğunda A1 hücresine tarih yazıyor
Range("A1") = Date
End If

 

[Recep İpek]

farklı hücreye o günün tarihini atma

Tarih yazılacak hücre adresini verirseniz daha çabuk çözüm bulmuş oluruz.

Buna benzer bir konu aşağıdaki linkte var.

http://www.excel.web.tr/showthread.php?t=22638

Not:Anlaşılan geç kalmışım..

 

[sonatoztan]

arkadaşım hata mesajı verdi ben sana örnek vererek anlatayım

örneğin A1 hücresine 1 veya farklı birşey girdiğimde E4 hücresine tarih yazacak

 

[Ali]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
On Error Resume Next
If Target <> "" Then
Range("E4") = Date
End If
End Sub

 

[sonatoztan]

ellerine sağlık hocam

 

[sonatoztan]

sizin verdiğiniz kodları vba yapıştırdım çalıştı.kodu tekrar altına kopyala yapıştır yaptım ve hücre numaralarını değiştirdim hata verdi yani işin özü bunu aynı sayfada iki veya daha fazla şekilde kullanamıyorum yardımlarınızı bekliyorum teşekkürler

 

[alpi]

Sayın sonatostan yapmak istediğiniz şeyi tam olarak söylerseniz tam bir cevap alırsınız yada bir örnek dosya ekleyin.

 

[sonatoztan]

ArkadaŞim Ekte Dosyayi Yolladim LÜtfen Yardim Edİn

 

[alpi]

dosyayı sıkıştırarak eklermisiniz virüs programım indirmeme engel oluyor

 

[sonatoztan]

Rar Olarak GÖnderİyorum

 

[alpi]

Aşağıdaki kodu sayfanızın kod editorune kopyalayın

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column >= 4 Or Target.Column <= 13 Then
Cells(Target.Row, Target.Column + 14) = Date
End If
Application.EnableEvents = True
End Sub

 

[sonatoztan]

dostum &#231;ok sa&#287;ol ama yazd&#305;&#287;&#305;n kod t&#252;m h&#252;creleri etkiledi&#287;inden formullerde hataya sebeb oluyor
formul kutusunu kitledim ozamanda vba hata mesaj&#305; verdi

 

[sonatoztan]

ArkadaŞlar LÜtfen Yardim Edİn

ArkadaŞlar LÜtfen Yardim Edİn

 

[sbayyigit]

bu şekilde işini görmez mi?

 

[Korhan Ayhan]

Selamlar,

&#214;rnek dosyan&#305;zda belirtti&#287;iniz alana 1 ve 0,5 de&#287;erlerinin d&#305;&#351;&#305;nda bir de&#287;er girilirse yinede tarih yaz&#305;lacak m&#305;?

 

[Ali]

Sn alpinin verdiği kodları

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E3:M20]) Is Nothing Then Exit Sub
If Target.Column >= 4 Or Target.Column <= 13 Then
Cells(Target.Row, Target.Column + 14) = Date
End If
End Sub

şeklinde kullanın.