nöbet yerlerini döndürme

[haydar17]

Nöbet yerlerini yatay bir butonla döndürme(bahçe ve 4 kat) yardımcı olacak yak mu??

 

[systran]

istediğiniz konu ile alakalı ayrıntılı bilgi verirseniz sorunlarınızın çözümüne daha çabuk ulaşırsınız. Hatta ilave olarak hazırladığınız bir örnek dosyayı yükleyip paylaşırsanız dadından yenmez.

Aşağıdaki resme göre tasarımınızı yapınız. İstediğiniz kadar nöbet yeri ve nöbetçi sayısını değiştirebilirsiniz, kodlar ona göre otomatik çalışır. dikkat etmeniz gereker aralarda boşluk bırakmayınız.

Daha sonra sayfanıza komut düğmesi ekleyiniz (Geliştirici sekmesinden) ve düğmenin içine şu kodları yazınız.

Private Sub CommandButton1_Click()
'Nöbet tutulacak konum sayısını son satıra göre bul A sütunu kullanır.
ss = Sayfa1.Range("A100").End(xlUp).Row

'Birlikte nöbet tutacak kişi sayısını sütunları sayarak bul
ns = Sayfa1.Range("Z1").End(xlToLeft).Column


For kolon = 2 To ns
    tmp = Sayfa1.Cells(2, kolon)
    For j = 2 To ss - 1
        Sayfa1.Cells(j, kolon) = Sayfa1.Cells(j + 1, kolon)
    Next j
    Sayfa1.Cells(ss, kolon) = tmp
Next kolon
End Sub

NOT: örnek dosyayı bilerek yüklemedim!

 

[haydar17]

hay allah razı olsun sizden, çalışmayı buraya ekleyemedim...link veriyorum, yalnız bazı günler bahçede 1 nöbetçi oması gerekiyo personel az olduğu için...link:http://s6.dosya.tc/server8/4g8ej0/NOBET_CIZ-2017.xlsx.html

 

[haydar17]

Üstad; benim şablonum olması şart değil yukarıdaki şablona üste 2 satır eklemem gerekiyo, eklediğimde makroyu bir türlü çalıştıramadım....

 

[systran]

eklediğiniz satır sayısı kadar aşağıdaki KIRMIZI değerlere ekleme yapınız.
aşağıdaki kodlar 2. satırdan başlar. siz yukarıya 2 satır ilave ederseniz 4 olarak değiştirip deneyiniz.

For kolon = [COLOR="Red"][B]2[/B][/COLOR] To ns
    tmp = Sayfa1.Cells([COLOR="Red"][B]2[/B][/COLOR], kolon)
    For j = [COLOR="red"][B]2[/B][/COLOR] To ss - 1

 

[haydar17]

Çok teşekkür ederim... sağ olun....

 

[haydar17]

üstad; yukarıdaki açıkladığınız gibi yapıyorum satır eklediğimde çalışmıyor,yukarıdaki sizin verdiğiniz formatta çalışıyor, başka bir ayar daha gerekiyor olabilir mi?

 

[haydar17]

"insanların en hayırlısı insanlara faydalı olandır"H.Ş. yukarıdaki linkini verdiğim haftalık nöbet çizelgesini dönerli şekilde planlayabilecek insan, bir okul için en önemli olan nöbet sistemini kargaşadan kurtarmış olacak, malum yönetici her şeye vakıf olamıyor, bunu siz değer ustalardan bekliyorum(personel yetersiz olması durumunda bahçede 1 kişi olabiliyor, yani istediğimiz hücreyi renklendirip veya birleştirip tek hücre veya pas geçme durumunu da dikkate almanızı rica edicem) yardımcı olacaklara şimdiden teşekkür ederim...SAYGILAR