2 Ekipten 1'er kişi alarak grup oluşturma

[msdemr]

Merhaba, Elimde 2 Ekip var. Hergün çalışacak Ekip1 ve Ekip2 üyeleri belli. Sadece bu 2 Ekipten birbiri ile çalışabilenleri (Çalışabilirlik listesi de var) eşleştirmemiz gerekmekte. Göz önünde bulundurulması gereken çalışacak Ekip1 ve Ekip2 üyelerinin sırası. Zaten Ekip1 üyeleri baz alınarak liste oluşturulacak. Yani Ekip1'e Ekip2'den bir kişi atanacak. ve Ekip2 listesindeki sıra takip edilmeli. yani Ekip1-Ahmet'e atanacak Ekip2 üyesi ilk sıradaki Ayşe ile çalışabiliyorsa Ayşe, olmuyorsa bir alttaki kişi,olmuyorsa bir alttaki... şeklinde gitmeli ve atanan Ekip2 üyesi o gün tekrar atanmamalı yani listeden kaldırılmalı. ekte bir excel koydum. Bunu yazılım dilleri ile yapmak mümkün fakat biz excel olarak yapmak istiyoruz.Bu konuda fikri olan veya yardımcı olacak olan varsa bekliyorum. Teşekkür ederim.

 

[DoğanD]

Merhaba,

İnceler misiniz?

 

[msdemr]

Merhaba,

İnceler misiniz?

Bu şekliyle çalışıyor hocam. Fakat mevzuyu anlatması kolay olsun diye bir şablon hazırlamıştım. aşağı yukarı aynı mantık sadece 5 gün değil 1 aylık liste çıkarıyor. ve isimler yerine id'ler var. oraya uyarlayıp çalıştırdığımda aşağıdaki kısımda hata veriyor.

" If WorksheetFunction.CountIf(Range(Cells(26, WorksheetFunction.Match(Cells(24, y - 1), Range("A25:E25"), 0)), Cells(39, WorksheetFunction.Match(Cells(24, y - 1), Range("A25:E25"), 0))), Cells(x, ad)) > 0 _
And WorksheetFunction.CountIf(Range(Cells(26, y), Cells(39, y)), Cells(x, ad)) = 0 Then"

 

[DoğanD]

Formülü kabaca açıklayayım, siz buna göre düzeltmenin yoluna bakın o halde. Olmazsa orijinali yükleyin bakalım.

If WorksheetFunction.CountIf(Range(Cells(26, WorksheetFunction.Match(Cells(24, y - 1), Range("A25:E25"), 0)), Cells(39, WorksheetFunction.Match(Cells(24, y - 1), Range("A25:E25"), 0))), Cells(x, ad)) > 0 _
And WorksheetFunction.CountIf(Range(Cells(26, y), Cells(39, y)), Cells(x, ad)) = 0 Then

26 = Ekip 2'de çalışacak isimlerin ilki
Cells(24, y - 1) = Çalışma tarihi
WorksheetFunction.CountIf(Range(Cells(26, WorksheetFunction.Match(Cells(24, y - 1), Range("A25:E25"), 0)), Cells(39, WorksheetFunction.Match(Cells(24, y - 1), Range("A25:E25"), 0))), Cells(x, ad)) > 0 = ismin o tarihte çalışabilirliği var mı?
WorksheetFunction.CountIf(Range(Cells(26, y), Cells(39, y)), Cells(x, ad)) = aynı günde bu isim var mı?

 

[msdemr]

Formülü kabaca açıklayayım, siz buna göre düzeltmenin yoluna bakın o halde. Olmazsa orijinali yükleyin bakalım.

If WorksheetFunction.CountIf(Range(Cells(26, WorksheetFunction.Match(Cells(24, y - 1), Range("A25:E25"), 0)), Cells(39, WorksheetFunction.Match(Cells(24, y - 1), Range("A25:E25"), 0))), Cells(x, ad)) > 0 _
And WorksheetFunction.CountIf(Range(Cells(26, y), Cells(39, y)), Cells(x, ad)) = 0 Then

26 = Ekip 2'de çalışacak isimlerin ilki
Cells(24, y - 1) = Çalışma tarihi
WorksheetFunction.CountIf(Range(Cells(26, WorksheetFunction.Match(Cells(24, y - 1), Range("A25:E25"), 0)), Cells(39, WorksheetFunction.Match(Cells(24, y - 1), Range("A25:E25"), 0))), Cells(x, ad)) > 0 = ismin o tarihte çalışabilirliği var mı?
WorksheetFunction.CountIf(Range(Cells(26, y), Cells(39, y)), Cells(x, ad)) = aynı günde bu isim var mı?

hocam bakıyorum ama çözemedim. Dosyayı bırakıyorum eke. Çok teşekkür ederim.

 

[DoğanD]

Merhaba,

Veri karmaşık olduğu için tam anlamıyla teyit edemedim. Delmece baktığım örneklerde bir problem yok gibi. Yine de kullanmadan önce muhakkak sağlam bir teste sokun bence

 

[msdemr]

Merhaba,

Veri karmaşık olduğu için tam anlamıyla teyit edemedim. Delmece baktığım örneklerde bir problem yok gibi. Yine de kullanmadan önce muhakkak sağlam bir teste sokun bence

Çok teşekkür ederim hocam. Gayet iyi çalışıyor. Birkaç düzenleme yaptım bazı yerleri excel üzerinde düzenleyip tamamladım. Bir bug var sadece çözemediğim. Ama o da çözülebilir mi bilmiyorum zaten. Ama baya işimi görüyor şuan.