Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 19-04-2017, 22:20   #1
haydar17
 
Giriş: 05/07/2012
Şehir: çanakkale
Mesaj: 7
Excel Vers. ve Dili:
2007
Varsayılan nöbet yerlerini döndürme

Nöbet yerlerini yatay bir butonla döndürme(bahçe ve 4 kat) yardımcı olacak yak mu??
haydar17 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-04-2017, 14:04   #2
systran
Destek Ekibi
 
Giriş: 15/12/2007
Mesaj: 1,302
Excel Vers. ve Dili:
2007 [TR]
Varsayılan

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.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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!
systran Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-04-2017, 20:48   #3
haydar17
 
Giriş: 05/07/2012
Şehir: çanakkale
Mesaj: 7
Excel Vers. ve Dili:
2007
Varsayılan

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/NO...2017.xlsx.html
haydar17 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 07:36   #4
haydar17
 
Giriş: 05/07/2012
Şehir: çanakkale
Mesaj: 7
Excel Vers. ve Dili:
2007
Varsayılan

Ü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....
haydar17 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 11:26   #5
systran
Destek Ekibi
 
Giriş: 15/12/2007
Mesaj: 1,302
Excel Vers. ve Dili:
2007 [TR]
Varsayılan

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.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
For kolon = 2 To ns
    tmp = Sayfa1.Cells(2, kolon)
    For j = 2 To ss - 1
systran Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 11:47   #6
haydar17
 
Giriş: 05/07/2012
Şehir: çanakkale
Mesaj: 7
Excel Vers. ve Dili:
2007
Varsayılan

Çok teşekkür ederim... sağ olun....
haydar17 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-04-2017, 10:48   #7
haydar17
 
Giriş: 05/07/2012
Şehir: çanakkale
Mesaj: 7
Excel Vers. ve Dili:
2007
Varsayılan

ü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 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-04-2017, 07:41   #8
haydar17
 
Giriş: 05/07/2012
Şehir: çanakkale
Mesaj: 7
Excel Vers. ve Dili:
2007
Varsayılan

"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
haydar17 Ç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 02:19


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - Investing - Hurda - Kobi Danışmanlık - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu OSGB - Lingerie - Dyeing Machine - Çorlu Temizlik- Didim Çatı İnşaat- Çorlu Ambar- Hava Çekimi- Hazır Site- SEO- Çorlu Estetik
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden