İşe Başlama Zamanına Saat Ekleme

[inan]

Selam Arkaşlar,

A B C
1 07:30 15:30 7.5

2 15:30 23:30 7.5

3 17:00 01:00 7.5

Benim olay; A 1 e 07:30 yazdığımda B 1 de 15:30 C 1 de 7.5 Yazsın

istiyorum.Yine aynı durum A 2 ve A 3 içinde geçerlidir...

Yardımlarınız için şimdiden teşekkürler..

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa kod bölümüne yazınız a1,a2,a3 hücrelerininin biçimini metin olarak ayarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:a3]) Is Nothing Then Exit Sub
If [a1] = "07:30" Then [b1] = "15:30": [c1] = "7.5"
If [a2] = "15:30" Then [b2] = "23:30": [c2] = "7.5"
If [a3] = "17:00" Then [b3] = "01:00": [c3] = "7.5"
End Sub

 

[inan]

Att.Visual basic

Üzgünüm göndermiş olduğun iki cevabıda gerçekleştiremedim..

vaktin varsa hebsini basamak basamak anlat lütfen..


yinede sağol

 

[N.Ziya Hiçdurmaz]

yanıt

resim 1,2 yi inceleyiniz(araçlardan makro güvenliğini orta seviyeye alıp kitap açılışında makroları etkinleştirmelisiniz.)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:a3]) Is Nothing Then Exit Sub
If [a1] = "" Then [b1:c1] = ""
If [a2] = "" Then [b2:c2] = ""
If [a3] = "" Then [b3:c3] = ""
If [a1] = "07:30" Then [b1] = "15:30": [c1] = "7.5"
If [a2] = "15:30" Then [b2] = "23:30": [c2] = "7.5"
If [a3] = "17:00" Then [b3] = "01:00": [c3] = "7.5"
End Sub

 

[inan]

malesef olamdı

 

[inan]

A= işe başlama B=İş bitimi C=Yemek saati hariç çalışılan zaman

A B C

1-07:30 15:30 7.5

2-15:30 23:30 7.5

3-17:00 01:00 7.5

Benim olay; A 1 e 07:30 yazdığımda otomatik olarak B 1 de 15:30 C 1 de 7.5 Yazsın

istiyorum.Yine aynı durum A 2 ve A 3 içinde geçerlidir...

Yardımlarınız için şimdiden teşekkürler..

 

[Recep İpek]

Aşağıdaki linki inceleyebilirsiniz.

http://www.cpearson.com/excel/overtime.htm

 

[Necdet]

Benim olay; A 1 e 07:30 yazdığımda otomatik olarak B 1 de 15:30 C 1 de 7.5 Yazsın istiyorum.

A1 e 11:00 yazıldığında B1 e ne yazılacak?

 

[inan]

Devam bülteni

Sevgili Arkadaşlar,


Ben iş yerinde vardiya çizelgesi hazırlıyorum yani devam bülteni.Cok fazla kisi olduğundan bu olay çok zaman alıyor benim amacım;


A B C

Inan 07:30 15:30 7.5

Mehmet 15:30 23:30 7.5

Ali 23:30 07:30 7.5

Kamil 17:00 01:00 7.5

Taşkın 12:00 20:00 7.5


Yukarıda da görüldügü gibi çalışma başlangıc zamanları ve bitiş zamaları arasında 8 saat var ama yemek vakti olan 30 dk düşüldügünde 7.5 saat net çalışılan zaman görünmektedir.

Benim istedigim; A1 de bulunan İnan'a 07:30 yazıldığında otomatik olarak B1 de 15:30 C1 de de 7.5 cıksın istiyorum.

Yine aynı formül diger arkadaşlar ve çalışma saatleri içinde geçerlidir.

Sanıyorum bunun kolay bir formülü vardır.

Yardımcı olursanız sevinirim.

Başarılar

 

[Ali]

Sayfa sekmesini sağ tuş ile tıklayıp kod görüntüle kısmını seçtikten sonra açılan pencere içine aşağıdaki kodları ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A100]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Target + 0.333333
Target.Offset(0, 1).NumberFormat = "h:mm"
Target.Offset(0, 2) = 7.5
End Sub

Örnek dosyada ektedir.

 

[Necdet]

Çalışanlar illa 7:30 da mı işe başlarlar? biri şaşırıp 9:00 da işe başlamaz mı?

Ben bunları öğrenmek istiyorum. Yok bunlar önemli değil 7:30 yazdığımda 15:30 yazsın diyorsanız bu oldukça kolay.

Ali Beyde makrolu çözümü vermiş. Fonksiyonlarla da çözüm olabilir. Her iki halde de olay kolay. İşin zoru benim düşündüğüm ki, bu da sizi ilgilendirmiyor anlaşılan.