BELİRLİ ARALIKTAKİ DEĞİŞİKLİKLERİ KONTROL ETMEK

[scartex]

MERHABA ARKADAÃ�LAR. EXCELDE Ã?RNEÃ�İN C3 HÜCRESİNE HERHANGİ BİR RAKAM VEYA HARF YAZIP ENTERE BASTIÃ�IMDA D3 HÜCRESİNE O ANKİ TARİH-SAATİ YAZSIN İSTİYORUM VE 5-10 DAKİKA SONRA C4 HÜCRESİNE BİR Ã�EYLER YAZIP ENTERE BASTIÃ�IMDA D4 HÜCRESİNE O ANKİ TARİH-SAATİ YAZSIN İSTİYORUM. ANCAK HER YENİ VERİ GİRİÃ�İ YAPTIÃ�IMDA BÜTÜN TARİH-SAATLER EN SON ENTERE BASILDIÃ�I ANDAKİ ZAMANA DÃ?NÜYOR. YARDIMCI OLURSANIZ SEVİNİRİM.

[csagdan]

Arkadaşım mutlaka diğer arkadaşlar bir makro önerisi filan sunacaklardır ama eğer bu dediğin hücrelere çok sık bilgi girişi yapmıyorsan tarih yazdıktan sonra kopyala/özel yapıştır/değerleri yaparsan o anda yazmış olduğu hücre sabit kalıyor...
Sadece bir öneri...
Kolay gelsin.

[Levent Menteşoğlu]

Sn scartex

Ã?ncelikle hoşgeldiniz.

sanırım =Ã�İMDİ() formülünü kullandınız. bu formül sürekli aktif halde bulunduğundan değeri sabit tutmak zor görünüyor. Belki vba ile yapmak mümkün olabilir.

[jale]

Merhaba

Sadece bir fikir olarak ayrı hücrelerde Ctrl+Shift+;(noktalı virgül) tarihi verir. Ctrl+Shift+:(iki nokta üst üste) saati verir.

[ALPEN]

aceleye geldi, biraz ilkel bir çözüm ama inceleyin,

[scartex]

ARKADAÃ�LAR BEN RAKAMSAL DEÃ�ERLERİ BİR BARKOD OKUYUCU VASITASIYLA ALIYORUM ENTER KOMUTUNUDA BARKOD OKUYUCU VERİYOR BUNU NASIL ÇÃ?ZERİZ ?

[danersin]

Bu işi VBA ile yazıp uğraşmaktansa =şimdi() formüllü yere csagdan'ın söylediği işi, kısaca F2 F9 ile yapmak daha pratik ..

[ALPEN]

karışıklığa meydan vermemek için barkod okuyucunun belirli bir satıra (veya sütüna) yazdırması gerekir. yoksa barkod her okuduğunda aktif hücre hangisi ise oraya yazar.

barkodun sadece a sütünuna girileceğini var sayıyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim blg As Range
If Target.Count > 1 Then Exit Sub
Set blg = Range("A:A")
If Intersect(Target, blg) Is Nothing Then Exit Sub
Target.Offset(, 1) = Now
End Sub

yukarıdaki kod, a sütünunda herhangi bir değişiklik olduğu an (barkod girilmesi gibi) hemen yan sütununa tarih ve saati yazar.

[scartex]

ÇOK TEÃ�EKKÜR EDERİM ALPEN. SORUNUM ÇÃ?ZÜLDÜ.

[ALPEN]

rica ederim. soru başlığını " belirli aralıktaki değişiklikleri kontrol etmek " olarak değiştirirseniz sevinirim.

[mlakdag]

Sayın Alpen,

Cehaletimi mazur görürseniz konu ile ilgili bir soru sormak istiyorum.
Dosyaya ilişkin kod;
Public xx As Integer
Public yy As Integer
Public z As Integer
Public k As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
z = 1
xx = Target.Row
yy = Target.Column + 1
If Cells(Target.Row, Target.Column) <> "" Then k = 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If z = 1 And k = 1 Then
Cells(xx, yy) = Now
k = 0
End If
End Sub

Acaba buradaki "z" değişkeni nasıl bir görev ifa ediyor ?

[ALPEN]

şimdi baktım hiç bir işe yaramıyor.

aceleye geldi, biraz ilkel bir çözüm ama inceleyin,

ilk cevabımda da belirttiğim gibi, acil yemeğe çıkmam gerekiyordu (obez olduğum düşünülmesin,-1.87cm -82 kg- arkadaşlar asansörde bekliyordu), birkaç deneme yapıp, kontrol etmeden çalıştığını gördükten sonra gönderdim. yani z olmasa da olur.

iyi çalışmalar.

[mlakdag]

Sayın Alpen,

Tahmin edeceğiniz üzere amacım hata yakalamak olmadığı gibi zaten haddim de değil. Gelen cevapları inceleyerek bilgi düzeyimi arttırmaya çalışmaktayım, ilgili kodda da olduğu gibi foruma gelen diğer kodlarda da anlamadığım ve/veya nedenini bulamadığım pekçok satır olabiliyor, ben sadece takip edebildiklerimi sorgulayarak bakış açımı genişletebiliyorum.
.
Tekrar teşekkürler

[ALPEN]

en güzel öğrenme yollarından birisi.