hücreye tarih saat kayıdı

[enba]

arkadaşlar herkeze merhaba
ben excelle ilgilenmeye yeni başladım vede cok hoşuma gitmeye başladı

sizlere sormak istediğim kilitli bir excel sayfayında sadece bir sutunu acık bıraktım A sutunu. mesala A1 hücresine bir yazı yazdığımda yanındaki b1 hücresine bunun tarih ve saat kaydını yapmasını istiyorum böyle bir sey mümkünmü ben sadece şimdi diyerek o saati kaydebiliyorum ama hepsi aynı oluyor.

yardımlarınız icin şimdiden teşekkür ederim .
hayırlı günler

 

[Levent Menteşoğlu]

Sn enba öncelikle hoşgeldiniz.

Tüm fonksiyonlar devamlı aktif halde bulunurlar, yani değişikliklere hareketsiz kalmazlar, "ÞİMDİ","BUGÜN" gibi zaman fonksiyonları sürekli olarak zamanı takip ettiklerinden sabit bir değerde kalmazlar ve sürekli zamanın son değerini gösterirler. Bu durumda size iki şey önerebilirim. Birincisi tarih ve saati bir fonksiyon yardımı ile değil, el ile yazmanızdır. İkinci önerimde bunu bir makro ile yapmaktır. Fakat her iki durumdada korumalı hücrelere bu kaydı yapamazsınız. Buna rağmen benim göremediğim bir çözümü öneren arkadaşlarda çıkabilir. Çünkü excelde her şeyi tam olarak bilmek maalesef pek mümkün değil. Zaten amacımızda bildiklerimizi paylaşmaktan ibarettir.

selamlar

 

[enba]

selam tekirdağlı hemserim. acıklamalırın icin teşekkür ederim..
benim yapmak istediğim
işyerimde şifreli bir excel sayfası koyup girilen değerin ne zaman hangi saatte koyulduğunu öğrenmek ve bu saati değişterememesi..

ilginize teşekkür ederim

 

[rcekinir]

size ekte hazırladığım dosyayı gönderiyorum
bir inceleyin bakalım sournunuzu çözecekmi
Kolay gelsin

 

[rcekinir]

Bir Ã?nceki gönderdiğim dosyadan daha kısa ve güvenli yeni dosyayı yolluyorum.
şifreyi siz istediğiniz gibi değiştirin.
fakat tarih değişmesine engel olmak için kodlarıda gizlemelisiniz.

 

[jale]

Günaydın

Sayın rcekinir , bu dosyanız benimde çok işime yarayacak, teşekkürler.

 

[enba]

RCEKİNİR MÜKEMMELSİN

 

[enba]

herkeze merhaba rc ekinri arkadasım teşekkürler yalnız bir ricam daha olacak bu formulu ben istediğim iki ayrı hücrelerde nasıl kullanabilirim. yardımlarınız icin teşekkürler

 

[enba]

galiba kimse cevap veremeyecek..

 

[rcekinir]

Sayın Enba 3-4 gündür foruma giremiyorum.Sanırım Server de bir sorun vardı.
Sorunuzu Bugün gördüm.
Mümkünse sorularınızı daha açıklayı sorarsanız yanıt da daha iyi olur.
iki ayrı hücrelerden kastın nedir tam anlayamadım ama ben şöyle olduğunu düşünerek kod yazdım.
a ve b sütunlarına girilen veriye göre c sütununa tarih atmak.
a ve b sütunlarında korumayı kaldırın.
Sayfanın kod bölümüne aşağıdaki kodları yazın.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
  On Error Resume Next
  ActiveSheet.Unprotect "şifre"

Forumu
  st = Selection.Row
  kl = Selection.Column
  If kl <> 1 And kl <> 2 Then Exit Sub
  If kl = 1 Then
    Cells(st - 1, kl + 2).Select
    Cells(st - 1, kl + 2) = Now()
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
    Cells(st, kl).Select
  End If
  If kl = 2 Then
    Cells(st - 1, kl + 1).Select
    Cells(st - 1, kl + 1) = Now()
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
    Cells(st, kl).Select
  End If
  ActiveSheet.Protect "şifre"
Application.ScreenUpdating = True
End Sub

olması gerekekir.
Forumda doya ekle seçeneğinide göremediğimden kodları yukarı yazdım.
Kolay Gelsin

 

[enba]

