• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Ders Dağılımı Yardım?

Katılım
10 Mart 2010
Mesajlar
5
Excel Vers. ve Dili
2003 Tr
Herkese merhabalar. Formunuzu sık sık ziyaret ederek yardım alıyorum. Herşey için teşekkürler. Excel'i öğrenmeye çalışan biri olarak takıldığım bir yer var. Forumda aradım ama bulamadım benzeri daha önceden verilmiş ya da sorulmuşsa affola. Ekteki dosyada da görüleceği üzre bir ders dağilim çizelgesi oluşturdum. Fakat ders girişi yapılırken Seçilen grup derslerini "G" simgesinin altında göstermek istiyorum. Diger isimler şu an oldugu gibi "B" simgesinin altinda yer alacak.
Bunu sağlamak için; (Sadece Userform1 in birinci comboboxina)

If ComboBox1.Value = "Grup1" Then [c5] = ComboBox1.Value
If ComboBox1.Value = "Grup1" Then [b5].Value = Delete

kodunu yazdim, çalışıyor, istediğimi yapıyor fakat yaklaşık 30 tane grup olacak. Yani "Grup2", "Grup3", "Grup4" gibi ve bunu her hücre için teker teker atamam gerekiyor. Takdir edersinizki buda yüzlerce kod demek. Eminim bunun bir kisayolu vardir.

If ComboBox1.Value = "Grup1","Grup2", "Grup3", "Grup4" Then [c5] = ComboBox1.Value
If ComboBox1.Value = "Grup1","Grup2", "Grup3", "Grup4" Then [b5].Value = Delete

gibi bir mantik yani. (Tabi bu yazdiğim çalışmiyor denedim :)) yardimlariniz için şimdiden teşekkürler.
 

Ekli dosyalar

Yok mu fikri olan ??
 
Geri
Üst