Otomatik Tarih Atama "Yardım"

[pyloth]

Merhaba arkadaşlar,

Excel de yaptığım bir çalışmada takıldım kaldım.

H sütununa değer girdiğimde C sütununda o günün tarihinin gelmesini istiyorum. +Bugün() yapınca hergün değişiyor.

Forumlarda çok araştırdım ama bir türlü beceremedim. Bu eklediğim dosyada bana yardımcı olmanızı rica ederim.

Teşekkürler.

 

[Mahir64]

Merhaba arkadaşlar,

Excel de yaptığım bir çalışmada takıldım kaldım.

H sütununa değer girdiğimde C sütununda o günün tarihinin gelmesini istiyorum. +Bugün() yapınca hergün değişiyor.

Forumlarda çok araştırdım ama bir türlü beceremedim. Bu eklediğim dosyada bana yardımcı olmanızı rica ederim.

Teşekkürler.

Merhaba
Şimdi forumdan alıntı yaptım
Sayfanın kod bölmüne yazarak deneyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [H3:H19]) Is Nothing Then Cells(Target.Row, "C") = Format(Now, "dd.mm.yyyy")
End Sub

 

[pyloth]

Merhaba
Şimdi forumdan alıntı yaptım
Sayfanın kod bölmüne yazarak deneyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [H3:H19]) Is Nothing Then Cells(Target.Row, "C") = Format(Now, "dd.mm.yyyy")
End Sub

ilginize teşekkürler. Ancak bir değişiklik olmadı. Benim eklediğim dosyada yapıp ekleyebilir misiniz?

 

[Mahir64]

ilginize teşekkürler. Ancak bir değişiklik olmadı. Benim eklediğim dosyada yapıp ekleyebilir misiniz?

Merhaba
Eki inceleyiniz.

 

[pyloth]

Çok teşekkür ederim. Tam istediğim gibi olmuş. Ellerinize sağlık.

 

[Mahir64]

Çok teşekkür ederim. Tam istediğim gibi olmuş. Ellerinize sağlık.

İyi çalışmalar.

Kodlar, Ömer beyin bir cevabından alıntıdır.

 

[ssdestek]

Merhaba
Şimdi forumdan alıntı yaptım
Sayfanın kod bölmüne yazarak deneyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [H3:H19]) Is Nothing Then Cells(Target.Row, "C") = Format(Now, "dd.mm.yyyy")
End Sub

MERHABA HOCAM,
Bu uygulamayı makro kullanmadan formüllerle nasıl yapabiliriz?
teşşekür ederim.

 

[ik636363]

merhaba

=şimdi() ilgili hücreye bu formülü yazınız
iyi çalışmalar

 

[İhsan Tank]

MERHABA HOCAM,
Bu uygulamayı makro kullanmadan formüllerle nasıl yapabiliriz?
teşşekür ederim.

arkadaşın söylediği gibi

=ŞİMDİ()

formülü işinizi görür ama sabit olmaz
değer değiştiğinde otomatik oda değişir.

 

[Mahir64]

MERHABA HOCAM,
Bu uygulamayı makro kullanmadan formüllerle nasıl yapabiliriz?
teşşekür ederim.

Merhaba
Aynı şekilde yapamazsınız.

=ŞİMDİ() yazdığınızda kendini güncelleyecektir. Kalıcı olarak yazamazsınız.

Ama ilgili hücreye devamlı elle tarih yazmayacağım ve kalıcı olsun derseniz
Kısayol kullanabilirsiniz,
CTRL SHİFT ; üçlü kombinasyon ile anlık tarih yazdırabilirsiniz.

 

[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

 

[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,
Kod: Tüm Kodu Seç (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

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..