merhaba

rcekinir merhaba ilk başta ilgin icin cok teşekkür ederim.. benim anlatmak istediğim hücrelerden kastım.. iki ayrı işlem yapabilmek farzedelim a sutununa yazdığımda b sutununa tarih saat atsın f sutununa yazdığımda ise g sutununa tarih saat atsın. yani birisi işe başlangıc biriside bitiş olarak iki ayrı hücreye atmasını rica etmiştim şimdiden teşekkür ederim

 

[enba]

merhaba

birde benmi bir yanlışlık yapıyorum acaba bu yazılan kodlarınız klavyeden yazılırsa calışıyor. ama mousle kullandığımda tarih saati bir alttaki hücreye atıyor.
teşekkürler

 

[rcekinir]

Sayın Enba
Bahsettiğiniz sütunları dikkate alarak kodu değiştirdim.
Bu kodların çalışması için hücreye bir değer girilip enter'e basılması gerekiyor.Mause ile veya kopyala yapıştırla hücrenin değeri değiştiğinde olay farklı olduğu için bu kodlar farklı çalışıyor bunu bende çözemedim.
Aşağıdaki kodlari yine ilgili sayfanın kod bölümüne yapıştırın.
a ve f sütunlarıın korumasını kaldırmayı unutmayın.
Saygılarımla

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
  On Error Resume Next
  ActiveSheet.Unprotect "şifre"
  st = Selection.Row
  kl = Selection.Column
  If kl <> 1 And kl <> 6 Then ActiveSheet.Protect "şifre": Exit Sub
  If kl = 1 Then
    Cells(st - 1, kl + 1).Select
    Cells(st - 1, kl + 1) = Now()
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
    Cells(st, kl).Select
  End If
  If kl = 6 Then
    Cells(st - 1, kl + 1).Select
    Cells(st - 1, kl + 1) = Now()
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
    Cells(st, kl).Select
  End If
 ActiveSheet.Protect "şifre"
Application.ScreenUpdating = True
End Sub

Kolay Gelsin

 

[enba]

TEÞEKKÜR EDERÝM

ÇOK TEÞEKKÜR EDERİM
ALLAH SENDEN RAZI OLSUN.

 

[baydeniro]

Paylaşım İçin Teşekkürler

Sayın rcekinir paylaşım için teşekkürler.

 

[SKAYA25]

Arkadaşlar bir sorunum var off. 2007 kullanıyorum yukarıdaki kod. tam benim istediğim şey aylardır bunu arıyordum. fakat bunu kendi sayfama nasıl uygulayacağım. kesip nereye yapıştırıyorum. belki bu sorunun yeri burası değil ama nereye yazılacağını bulamadım. şimdiden cevap yazan arkadaşlara de teşekkürlerimi gönderiyorum.

 

[halilbay2]

Sayın SKAYA25 Yukarıdaki kodu kopyalayın Excell dosyasında sayfa sekmesine sağ tuş yapın açılan menüde "Kod Görüntüle" üzerine tıkla açılan sayfaya yapıştırıp kapatın. işlem tamamdır.
Kolay gelsin

 

[SKAYA25]

1- excel dosyasında yaklaşık 30 ad. sayfa var, bu ve daha sonra açacağım bütün sayfalarda çalışsın istiyorum.

2- kodu bana uygun olduğu gibi değiştirdim C sutununa herhangi bir veri girildiğinde b sutununa tarihi yazacak, onu da yapıyor. Fakat C sutunundaki bir sabit karakteri 15- 20 kere yazmamak için hücrenin sağ alt köşesinden aşağıya çekip çoğaltıyorum. tarih yazmıyor.


3- acaba şu olurmu diyorum aşağıda benim her defasında elle yaptığım resmi veriyorum. kırmızıya boyadım hesaplanması gereken hücreleri

[img=http://www.loadtr.com/k-140814-dusey_topla.jpg][/img]


H ve L sutunlarını eğer alt alta veri varsa toplayacak topladığını bir sağ sutuna dik ve ortalı yazacak sağ hücreyi ters C şeklinde kenarlık yapacak

acaba böyle birşey varmı

 

[SKAYA25]

arkadaşlar biri yardımcı olsun ne yapmalıyım olmuyor.

 

[SKAYA25]

arkadaşlar biri yardımcı olsun ne yapmalıyım olmuyor. ...............