hexadesimal
Normal Üye
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Kod:
You must log in to view content
(60 satır)
You must log in to view content
(60 satır)
Haklsınız Ömer Bey. Uyarılarınıza dikkat ederek uygun isimli dosyam ektedir. Bir açıklama ilave edeyim. Sorun sadece Çoklu kayıt ekleme düğmesinde; Şöyle ki, Toplu seçeneği işaretlendiğinde açılan listboxtan birden fazla seçim yapıldığında kod eksik çalışıyor ya da döngü de sorun var.Sorularınızı cevabımın altındaki İMZA bölümünde yer alan açıklamalar doğrultusunda,
gerçek belgenin özel bilgi içermeyen kopyası şeklinde hazırlanmış örnek belge üzerinden sorarsanız, daha hızlı ve net çözüme ulaşılır.
Mevcut haliyle; destek olmayı düşünecek kişiden;
içerisinde, kodda adı geçen nesnelerin olduğu userform içeren bir belge oluşturmasını,
çözüm önerisini bu belge üzerinde denemesini ve sorun olmadığına kanaat getirdiğinde de cevap yazmasını beklemiş oluyorsunuz.
Örnek belge eklerseniz destek olacak kişi sadece sorun/ihtiyaç ile meşgul olmuş olur.
.
Şöyle; form üzeriden tüm nesneler sorunsuz aktaırlıyor (optionbuttonlar dışında). Tek sorunum, Toplu kazanım girişi seçimini yaptığımda, açılan listbox2'de diyelim üç kazanım işaretledim (DubleClic) . Kod şöyle çalışıyor (optionbuttonlar dışında); sıra, sınıf ad soyad labellardan, diğer nesnelerden alnıyor kazanım değerlendirmeleri ise optionbuttonlardan alınıyor. Ancak Optionbuttonlar ilk döngüden sonra yani listbox2'nin 2. kazanımına geçtiğinde hatalı değr aktarıyor.UserForm1'den söz ediyoruz sanırım.
Hangi nesneleri seçmeliyim?
Hayır Ömer Bey Örenk isimler var. Şöyle, açılışta label nesneleri boş gelir sınıf ve şube seçildiğinde yüklenir. Örnek sınıfımız 2/A. Sınıfımız 2.sınıf.Sarı renkli nesneler hep BOŞ.
Belgede öğrenci listesi mi eksik?
lbl değişkeni optionbutton grupname adları.20 adet grupname var. lbl1......lbl20 şeklinde. Döngüde kurgumda da bir hata olabilir.Koddaki şu Lbl döngüsü neyi döndürüyor?
Bu döngüde Lbl değişkeni döngü içerisinde kullanılmıyor, sadece a değişkeni var.
1'den 8'e kadar döndürülen (döndürülmesi gereken) tam olarak nedir?
For Lbl = 1 To Sutun (değeri 8)
If UserForm1.Controls("OptionButton" & a) = False And _ ........
If .Controls("OptionButton" & a) = True Then cevap = 1
......
......
End IF
End IF
Next
Bu yüzden sadece web sitemizin çalışması yönelik temel çerezleri ve deneyiminizi geliştirmek için isteğe bağlı çerezleri kullanıyoruz.
Çerezler hakkında daha fazla bilgi görüntülemek ve tercihlerinizi yapılandırmak için tıklayın