HÜCRELERE OTOMATİK SAAT GİRME

[NeT_MaN]

HÜCRELERE OTOMATÝK SAAT GÝRME

Excel'de puantaj hazırlıyorum.
Yanlız personelin giriş çıkış saatlerinde farkılaşma var.
Herdefasında hücreye 15:05 23:15 gibi değerler girmek istemiyorum.
Ortadaki noktalı virgülün otamatik çıkmasını istiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına yazın. Hücreye çift tıkladığınızda o anki saati hücreye otomatikman yazacaktır.

[vb:1:a5b13cd333]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Selection.Cells = Format(Time, "hh:mm")
End Sub
[/vb:1:a5b13cd333]

 

[NeT_MaN]

Pardon

Konuyu yanlış anlattım galiba.
Herhalde Excel'de mümkün olmayan birşey istedim.
Ben o anki saati hücreye yazmasını istemiyorum.
Bir ay boyuncu gün gün personelin giriş çıkış saatlerini __:__ gibi bir aralık içinde yazmak istiyorum.
Hücreye böyle bir format uygalamam mümkünmü.
Personelin giriş çıkış saatlerinde değişiklikler olabilir...

 

[Levent Menteşoğlu]

Zaten hücreye örneğin 18:00 yazdığınızda bu otomatikman saat olarak algılanacak ve biçimlendirilecektir. Eğer kendiniz hücreyi biçimlendirmek isterseniz sağklik-hücreleri biçimlendir-genel sekmesi-saat-13:30 u seçmeniz yeterlidir.

 

[NeT_MaN]

:yardim:

 

[abazya]

SN:NeT_MaN merhaba

SN:leventm dedikleri doğru uygulanmış şekli dosyada veya bu şekildede kullanabilirsin

 

[NeT_MaN]

:kafa: Olmuyor olmuyor.
Çıldıracam yaw!
Mesela hücreye 1250 gibi bir değer girdiğimde bunu otomatik olarak 12:50 yapmasını istiyorum. Fakat ben 1250 değerini girince değer 00:00 oluyor.
Nerde yanlışlık yapıyorum. :?

 

[Ali]

Abazya Leventm,danersin bu işin profesörleri eğer sorunumuzu düzgün anlatabilirsek en doğru çözüm anında geliyor. Sağolsun Levent Bey ayrıntılarına kadar benim sorunumla ilgilendi.
Net-Man isteklerini net bir şekilde anlatırsan problemin çözülecektir. Ta Amerikadaki arkadaşları bile ayağı kaldırmışsın. Allah iyiliğini versin senin. Bu forumlarda daha hızlı cevap alırsın.

 

[Levent Menteşoğlu]

Eğer 1250 değerini 12:50 ye otomatikman çevirmesi yeterli ise hücre biçimlendirmesini ##\:## şeklinde ayarlayın (böyle hazır bir biçimlendirme yok siz kendiniz yazacaksınız). Fakat bu durumda sadece görüntü değişir, hesaplamalarda 1250 değeri kullanılır ki buda hesaplamanın yanlış yapılması anlamına gelir.

 

[NeT_MaN]

Bir kere Amerika'daki arkadaşı ayağa kaldırmadım.
Zira o bu siteye takılıyordu. Benim sorumu cevapladı. Arkadaşımız gecenin birinde (Tabi burda saat 12:00 falan idi) benimle bir saat falan konuştu. O bu problem için değilde başka bir problem için yardım etti. Sağolsun, dediğini yaptım ve olumlu sonuç aldım. Fakat şu üssteki problemi bir türlü halledemedim. Ben VBA'cı değilim.
Kod yazmayı pek bilmem. Ama öğrenmek isterim tabi. Anlaşılan yine klasik yönteme devam edeceğiz. 12 shift+nokta 50. k::

 

[Levent Menteşoğlu]

Birde aşağıdaki kodu deneyin.

[vb:1:5a013162c7]Private Sub Worksheet_Change(ByVal Target As Range)
If Target < 1 Then Exit Sub
saat = Int(Target / 100)
dakika = Round((Target / 100 - saat) * 100, 0)
Target = saat & ":" & dakika
End Sub
[/vb:1:5a013162c7]

 

[NeT_MaN]

:mutlu: Levent kardeşim, eline sağlık.
Çok güzel oldu.
Tabiri caiz ise cuk diye oturdu.
Tam istediğim buydu.
Herkese gayretlerinden dolayı sonsuz teşekkürler ediyorum.
İnşallah başka bir konuda görüşmek üzere
Kalın sağlıcakla.
pucuk: :hey: