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 =...
...sayfasında tek sutunda birleştirme makrosu içeriyor.
ekteki örnek dosyada "kıdem1 - 2 ,,, 7" çalışma sayfalarındaki kişilerin isimlerini "nöbet listesi" isimli çalıma sayfasında
nöbet tutacak kişiler sutununda bir araya getiriyor.
YANLIZ ŞUNU EKLEMEK İSTİYORUM : kıdem sayfalarındaki B...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.