Boş Hücreleri Listeleme

[Engineerist34]

Ekteki Excel çalışma kitabında ETÜD dersleri sayfalar halinde listelenmiş. Her öğrencinin Ekim ayından Nisan ayına kadar ödediği ücretler de karşılıklarına gelen hücrelere yazılmıştır. Amacım ödeme yapılmayan ( Boş Hücreleri ) sonda bulunan SONUÇ safyasına yazdırmak.
Ben ders isimlerini Option Buton olarak ekledim, change özelliğine kod yazarak, hangi öğrencinin hangi aylarda ödeme yapmadığını listelemek istiyorum.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.
OptionButton_Click olayı içerisinden veri_al (OptionButtonX.Caption) kodlarıyla çağırabilirsiniz.

Private Sub veri_al(syf As String)
Dim s1 As Worksheet
Dim a As Integer, x As Integer
Dim b As Byte
ReDim dz(1 To 500, 1 To 10)

x = 1
Set s1 = Sheets(syf)
For a = 2 To s1.Cells(Rows.Count, "A").End(3).Row
    For b = 4 To 10
        If s1.Cells(a, b) = "" Then
            If dz(x, 3) <> s1.Cells(a, 3) Then
                If dz(x, 3) <> "" Then x = x + 1
                dz(x, 1) = s1.Cells(a, 1)
                dz(x, 2) = s1.Cells(a, 2)
                dz(x, 3) = s1.Cells(a, 3)
                dz(x, b) = "X"
            Else
                dz(x, b) = "X"
            End If
        End If
    Next
Next
Range("A3").Resize(UBound(dz), UBound(dz, 2)).Value = dz
End Sub

Not: Son OptionButton ismini sayfa ismiyle uyuşması için SATRANÇ olarak düzeltiniz.