Saate göre otomatik bilgi girişi.

[emrebenn]

Merhaba

3 vardiya çalışan bir iş yeriyiz. Excell sayfamda çalışma saatime göre çalıştığım vardiyanın otomatik yazıp kaydettikten sonra sabit kalmasını istiyorum. Örnegin
B1 hücresine herhangi bir veri girildiğinde c1 hücresinde 24:00/08:00 vardiyasında (1.Vardiya) 08:00/16:00 vardiyasında 2.Vardiya 16:00/24:00 3.Vardiya yazdırmak mümkün mü ?Yardımınızı rica ederim.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırırsanız B sütununda her değişiklik yaptığınızda o anki saate göre vardiyayı yanındaki hücreye yazdırır:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
If Hour(Now) <= 8 Then Target.Offset(0, 1) = "1. Vardiya"
If Hour(Now) >= 8 Then Target.Offset(0, 1) = "2. Vardiya"
If Hour(Now) >= 16 Then Target.Offset(0, 1) = "3. Vardiya"
End Sub

 

[emrebenn]

Büyük ihtimal ile bende bir hata var diye düşünüyorum fakat kodu çalıştıramadım.

 

[YUSUF44]

Kodu eklemek için dosyada sayfa adının olduğu sekmeye sağ tıklayıp Kod Görüntüle deyin ve açılan yere yapıştırın:

http://www.cevizpaylas.com/wp-content/uploads/2015/10/excel-visual-basic-şifre-koyma.png

 

[emrebenn]

Çalıştı teşekkür ederim