Emeğinize sağlık hocam çok iyi hazırlamışsınız, GİRMEDİ yazılan öğrencilerin bulunduğu sınıflarda listeyi al denildiğinde listeyi aktarmıyor.Tşkkürler
Not Girişinde "G" girmedi yazıldığı aklıma gelmedi.
O zaman Not listesindeki C2:H200 aralığına aktarılan verileri makro yardımıyla düzenleyelim . Bu aralıktaki hücrelerde metin varsa, girilen notlar 0'dan küçük veya 100'den büyük ise sildirelim.Böylece program hata vermeyecek.
Geliştirici> Visual Basic >Modüller > Modul 1 açarak şu kodu ekleyelim.
Sub Not_değilse_sil()
Sayfa8.Select
Dim ALan As Range
For Each ALan In Range("C2:H100")
If IsError(ALan) = True Then
ElseIf ALan.Value > 100 Then
ALan.ClearContents
ElseIf ALan.Value < 0 Then
ALan.ClearContents
End If
Next
End Sub
Bu makroyu FormuGüncelle makrosuna gömelim.
Görünüm>Makrolar >Makroları Görüntüle -deyip . Yandaki açılan kutudan "FormuGüncelle"adlı makroyu seçip düzenle ye basalım.Şu kodun
Call Dağıt_DersDışıEtkinlik1
üstüne
Call Not_değilse_sil
kodunu Ctrl+V ile yapıştırıp Ctrl+S yaparak kaydeddelim.Böylece 0-100 arası notlar dışında başka veri hesaplanmayacak.
İlk sayfada güncelleme yaparım.