İşe Başlama Zamanına Saat Ekleme

Katılım
14 Kasım 2005
Mesajlar
13
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

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
yanıt

Sayfa kod bölümüne yazınız a1,a2,a3 hücrelerininin biçimini metin olarak ayarlayınız.
Kod:
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
 
Katılım
14 Kasım 2005
Mesajlar
13
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

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
yanıt

resim 1,2 yi inceleyiniz(araçlardan makro güvenliğini orta seviyeye alıp kitap açılışında makroları etkinleştirmelisiniz.)
Kod:
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
 
Katılım
14 Kasım 2005
Mesajlar
13
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..
 
Katılım
14 Kasım 2005
Mesajlar
13
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

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,900
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
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.

Kod:
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Ç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. :)
 
Üst