veri getirme makrosu hakk. yardım

[ahmetozbey]

arkadaşlar aşağıda kullandığım makro ile öğrenci numarasını girdiğimde hangi derslerden hangi notları almışsa onu görüntülemek için yazılmış makrodur.
istediğim şu: aşağıdaki makroda For sut = 7 To 29 yani 7 ile 29 arasındaki verileri görüntülüyor. buraya kadar bir sorun yok. ben 3,7ile29
arasını görüntülemek istiyorum. 1,2,4,5,6 görüntülensin istemiyorum. yardımcı olursanız sevinirim.



Sub ogrbul()
Sheets("ARA").[b5].Select
[a7:x5000].ClearContents
For s = 1 To 3
satsay = Sheets("" & s).Cells(52, 4).End(xlUp).Row
For ara = 1 To satsay
If Sheets("" & s).Cells(ara, 4).Value = Sheets("ARA").[d5] Then
c = c + 1
For sut = 7 To 29
Cells(c + 8, sut - 5) = Sheets("" & s).Cells(ara, sut).Value
Next
End If
Next
Next
End Sub

 

[ahmetozbey]

bilen varsa lütfen yardımcı olsun.
şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:23f0fb2d6c]Sub ogrbul()
Sheets("ARA").[b5].Select
[a7:x5000].ClearContents
For s = 1 To 3
satsay = Sheets("" & s).Cells(52, 4).End(xlUp).Row
For ara = 1 To satsay
If Sheets("" & s).Cells(ara, 4).Value = Sheets("ARA").[d5] Then
c = c + 1
Cells(c+8, 2) = Sheets("" & s).Cells(ara, 3).Value
For sut = 7 To 29
Cells(c + 9, sut - 4) = Sheets("" & s).Cells(ara, sut).Value
Next
End If
Next
Next
End Sub[/vb:1:23f0fb2d6c]

 

[ahmetozbey]

leventm çok teşekkür ederim.