- Katılım
- 9 Eylül 2004
- Mesajlar
- 243
- Excel Vers. ve Dili
- Office2003Trk
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
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