tüm sutunların Satırlarındaki işaretli alanların numarasını bulma sayfa2 göderme

[mustinba]

Sayfa1 de B sutununda öğrenci numaraları C sutununda ad soyad bilgileri ve D2 sutunundan O2 sutununa kadar soru numaraları var.
ben de sayfa2 de A sutunda öğrenci numarası B sutununda öğrencinin ad soyad C sutununda da D2 den O2 ye kadarlık bölümde Eğer "X" işaretlemişse "X"in Olduğu Hücre Kaçıncı soruya denk geliyorsa onu yazsın birden fazla işaretleme varsa alt satıra ayrı ayrı göstersin.
Teşşekürler.
ekte Yapmak isteğimi sayfa2 de gösterdim.

http://s4.dosya.tc/server5/227nbl/Kitap1.rar.html

 

[PLİNT]

Merhaba
Aşağıdaki gibi işinize yararmı?

Sub deneme()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("A2:C" & Rows.Count) = Empty
x = s1.Cells(Rows.Count, "A").End(3).Row
For Each a In s1.Range("D5:O" & x)
If UCase(a.Value) = "X" Then
b = b + 1
s2.Cells(b + 1, "A") = s1.Cells(a.Row, "C")
s2.Cells(b + 1, "B") = s1.Cells(a.Row, "B")
s2.Cells(b + 1, "C") = s1.Cells(2, a.Column)
End If
Next
End Sub

 

[mustinba]

Teşekkürler. elinize emeğinize sağlık.