Hücreye girdiğim an diğer hücreye otomatik tarih atma ve tarihi değiştiremem sorunu

[s.balci]

Arkadaşlar ekteki belgeye bakarsanız. Yapmak istediğimi aşağıda anlattım sadece bir sütun için gerçekleştirdim ama diğerleri için yapamadım.

Kullanıcı yetki ile atanmış her kullanıcının şifresi var ve bu kullanıcılar kendine atanmış alanlar haricinde başka yerlere dokunamıyorlar. buraya kadar yaptım fakat asıl önemli kısım kaldı.

Ben sadece F3:F1048576 sutununa kayıt girdiği an G3:G1048576 arasına o andaki tarihi atıyor. Buradada aynı zamanda tarihle beraber saatinin de yazmasını istiyorum.

A3:C1048576 arasına yetkili olan kullanıcı için C3 e girdiği anda veriyi
D31048576 sutunu arasına otomatik man tarih ve saat atmasını istiyorum.

H3:H1048576 arasına yetkili olan kullanıcı için C3 e girdiği anda veriyi
I3:I1048576 sutunu arasına otomatik man tarih ve saat atmasını istiyorum.

J3:J1048576 arasına yetkili olan kullanıcı için C3 e girdiği anda veriyi
K3:K1048576 sutunu arasına otomatik man tarih ve saat atmasını istiyorum.

Arkadaşlar bu konuda yardımlarınızı bekliyorum. İlgilenirseniz sevinirim.

 

[s.balci]

Arkadaşlar bi ilgilenirseniz. iyi günler.

 

[s.balci]

yokmu bi bilgin arkadaş.

 

[parametre]

dosyanı 2003 uyarlarsan cevap verebilirim birde sorunuzu herkesin anlayacağı sekilde acık ve net sorun kendinizin anladıgı sekilde değil ok buna dikkat ederseniz daha cabuk cevap alırsınız tercih sizin kolay gelsin

 

[cems]

Tarihin olduğu ;
ilk hücreye sağ tıkla
hücreleri biçimlendir seç
isteğe uyarlanmış tıkla üstteki boş yere gg.aa.yyyy ss:dd yaz ve tamam de

Sonra bu hücreyi sağ altından tutarak istediğin kadar aşağıya doğru çek ve bırak . Bütün hücrelere bu yapılmış olur.

normal olarak dakikasına kadar ( bilgisayarın saatine göre ) yazması gerekli ama
Sayın Parametre nin dediği gibi versiyon farkına dikkat et .
Bunu bir dene sonucu bildir lutfen

 

[cems]

Sayın Necdet Yeşertener'in çözümlerinden biri ....

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Or Target.Row < 2 Then Exit Sub
Target.Offset(0, 1) = Now
End Sub

Siz A:A kısmını , yazılacak kısım olarak alın ve offset(0,1) deki 1 sayısını deneyerek yazdığı yeri ilerleterek bulun .

Now yerine Date yazarsanız tarih alır.

Versiyon farkından dosyanız dondu .