Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 22-12-2017, 00:05   #1
atakan1971
Altın Üye
 
Giriş: 19/12/2010
Şehir: Eskişehir
Mesaj: 28
Excel Vers. ve Dili:
Office 2007 TRK
Varsayılan Vardiya Uygulması

Vardiya üzerine bir çalışma var, fakat bu çalışmayı 60 kişi üzerinden yapmaya çalışıyorum yapamadım.
Vardiya kodlarına göre "VARDİYA DAĞIT" makrosuna çalıştırınca 6 gün olacak şekilde;
( 1 ) 19 KİŞİ OLACAK 07:00-15:00
( 2 ) 19 KİŞİ OLACAK 15:00-23:00
( 3 ) GECE GÖREVLERİ 7 KİŞİ OLACAK 23:00-07:00
( 4 ) VARDİYA SAATLERİNDENGÜNLÜK MEVCUT 19 KİŞİDEN FAZLA OLURSA (4) GÖSTERİLECEK 13:00-21:00

HAFTA İÇİ BİR GÜN İZİN OLACAK ŞEKİLDE 19 KİŞİDEN FAZLA OLAN GÜNLÜK İZİNLİ OLACAK (HAFTA TATİLİ (HT)).
HAFTA SONU HAFTA TATİLİ YOK.

Vardiya planlaması 6 gün olacak, yani (1), (2) ve (3) de bir personel 6 gün çalışacak.
Eklenmiş Dosyalar
Dosya Türü: rar vardiya_planlaması.rar (113.3 KB, 12 Görüntülenme)

Bu mesaj en son " 22-12-2017 " tarihinde saat 00:24 itibariyle atakan1971 tarafından düzenlenmiştir.... Neden: Eksik açıklama.
atakan1971 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-12-2017, 10:54   #2
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,496
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Aşağıdaki kodları deneyiniz.

İstediğiniz şartlardan 4 ile ilgili olanı ve 6 günlük durumu anlayamadım.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub vardiya()
    [F14:AJ73] = ""
For gün = 6 To 36
10:
    kişi = WorksheetFunction.RandBetween(14, 73)
    If Cells(kişi, gün) = "" Then
        If Cells(74, gün) < 19 Then
            Cells(kişi, gün) = 1
        ElseIf Cells(75, gün) < 19 Then
            Cells(kişi, gün) = 2
        ElseIf Cells(76, gün) < 7 Then
            Cells(kişi, gün) = 3
        Else
            Cells(kişi, gün) = "HT"
        End If
        Range(Cells(14, gün), Cells(73, gün)).Select
        If gün > 10 And WorksheetFunction.CountIf(Range(Cells(kişi, gün - 5), Cells(kişi, gün)), "HT") = 0 And _
                WorksheetFunction.Weekday(Cells(13, gün), 2) < 6 Then
            Cells(kişi, gün) = "HT"
            GoTo 10
        End If
        If WorksheetFunction.CountBlank(Range(Cells(14, gün), Cells(73, gün))) > 0 Then GoTo 10
    Else
        GoTo 10
    End If
Next
        
End Sub
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 22-12-2017, 11:22   #3
atakan1971
Altın Üye
 
Giriş: 19/12/2010
Şehir: Eskişehir
Mesaj: 28
Excel Vers. ve Dili:
Office 2007 TRK
Varsayılan

Yusuf Hocam ilginizden dolayı teşekkür ederim. (1-2-3-4) kodlu vardiya mevcudu 19 kişiden fazla olunca görev vereceğim arkadaş, normalde benim 19 kişiye ihtiyacım var ama hazır mevcut 19 kişiden fazla olunca (1-2-3-4) kodlu grupta arkadaşları sıra ile göreve biraz daha geç getirmek istiyorum. Özellikle cumartesi ve pazar günleri günlük izin olmadığı için mevcudum çok olacak onları (4) kodu olarak vardiya listemde belirlemek istiyorum.

6 günde bir vardiya değişimi yapacağım; yani bir arkadaş (1)'de 6 gün, (2)'de 6 gün ve (3)'de altı gün çalışacak.

Yusuf hocam kodu kopyaladım ve makroya yapıştırdım fakat 6 gün yaptıktan sonra sistem takılıyor ve Ecxel kitleniyor.
Eklenmiş Dosyalar
Dosya Türü: rar Kopya vardiya_planlaması222.rar (108.8 KB, 7 Görüntülenme)

Bu mesaj en son " 22-12-2017 " tarihinde saat 14:22 itibariyle atakan1971 tarafından düzenlenmiştir....
atakan1971 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-12-2017, 13:55   #4
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,496
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Diğer isteklerinizi yapabilmem zor maalesef.

Excel kilitleniyorsa tüm Exceli kapatıp tekrar açıp deneyin. Bende de birkaç kez oldu maalesef.
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 24-12-2017, 15:32   #5
atakan1971
Altın Üye
 
Giriş: 19/12/2010
Şehir: Eskişehir
Mesaj: 28
Excel Vers. ve Dili:
Office 2007 TRK
Varsayılan

İlginizden dolayı çok teşekkür ederim.
atakan1971 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 23:29


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden