Saat yazma formatı

[kelkitli]

Değerli dostlar Saat olarak verileri girerken 12:30 iki nokta üst üste yazmak her seferinde zaman alıcı oluyor. Ben 1230 şeklinde yazsam yazılan 12:30 şekline dönüşse... Böyle bir ayarlama yapılabilirmi?

 

[Seyit Tiken]

İlgili alanı seçip bu kodu uygulayın.

Sub Makro1()
Selection.NumberFormat = "00"":""00"
End Sub

 

[kelkitli]

Teşekkürler Sn Seyit TİKEN

 

[Necdet]

Bu biçimlendirme ile sadece görüntüyü kurtarırsınız. Hesaplama yapmanız gerekirse yanlış sonuç alırsınız

 

[kelkitli]

Sn Necdet_Yesertener peki nasıl olması gerekir.

 

[Necdet]

excel dersanesinde tarih ve saat fonksiyonlarının detaylı analizi var, orada askeri saat sistemini değiştirme bölümünde formülleri uygulayabilirsiniz.

bir kolonda normal rakam yazarsınız yanındaki kolonda da onu saate çevirirsiniz, bi yöntem bu olabilir

 

[kelkitli]

Sağol, Varol Sn Yesertener

 

[kelkitli]

Sn Yesertener ben zaman hesabı yaptım çıkarmada sorun yok.

 

[Necdet]

1250-1059=191 (Görünüm olarak 01:91)
12:50-10:59=01:51

Artık siz karar veriniz

 

[kelkitli]

1250-1059=191 (Görünüm olarak 01:91)
12:50-10:59=01:51

Artık siz karar veriniz

Haklısınız ben yanılmışım. Ancak verdiğiniz adreste de istediğim türden bir cevap bulamadım.İstediğim şunu yapabilmekti. Çalışma saatlerini girince işyerimizde standart uyguladığımız tanımlı 3 vardiyadan hangisinde çalışılyorsa ona göre saat hesabını yevmiyeye dönüştürerek yapabilmekti.

 

[Necdet]

Sayın kelkitli,

Örnek bir dosya ekleyiniz hep beraber çözümünü bulalım, ne dersiniz?

 

[kelkitli]

Sayın kelkitli,

Örnek bir dosya ekleyiniz hep beraber çözümünü bulalım, ne dersiniz?

Sn.Necdet_Yesertener
Konunun başında belirttiğim saat format elle girilen giriş çıkış saatlerinin çok oluşundan dolayı. Dosyayı da ekliyorum ve şimdiden teşekkür ediyorum.

 

[Necdet]

Sayın kelkitli,

Aynı tanım iki değişik şekilde yapılmış, kafam pek bir güzel karıştı ama yorum yaparak (ki yanlış ta yapmış olabilirim) birşeyler yapmaya çalıştım.

Ekteki dosyayı inceliyiniz. Eksiklikler varsa hep beraber gidermeye çalışırız.

 

[kelkitli]

Sn.Necdet_Yesertener Teşekkür ederim. Eline emeğine sağlık. Kusura bakmayın saatle ilgili kısmı forumdaki istemden dolayı ayrıca yazmamıştım yorumunuz doğru ancak size eziyet oldu. Fazla mesai hesabı güzel,çalışma saatleri güzel. Vardiya hesaplamada şunu yapamadım.
=eğer(işe başlama=05:00 ten sonra07:00 den önce ise;1);
=eğer(işe başlama=09:00 dan sonra13:00 den önce ise;2);
=eğer(işe başlama=13:00 ten sonra16:00 dan önce ise;1);değilse "İncele"
yani bu iki saat aralığını belirtemedim.

 

[Necdet]

mesai başlama saati 13:00 ise durum ne olacak? ben orda dikkat ederseniz 12:59 u seçtim, bocaladığım yerden biri orasıydı

 

[kelkitli]

mesai başlama saati 13:00 ise durum ne olacak? ben orda dikkat ederseniz 12:59 u seçtim, bocaladığım yerden biri orasıydı

Sn.Necdet_Yesertener, durum şöyle:
Sabah 05:00 den önce işyerine gitme imkânı pek yok. Vardiya başlangıcı 06:00 ancak ayda 3 kez 1 saat geç kalabilir. 12:00 Vardiyasında olanlar saat 09:00 da işe gelse de kabul edilir. 1 saat gecikirse durumu incelenir büyük ihtimal 1 saat gecikmesini kullanıyordur. Saat 15:te vardiyaya gelenler de erken gelirse kabul edilir. Ancak erken gelişlerde fazla mesai verilmez. O yüzden 15:00 vadiyası saat 13:00 den sonra olmak kaydı ile saat 16:00 yı geçmemek şartı ile 13:01 den itibaren olabilir.

 

[Necdet]

Sayın kelkitli o zaman gönderdiğim dosyada Sayfa2 de Saatler olarak adlandırdığım alanda A4 ü 13:00, A5 i de 15;01 yaparsanız hangi vardiyada olduğunu bulacaktır.

Vardiya hesaplamasında başka sorun var mı?

 

[kelkitli]

Çok çok teşekkür ederim Sn.Necdet_Yesertener

 

[kelkitli]

Değerli dostlar,
Sn.Necdet_Yesertener'in katkısıyla hazırladığım dosyayı forumdaki arkadaşların ihtiyacı olanları kulanması açısından ekte sundum. Teferruatlı bir şey olmasa da ben paylaştım. Katkı sağlayan arkadaşlar daha bir şeyler ekleyip sunabilirler. Sn Yeserten'e İmzasında ki sloganını doğrulayan tutumundan dolayı tekrar teşekkür ederim.

 

[blackwolf146]

arkadaslar

Sub Makro1()
Selection.NumberFormat = "00"":""00"
End Sub
kod görüntüle ile bu işlemi yaptım fakat sayfaya dört rakam yazdığımda arasına : koymuyor.
benim isteğim kısaca çalışma sayfasına 4 rakam yazdığımda arasına : iki nokta üstüste koymasıç