hücreye belli bir kac kelime girilirse yan hücresine günün tarihi yazsın

[kneehot]

Arkadaslar merhaba. yapmak ıstedıgım ornegın D4 hucresıne elma, armut, muz kelimelerinden birini girersem C4 hucresıne bugunun tarıhını atsın. bu ıslemı D4 den D200 e kadar yapmalı. yardımlara tesekkurler.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range, sonsat As Long
If Intersect(Target, [D4:D200]) Is Nothing Then Exit Sub
sonsat = Cells(Rows.Count, "F").End(xlUp).Row
Set k = Range("F1:F" & sonsat).Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then Target.Offset(0, -1).Value = Date
Set k = Nothing
End Sub

 

[Korhan Ayhan]

Alternatif;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D4:D200")) Is Nothing Then Exit Sub
    Veri = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
    Select Case Veri
        Case "ARMUT", "ELMA", "MUZ"
            Target.Previous = Now()
            Target.Previous.EntireColumn.AutoFit
    End Select
End Sub

 

[kneehot]

Alternatif;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D4:D200")) Is Nothing Then Exit Sub
    Veri = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
    Select Case Veri
        Case "ARMUT", "ELMA", "MUZ"
            Target.Previous = Now()
            Target.Previous.EntireColumn.AutoFit
    End Select
End Sub

Sayın Korhan Ayhan yardımlarınız için çok teşekkür ederim. Sizden bir konuda daha yardım rica ediyorum. yazdığınız makroda kelimenin solundaki hücreye tarih atıyor. uğraştım ama beceremedim başka bir tablom için soldaki ilk hücreye değil kelimenin yazıldığı hücrenin 6 sütun yanına yazdırmak istiyorum. yardımcı olursanız çok sevinirim. Şimdiden teşekkürler.

 

[kneehot]

Target.Previous = Now()

sanırım burayı degıstırmek lazım yardımcı olursanız cok sevınırım.

 

[Ömer BARAN]

Merhaba.
Konuya ilk kez baktım. Aşağıdaki şekilde dener misiniz?
10 (yani 10'uncu sütun olan J sütunu) sayısını değiştirerek sütun değişikliği yapabilirsiniz.

Cells(Target.Row, [B][COLOR="red"]10[/COLOR][/B])=Now()

 

[kneehot]

Merhaba.
Konuya ilk kez baktım. Aşağıdaki şekilde dener misiniz?
10 (yani 10'uncu sütun olan J sütunu) sayısını değiştirerek sütun değişikliği yapabilirsiniz.

Cells(Target.Row, [B][COLOR="red"]10[/COLOR][/B])=Now()

cok tesekkurler bu sekılde calıstı elınıze saglık. yardım eden herkese cok tesekkurler.