Şimdiki saat

[sejamba]

Merhaba arkadaşlar bnm takıldığım nokta zaman konusunda ; ben hücreye bir formül girmek istiyourm ve bana şu andaki saati versin istiyorum
mesela 13:50 desin, sonra iki saat sonra altındaki hücreye yine bu formulu girdiğimde 15:50 desin yani bana o andaki saati versin aslında bunu kullanma amacımda söyle mesela saat 13:30 da birisi aradı onu kaydetcem sonr 15:40 birisi aradı onuda kaydetcem yanı kayıtlar için, çözümünüz var mı bunu için? yardımcı olursanız sevinrim

 

[Levent Menteşoğlu]

Merhaba arkadaşlar bnm takıldığım nokta zaman konusunda ; ben hücreye bir formül girmek istiyourm ve bana şu andaki saati versin istiyorum
mesela 13:50 desin, sonra iki saat sonra altındaki hücreye yine bu formulu girdiğimde 15:50 desin yani bana o andaki saati versin aslında bunu kullanma amacımda söyle mesela saat 13:30 da birisi aradı onu kaydetcem sonr 15:40 birisi aradı onuda kaydetcem yanı kayıtlar için, çözümünüz var mı bunu için? yardımcı olursanız sevinrim

Bu istediğinizi hazır fonksiyonlarla yapmanız zor, çünkü bu fonksiyonlar dinamiktir. Ancak VBA ile yapılabilir. Bunun için saati hangi hücreler aralığına yazacağınızı belirtirmisiniz.

 

[sejamba]

hmmm anladım A1 ile A65536 çok saol şimdiden

 

[Recep İpek]

Anladığım kadarıyla bir hücreye o anki saati yazmak istiyorsunuz.

Bunu için CTRL + SHİFT + : tuşlarına aynı anda basmanız yeterlidir.

 

[Levent Menteşoğlu]

VBA ile yapmayı düşünürseniz aşağıdaki kodu ilgili sayfanın kod sayfasına kopyalayın. A sütunundaki bir hücreyi hücreyi çift tıkladığınızda saat yazılacaktır. Fakat Sn ripek'in önerdiği kısayolda çok kullanışlıdır ben öncelikle onu kullanmanızı tavsiye ederim.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Cancel = True
ActiveCell = Format(Time, "hh:mm")
End Sub

 

[sejamba]

Arkadaşlar çok yardımcı oldunuz çok saolun be bu siteyi googleden buldum ve memnun kaldım çok saolun gerçekten :d teşekkürler

 

[demhatozcelik]

Arkadaşlar bu konu ile ilgili benim bir sorum olacak. B sütununa yazı yazdığım zaman A sütununda yazı yazdığım satırla ilgili tarih ve saat yazsın istiyorum. Örneğin : b10 demhat yazdığımda a10 satırında o anki tarih ve saati yazsın istiyorum.

 

[Ali]

Aşağıdaki kodları deneyin

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim Aralik As Range, ilk As Range
      Set Aralik = Range("B1:B65536")
    Application.EnableEvents = False
    For Each ilk In Range(Target.Address)
        If Not Intersect(ilk, Aralik) Is Nothing Then ilk.Offset(0, -1) = Now
    Next ilk
    Application.EnableEvents = True
    Set Aralik = Nothing
End Sub

 

[Levent Menteşoğlu]

Veya aşağıdaki gibi kodları kısaltmakta mümkün.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, [b:b]) Is Nothing Then Target.Offset(0, -1) = Now
End Sub

 

[Ali]

Daha çok çalışmam lazım çokkk

 

[demhatozcelik]

Arkadaşlar teşekkür ediyorum.

 

[reflargon]

Merhaba

bu bana da lazım oldu ve şu şekilde iki çözüm var

=ŞİMDİ() dersiniz bir hücreye ve saati almak istediğiniz hücreyede =BİRLEŞTİR(SAAT(C13);":";DAKİKA(C13)) yazarsanız saat olarak gelir.

yada benzer mantık

=BİRLEŞTİR(GÜN(C13);".";AY(C13);".";YIL(C13)) hesaplatır ve =ŞİMDİ() den çıkartırsanız geriye saat kalır. Yani =ŞİMDİ()-BİRLEŞTİR(GÜN(C13);".";AY(C13);".";YIL(C13)) **hücre biçimi saat olacak ama


Şu saatte saatler üzerinde de toplama çıkarma yapmak!!! hep excele biz şekil verecek değiliz ya. yeri geliyor o da bize şekil veriyor

 

[Ali]

Burada fonksiyon değil makro vermemiz sebebi, Fonksiyon her seferinde güncel saati alır. Kaydettiğiniz hali ile kalmaz makroda ise sonuç atıldığı için dosyayı başka gün açtığınız veri eski hali ile kalır.Saatler değişmez.

 

[reflargon]

Bunu kontrol ettim. bu tarz fonksiyonlar sayfa açılış kapanışında yenileniyor.

Bu arada sabah saati daha iyi düşünüyor insan.. Tek hücre basit yöntem.

=şimdi()-bugün()

geriye sadece saat kalır..

Kolay gelsin..

 

[izcik]

Değerli uzmanlarım. Ben de A sütununa veri girdiğimde B sütununa otomatik olarak sadece saati yazmasını istiyorum Gerekli kodu yazar mısınız?

Bir ekleme saat, dakika, ve saniye olarak lütfen.
Teşekkür ederim

 

[izcik]

Zahmet olmaz ise bir de tam tersi lazım. Yani B sütununa veri girdiğimde A sütununa saati dakikayı ve saniyeyi yazsın.

 

[izcik]

Dene yanıl, dene yanıl, kafadan atmasyon olmuyor

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalıyıp deneyiniz.

A yada B sütunundaki hücrelerde bir değişiklik olduğunda çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:B]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Column = 1 Then
    Target.Offset(0, 1) = Format(Time, "hh:mm:ss")
Else
    Target.Offset(0, -1) = Format(Time, "hh:mm:ss")
End If
Application.EnableEvents = True
End Sub

 

[izcik]

Teşekkür ederim değerli Necdet Yeşertener

 

[izcik]

Arkadaşlar neye şaşırıyorum biliyor musunuz?

Ne burada değerli Ali'nin formülünde,

Aşağıdaki kodları deneyin

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim Aralik As Range, ilk As Range
      Set Aralik = Range("B1:B65536")
    Application.EnableEvents = False
    For Each ilk In Range(Target.Address)
        If Not Intersect(ilk, Aralik) Is Nothing Then ilk.Offset(0, -1) = Now
    Next ilk
    Application.EnableEvents = True
    Set Aralik = Nothing
End Sub

Ne de burada değerli Levent Menteşoğlu'nun formülünde,

Veya aşağıdaki gibi kodları kısaltmakta mümkün.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, [b:b]) Is Nothing Then Target.Offset(0, -1) = Now
End Sub

ne (Türkçe) saat kelimesi geçiyor, ne de İngilizce clock , watch veya time vs.. gibi kelimeler geçmiyor.

O halde excel bu gibi formüllerde saat olduğunu nereden biliyor?

Haksız mıyım )