Eğer formülü kullanımı hk

[petsiye]

Herkese Merhaba
Sayfanın kod bölümüne yazmak istediğim kod şu şekilde : A2 ile A5000 hücreleri arasına "Arandı" yazdığımda, B2 ve B5000 hücreleri arasına bugünün tarihini ve saati yazsın, ve tarih ile saat bir sonraki gün değişmesin ve aynı kalsın.
Yardımcı olacak arkadaşlara çok teşekkür ederim şimdiden

 

[Emir Hüseyin Çoban]

.

Bir çok kez işlenmiş bir konu. Forumda arama yaparsanız çözüme ulaşabilirsiniz.

.

 

[petsiye]

Hüseyin bey inanın günlerdir arıyorum bu sorunun cevabını forumda fakat cevabı bulamadım kusura bakmayın. Hücre dolu ise dediğim şekilde tarih be saat atıyor ve değişmiyor onu buldum fakat istediğim kelime yazılınca tarih ve saat atsın sorusunun cevabını bulamadım maalesef. Kodlama bilgim oldukça sınırlı bu arada beni mazur görün lütfen

 

[Emir Hüseyin Çoban]

.

Çalışma sayfasının kod bölümüne yapıştırın.
Test edin, gerekli olan ilaveleri yapalım.
Örneğin hücredeki arandı silinirse, hücreye başka değer girilirse.. vs. durumlarda tarih saat değişecek mi veya silinecek mi..

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [A2:A5000]) Is Nothing Then Exit Sub
If Replace(UCase(Target.Value), "ı", "I") = "ARANDI" Then Cells(Target.Row, "B") = Now

End Sub

.

 

[petsiye]

Arandı silinirse tarih ve saat aynı kalabilir sorun yok. Eğer bu yazdığınız kod çalışırsa cennetliksiniz bunuda bilin

 

[petsiye]

Fakat kodda tarih ve saati göremedim

 

[Emir Hüseyin Çoban]

.

Now = Şimdi (Tarih Saat Dakika)

Fikir verebilir...
http://www.excel.web.tr/f157/hucreye-daha-nce-girilmi-verileri-goster-t162406.html

.

 

[petsiye]

Ekteki dosya için altın üyelik istiyor maalesef Hüseyin bey