Belli Sütun Aralığına UserForm üzerinden veri girme

[Feylosof]

Herkese sağlıklı ve verimli bir gün dileklerimle başlıyorum.

Ekli dosya üzerinde göstermeye çalıştım.
1-Listbox1 de seçilen bir veri D sütununda bulunup Comboboxtaki veriyi H-V sütunları aralığında aktarama yapacak.
2- Aynı derse birden fazla sınıf verilebileceği için sınıflar H sütunundan V sütununa doğru artarak eklenebilecek.


Herkese iyi akşamlar diliyorum.

 

[bmutlu966]

Deneyiniz. Dosyanız ekte.

Private Sub CommandButton2_Click()

ders_sira = ListBox1.ListIndex + 3
y = WorksheetFunction.CountA(Range(Cells(ders_sira, "H"), Cells(ders_sira, "V")))

If y = 15 Then MsgBox "Bu ders sattiri dolu, daha fazla giris yapamazsiniz": Exit Sub

For k = 8 To 22
    If Cells(ders_sira, k) = PRO.ComboBox1.Value Then
    MsgBox "Bu Sinif zaten var.": Exit Sub
    End If
Next

For t = 8 To 22
    If Cells(ders_sira, t) = "" Then
    Cells(ders_sira, t) = PRO.ComboBox1.Value: Exit For
    End If
Next

End Sub

 

[Feylosof]

Sayın @bmutlu966 yalın ve kolay anlaşılabilir ve aynı zamanda istediğim çözümü üreten cevabınız için müteşekkirim. Var olun.

 

[Feylosof]

@bmutlu966
yukarıda yazdığınız koda üçüncü bir uyarma koşulu daha ekleyebilir miyiz?
Yan yana mükerrer girişine engel olduğu gibi aşağı doğru da mükerrer girişe uyarı verecek şekilde . Bunun için dosyadaki listede dersleri yeniden yazdım. üçüncü koşul bu listeye göre çalışsın istiyorum.

 

[Feylosof]

Not: Mevcut kodlar değişmeden sadece son dosyaya uygun bir ekleme istiyorum sizden. Dosyada detaylı anlatmaya çalıştım.

 

[bmutlu966]

Anladığım kadarıyla 1 sınıf tabloya birden fazla yazılamasın istiyorsunuz.

 

[Feylosof]

Anladığım kadarıyla 1 sınıf tabloya birden fazla yazılamasın istiyorsunuz.

@bmutlu966 hocam merhaba,
Tam olarak demek istediğim bu değil. Aynı derse aynı sınıf iki kez yazılmasın. Ama farklı derse yazılabilsin. Yani bir sınıf her derse en fazla bir kez yazılabilsin.

 

[bmutlu966]

Mesaj 2 de gönderdiğim ilk dosyanızı zaten bu şekilde yapmıştım. Aynı derse aynı sınıfı girmek istediğinizde "Bu sınıf zaten var" mesajı veriyor.

Tekrar kontrol edin.

 

[Feylosof]

Mesaj 2 de gönderdiğim ilk dosyanızı zaten bu şekilde yapmıştım. Aynı derse aynı sınıfı girmek istediğinizde "Bu sınıf zaten var" mesajı veriyor.

Tekrar kontrol edin.

Evet hocam yatay veri girişinde bu özellik mevcut bu çok güzel bir detay. İkinci eklediğim dosya bağlamında aynı şeyi dikey olarak da yapabilir mi diye sormuştum.

 

[bmutlu966]

Yani yukarıdaki gibi Coğrafya dersine girilen sınıf aynı kolonda Drama dersine de girilemesin mi istiyorsunuz?

 

[bmutlu966]

Anladığım kadarıyla dosyanız ekte. Aynı sınıf aynı sütünda varsa o sütuna yazmaz. Boş bulduğu diğer sütunlara yazar. Deneyin.

 

[Feylosof]

Anladığım kadarıyla dosyanız ekte. Aynı sınıf aynı sütünda varsa o sütuna yazmaz. Boş bulduğu diğer sütunlara yazar. Deneyin.

Hocam size çok mahcubum. Kusura bakmayın. Dünkü mesajınızı yeni gördüm. Şöyle özetlemeye çalışayım. Türk Dili ve Edebiyatı dersine 11 A sınıfını atadıktan sonra aşağıda veya yukarıda bulunan Türk Dili ve Edebiyatı dersine bir daha hem aynı kolonda hem diğer tüm kolonlarda 11 A sınıfı atanamasın.