Sorgu için arama sonuçları: nöbet

Sanırım bu sefer doğru anladım. Dosyanızda F sütununda D-E-I için mükerrer gün girmişsiniz. Ben değiştirdim. Nöbet çizelgesi olduğu için 1 ay öncesinden 12 ay sonrasına kadar ayları içeren Userform oluşturdum. Kodlar içinde Dictionary Dictionary yapısını kullandım. Kodlar gereksiz yere uzamasın...

Merhaba, dosyaları gönderebilir misiniz? bende aöflüde olsa bir TDS mezunuyum? şimdi poliklinikte nöbet yok diye biliyorum.8 farklı servis dediğiniz klinik yatan hasta kısmıdır diye tahmin ediyorum. dolayısı ile burada nöbet olur. Her gün için nöbet tutulması gereken 8 farklı bölüm var bu servis...

...ki yerlere bolumlere kisilere rutbelerine göre bir önbilgi olsun ve bir sonraki adıma geçme yolu açılsın Yetersiz gelirse google da " nöbet listesi site:www.excel.web.tr " ya da " doktor nöbet listesi site:www.excel.web.tr " yazarak aratınca çok sayıda benzer veya farklı nöbet ile ilgili...

Merhaba, oldukça karışık bir nöbet listesi hazırlıyoruz. 80 kişiyiz. Gündüz için 15 Farklı poliklinik, 8 farklı servis var. Her gün için nöbet tutulması gereken 8 farklı bölüm var. Her bölüme en az 1 kıdemli bir kıdemsiz asistan nöbeti yazmamız gerekiyor. Ayrıca gündüz polikliniklerde beraber...

...Sonucu buraya da yazayım belki merak eden olur. Sub Makro1() Application.ScreenUpdating = False NSayısı = InputBox("Sütun Sayısı Girin", "NÖBET SAYISI", Default) Set s1 = Sheets("Sayfa1") Set s2 = Sheets("Sayfa2") s2.Cells.Delete say = s1.Cells(Rows.Count, 1).End(3).Row bol = NSayısı e = 1...

Evet böyle çok daha iyi olmuş. Elinize sağlık. Ancak yeni bir sorun çıktı; Listede 40 kadar nöbet tutmayan yani ikinci satırı boş olan var. Gerçek listemde bu boş olanlarda kritere giriyor ve ilk sütun olarak karşıma çıkıyor. boş hücreleri eşsiz kriterden çıkartmam gerekiyor.

...bağlayın, sütun sayısını Inputbıx dan alıyor. Sub Makro1() Application.ScreenUpdating = False NSayısı = InputBox("Sütun Sayısı Girin", "NÖBET SAYISI", Default) Set s1 = Sheets("Sayfa1") Set s2 = Sheets("Sayfa2") s2.Cells.Delete say = s1.Cells(Rows.Count, 1).End(3).Row bol = NSayısı e = 1...

...bu da aynı sayfada bilgileri toplamayı zorlaştırıyor. Sütun adedini ben belirlesem. Mesela 6 sütundan sonra 2-3 satır bırakıp aşağıda örneğin A17 hücresinden devam edebilir mi? Nöbet grupları 1-15 arasında , yaklaşık 18 grup var mümkün mertebe 1 sayfada toplamak istiyorum. Teşekkür ederim.

Eğer listeniz Sayfa1de, İsim A sütununda, Nöbet yeri B sütununda ve 1. satırda başlıklar, veriler 2. satırdan başlıyor ise, Verileri gruplayarak Sayfa2ye aktaran kod aşağıda Sub Makro1() Set s1 = Sheets("Sayfa1") Set s2 = Sheets("Sayfa2") say = s1.Cells(Rows.Count, 1).End(3).Row For i = 2 To...

İyi akşamlar üstadlar. Bir listem var personel adı soyadı ve nöbet yerlerinden oluşuyor. Bunu yan sekmeye gruplar halinde yazabilen bir çalışma vardı bulamadım. Bahçede tutanlar altında isimleri, sonra koridor nöbeti tutanlar altında isimleri gibi. Yardımcı olur musunuz?

Forumlardan resim aktarımı ile ilgili bir çok konu okudum nöbet listeme ekledim, fakat export edilen resim çözünürlüğü 25 veya 79 DPI arasında oluyor. Excel içinde herhangi bir ayar bulamadım. Yazıcı ayarı değişimini yaptım ama sonuç aynı. Bu konuda yardımınızı bekliyorum.

sayfa 1'e nöbet gününü yazdım sayfa 2'de de öğretmen isim listesi var. günlere göre listenin sayfa 1 e yazılmasını nasıl sağlarım. şimdiden teşekkürler

...= ETOPLA(F:F;"DENEME 1";G:G) AÇIKLAMA : N5 hücresinde DENEME 1 isimli kişinin kaç saat nöbet tuttuğu formüle göre " DENEME 1 " veya diğerlerindede DENEME 2 -3-4-5-6-7 yazınca topluyor ancak benim istediğim kişinin adını yazmadan yani L5...

Başlıklara baktığım kadarı ile, bu konuya kimse değinmemiş... sorum şu: "nöbet list"'de planlanmış nöbetlere göre; "nöbetçi list." de isimlerin listelenmesi ve "ekip list." de de ekiplerin eşit oluşturulması için yardımlarınızı bekliyorum.

Merhabalar; daha önce yaptığımız bu çalışmada güncelleme yapmak istiyorum. Nöbet listesi 1 deki ve nöbet listesi personel deki isimlere karşılık gelen " çalıştığı gün" sayılarını hizmet sunumu çalışma çizelgesine1 yine kendi ismine karşılık gelen sütüna aktarmak istiyorum.

...netteki ornekler sistemine uygun değil malesef.. Eşim iş yerinde 9 (bazen 8 bazen 10 ) kişi çalışıyor ve hergün 24 saat esasına göre 2 kişi nöbet tutuyorlar.. Nöbet çizelgesi hazırlanırken istekler ve izinler göz önüne alınıyor mesala A kişisi ayın 12-13-14-15'inde nöbet tutmak istemiyor ve...

merhabalar arkadaşlar 1 adet aylık nöbet listem var bu nöbet listesini çalışma listesine aktarmak istiyorum. Örnek vermek gerekirse aşağıda eklediğim nöbet listesi excel dosyasında ali ayın 1 nöbetçi. çalışma listesinde de ayın 1'ine ali c*** 08:00-08:00 nöbetçi olarak aktarmasını istiyorum...

Hocalarım merhaba, bu ay için bir nöbet listesi oluşma istiyorum ama bir türlü çözemedim 1. Cuma ve cumartesi 2 kişi diğer günler 1 kişi nöbete kalıyor 2. Toplam 5 kisi var grupta ama 2 kişi kalınan günler 1 arkadaş kavgalı olduğu için onunla sadece 1 kişi durabilecek 1 kişi var Yardımcı...

Merhabalar linkte gondermis oldugum resimdeki userformda 5 baslik var ve textboxlar var excelde 1nisandan 30 nisana kadar olan nobet tutacak personelin listesi var ben user fprmda guncelleye bastigimda bana user forma atiyorum bugun 21 nisan 21 nisanin nobet tutan personelin ismini textboxa...

...biri var mı MAKRO ŞU ŞEKİLDE ; Sub getir() Application.ScreenUpdating = False On Error Resume Next Set s1 = ThisWorkbook.Worksheets("nöbet listesi") s1.Range("s4:s65536").ClearContents sat = 4 For i = 1 To s1.Range("v65536").End(xlUp).Row If s1.Cells(i, "v") <> "" Then Set s2 =...