Değere göre tarhi atama

[qiqirdeq]

Merhaba,

A sütünü na "Teslim Edildi" yazınca B sütünü na otomatik tarih atamasını nasıl yapabilirim teşekkürler

 

[Ömer]

Merhaba,

Sayfanın kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub

    With Target
        If .Count > 1 Then Exit Sub
        If .Value = "" Then
            Cells(.Row, "B") = ""
            Exit Sub
        End If
        If UCase(Replace(Replace(.Value, "ı", "I"), "i", "İ")) = "TESLİM EDİLDİ" Then
            Cells(.Row, "B") = Format(Date, "dd.mm.yyyy")
        End If
    End With

End Sub

.

 

[qiqirdeq]

Teşekkürler istediğim gibi oldu, iyi çalışmalar

 

[halilkoyuncu]

Mrb.arkadaslar benım sorunum soylekı b sutununa el ıle deger gırdıgım zaman o ankı tarıhı A sutununa atmasını ıstıyorum bunu elle yazdıgım zaman deger atıyor ama b hucresındekı değeri formulle C sutunundan getirdiğim zaman tarıh degısmıyor. bu konuda yardımcı olursanız sevinirim..
ek olarak b sutununa 1 değeri girdiğimde tarih yazıyor 0 ise boş bırakıyor bundada bir sorun yok sadece formulle getirdiğimde değişmiyor

çok acill lütfen

kod su sekilde:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
On Error Resume Next
With Target
If .Row = 0 Then Exit Sub
Target.Offset(0, -1) = ""
If .Value = Empty Then Exit Sub
Target.Offset(0, -1) = Format(Now, "dd.mm.yyyy:hh:mm")
End With
End Sub

 

[kemal turan]

merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:C")) Is Nothing Then Exit Sub
On Error Resume Next
With Target
If .Row = 0 Then Exit Sub
Target.Offset(0, -2) = ""
If .Value = Empty Then Exit Sub
Target.Offset(0, -2) = Format(Now, "dd.mm.yyyy:hh:mm")
End With
End Sub

 

[kemal turan]

"çok acill lütfen" demişsiniz..
Umarım acil olmuştur..