başka hücreden alınan veriye otomatik tarih

[cckastan]

merhabalar. T sütununda "EKSİK YOK" yazdığı zaman V sütununda o günü tarihi yazsın istiyorum ancak yapamıyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B5000]) Is Nothing Then Exit Sub

If Target = "BAŞVURU" Then Target.Offset(0, 21) = Format(Date, "dd/mm/yyyy")
If Target = "RÖLEVE ALINDI" Then Target.Offset(0, 22) = Format(Date, "dd/mm/yyyy")
If Target = "VERİLDİ" Then Target.Offset(0, 23) = Format(Date, "dd/mm/yyyy")
If Target = "GEZİLDİ" Then Target.Offset(0, 24) = Format(Date, "dd/mm/yyyy")
If Target = "GERİ" Then Target.Offset(0, 25) = Format(Date, "dd/mm/yyyy")
If Target = "ONAYLANDI" Then Target.Offset(0, 26) = Format(Date, "dd/mm/yyyy")

End Sub

bu kodu kullanıyorum diğer tarihler için ancak hücreye el ile veri girilmediği çalıştıramıyorum. yardım ederseniz sevinirim.

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B5000]) Is Nothing Then [B][COLOR="Red"]GoTo 10[/COLOR][/B]

If Target = "BAŞVURU" Then Target.Offset(0, 21) = Format(Date, "dd/mm/yyyy")
If Target = "RÖLEVE ALINDI" Then Target.Offset(0, 22) = Format(Date, "dd/mm/yyyy")
If Target = "VERİLDİ" Then Target.Offset(0, 23) = Format(Date, "dd/mm/yyyy")
If Target = "GEZİLDİ" Then Target.Offset(0, 24) = Format(Date, "dd/mm/yyyy")
If Target = "GERİ" Then Target.Offset(0, 25) = Format(Date, "dd/mm/yyyy")
If Target = "ONAYLANDI" Then Target.Offset(0, 26) = Format(Date, "dd/mm/yyyy")
[COLOR="red"][B]10:
If Intersect(Target, [T2:T5000]) Is Nothing Then Exit Sub
If Target = "EKSİK YOK" Then Target.Offset(0, 2) = Format(Date, "dd/mm/yyyy")[/B][/COLOR]

End Sub

 

[cckastan]

kod için teşekkür ederim ancak "EKSİK YOK" ibaresi el ile değilde diğer hücrelere bağlı olarak eğer(ve ile formülü içerdiği için tarih atmamaktadır.

 

[YUSUF44]

Sonradan fark ettim

Aşağıdaki kodu deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B5000]) Is Nothing Then GoTo 10

If Target = "BAŞVURU" Then Target.Offset(0, 21) = Format(Date, "dd/mm/yyyy")
If Target = "RÖLEVE ALINDI" Then Target.Offset(0, 22) = Format(Date, "dd/mm/yyyy")
If Target = "VERİLDİ" Then Target.Offset(0, 23) = Format(Date, "dd/mm/yyyy")
If Target = "GEZİLDİ" Then Target.Offset(0, 24) = Format(Date, "dd/mm/yyyy")
If Target = "GERİ" Then Target.Offset(0, 25) = Format(Date, "dd/mm/yyyy")
If Target = "ONAYLANDI" Then Target.Offset(0, 26) = Format(Date, "dd/mm/yyyy")
10:
If Intersect(Target, [K2:R5000]) Is Nothing Then Exit Sub
a = Target.Row
If WorksheetFunction.CountIf(Range("K" & a & ":R" & a), "YOK") = 8 Then
    Cells(a, "V") = Format(Date, "dd/mm/yyyy")
Else
    Cells(a, "V") = ""
End If
End Sub

 

[cckastan]

teşekkür ederim hocam. iyi çalışmalar.

 

[canyas]

Sevgili arkadaşlar, bir formulu tamamlayamadım. yardımlarınızı rica ederim.
B kolonundaki 50 hücrede ilerleyen Günleri-ayları-yılları gösteren tarihler yazıyor. ama bazı hücrelerde iş bitiş tarihleri yok.
yapmaya çalıştığım formül şekli;
C kolonunda her bir tarih hücresinin yanına, eğer B kolonundaki hücrede tarih varsa "VAR" yazması, tarih yoksa "YOK" yazması. Bir de tarih var ve 180 günden az bir zaman kalmışsa o hücrede "YAKLAŞIYOR" yazması.

B C
1. 01.01.2018 VAR (burada 180 günden fazla zaman olduğu için VAR yazması)
2. 01.10.2016 YAKLAŞIYOR (burada ise 180 günden az kaldığı için YAKLAŞIYOR yazacak)
3. YOK (burada B3 hücresi boş olduğu için YOK yazacak)


dosya eklemeyi bulamadım o yüzden yukarıdaki gibi açıklamaya çalıştım. şimdiden yardımlarınız için teşekkür ederim.

Selamlar