Hücreye Statik Tarih ve Adres atama

[realx11]

Arkadaslar Selam,
aşağıdaki linkten göreceginiz üzere " I " hücresine statik tarih ve saat yazmasını istiyorum. Ancak şöyle olmalı, ben hücreye veri girdigim zaman bunu o anki tarihi ve saati otomatik yazmalı. ve bu statik olmalı, yani ileriki bir tarihte açtığımda o tarihler degismemeli. Böyle bir förmül varmıdır?

 

[Ömer]

Merhaba,

Hangi sütuna veri girince I sütununa tarih ve saat yazması gerekiyor. Ayrıca mevcut veri silinince I sütunundaki tarih de silinecek mi?

.

 

[realx11]

Merhaba,

Hangi sütuna veri girince I sütununa tarih ve saat yazması gerekiyor. Ayrıca mevcut veri silinince I sütunundaki tarih de silinecek mi?

.

Mesela "B" sutunu. Veri silindiginde tarihinde silinmesi çok önemli degil.
Tesekkurederim.

 

[Ömer]

Mesela "B" sutunu. Veri silindiginde tarihinde silinmesi çok önemli degil.
Tesekkurederim.

Çalışma sayfasının kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, [B2:B65500]) Is Nothing Then Exit Sub
    
    Cells(Target.Row, "I") = Format(Now, "dd/mm/yyyy ss:dd")
 
End Sub

.

 

[realx11]

Çalışma sayfasının kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, [B2:B65500]) Is Nothing Then Exit Sub
    
    Cells(Target.Row, "I") = Format(Now, "dd/mm/yyyy ss:dd")
 
End Sub

.

Sevgili ömer, cevap verdigine pişman olma lütfen ama Kod bölümüne girecegim yeri söylermisin? )

Kullandığım Exell "Office 2011" Macintosh versiyon ingilizce

 

[Ömer]

Yalnız daha önce makrolarla çalışmadıysanız birkaç ayarı düzenlemeniz gerekir.

Makro ayarlarını düşürmek için,

Boş bir excel çalışması açıp linkteki resimleri takip edin. Bu işlemi kullandığını bilgisayarda bir kerelik yapmanız yeterli olacaktır.

office 2007'de makro güvenlik ayarlarını düşürmek resimli anlatım

Bu işlemlerden sonra açtığını boş excel çalışmasını kaydetmeden kapatabilirsiniz.

Şimdi kodları uygulamaya sokalım.

Kendi çalışmanızı açın, kodları kullanmak istediğiniz sayfa adı üzerine fare ile sağ klik yapın, açılan menüden kod götüntüle seçeneğine tıklarsanız sayfanın kod bölümü açılır. Açılan ekrana kodları kopyalayıp yapıştırın.

Artık B sütununa veri girerseniz istediğiniz olacaktır.

Son olarak dosyayı kaydederken farklı kaydet seçeneklerinde "makro içerebilen" çalışma sayfası olarak kaydediniz.

.

 

[realx11]

Yalnız daha önce makrolarla çalışmadıysanız birkaç ayarı düzenlemeniz gerekir.

Makro ayarlarını düşürmek için,

Boş bir excel çalışması açıp linkteki resimleri takip edin. Bu işlemi kullandığını bilgisayarda bir kerelik yapmanız yeterli olacaktır.

office 2007'de makro güvenlik ayarlarını düşürmek resimli anlatım

Bu işlemlerden sonra açtığını boş excel çalışmasını kaydetmeden kapatabilirsiniz.

Şimdi kodları uygulamaya sokalım.

Kendi çalışmanızı açın, kodları kullanmak istediğiniz sayfa adı üzerine fare ile sağ klik yapın, açılan menüden kod götüntüle seçeneğine tıklarsanız sayfanın kod bölümü açılır. Açılan ekrana kodları kopyalayıp yapıştırın.

Artık B sütununa veri girerseniz istediğiniz olacaktır.

Son olarak dosyayı kaydederken farklı kaydet seçeneklerinde "makro içerebilen" çalışma sayfası olarak kaydediniz.

.

Verdiginiz bilgiler için çok Teşekkürederim.
Bu ayarlar Macintosh versiyonunda bulamadım, ve ingilizce oldugu için çok farklı karşılıklar var. Ben en iyisi bir PC bilgisayar bulup oradan ilgili ayarları yapayım. Tesekkur ederim

 

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