cihanaykutlug
Üye
- Mesajlar
- 10
hocam TC ve doğum tarihi bilgilerini doğru yazdığınızdan emin misiniz?Explorer açılıyor fakat hiç bir bilgiyi post etmiyor hocam, haliyle veride almıyor.
Hocam bende de aynı durum var. Explorer açılıp orada kalıyor. Nasıl yapacağımızı anlatırsanız sevinirim...hocam TC ve doğum tarihi bilgilerini doğru yazdığınızdan emin misiniz?
alıyor hocam herhangi bir problem yok ben yayınlamadan önce bizim okulun listesini eksiksiz bir şekilde aldımDers ders dogru yanlis sayilarini almiyor galiba
faydalı olabildiysek ne mutlu hocamElinize saglik hocam.
HOCALARIM E OKUL KURUM ŞİFRESİ İLE SINAV İŞLEMLERİ BÖLÜMDEN RAPORLAMA ORADA TC KİMLİK YAZMADAN OKULDA SINAVA GİREN TÜM OĞRENCİLERİN LİSTESİNİ ALABİLİYORSUNUZ PROGRAMA İHTİYAÇ YOK
rar hatalı diyordoğum tarihindeki AY olan kısmı AYI olarak güncellemişler gerekli düzeltmeyi yayıp tekrar ekliyorum
Bu sefer oldu. Cok tesekkurler hocam.doğum tarihindeki AY olan kısmı AYI olarak güncellemişler gerekli düzeltmeyi yayıp tekrar ekliyorum
Emeğinize sağlık aldım 300 öğrenciyi.doğum tarihindeki AY olan kısmı AYI olarak güncellemişler gerekli düzeltmeyi yayıp tekrar ekliyorum
Public Sub ogrenci_getir()
Dim iSatir, cSatir, i, cSutun, say As Integer
cSatir = 8
cSutun = 16
say = 1
For iSatir = 0 To 6
ActiveSheet.Cells(1, cSutun) = ActiveSheet.Cells(cSatir + iSatir, 4)
ActiveSheet.Cells(2, cSutun) = ActiveSheet.Cells(7, 7)
ActiveSheet.Cells(2, cSutun + 1) = ActiveSheet.Cells(7, 9)
ActiveSheet.Cells(2, cSutun + 2) = ActiveSheet.Cells(7, 11)
cSutun = cSutun + 3
Next iSatir
cSatir = 8
cSutun = 16
ActiveSheet.Cells(2, (cSutun + 21)) = "Puan"
ActiveSheet.Cells(2, (cSutun + 22)) = "Yüzdelik"
For iSatir = 3 To 53
ActiveSheet.Cells(iSatir, cSutun - 1) = ActiveSheet.Cells(cSatir - 5, 8)
For i = 0 To 7
ActiveSheet.Cells(iSatir, cSutun + i * 3) = ActiveSheet.Cells(cSatir + i, 7)
ActiveSheet.Cells(iSatir, cSutun + 1 + i * 3) = ActiveSheet.Cells(cSatir + i, 9)
ActiveSheet.Cells(iSatir, cSutun + 2 + i * 3) = ActiveSheet.Cells(cSatir + i, 11)
Next i
ActiveSheet.Cells(iSatir, (cSutun + 21)) = ActiveSheet.Cells(cSatir + 9, 7)
If ActiveSheet.Cells(cSatir + 7, 4) <> "" Then
ActiveSheet.Cells(iSatir, (cSutun + 22)) = Split(ActiveSheet.Cells(cSatir + 7, 4), "%")(1)
End If
cSatir = cSatir + 18
Next iSatir
MsgBox " Liste oluşturuldu ...."
End Sub
Liste oluşturuldu dedi ama sıralı liste gelmedi. Aynı sayfa kaldı.Arkadaşlar e-okuldan listeyi excel formatında indirip aşağıdaki makroyu çalıştırırsanız aynı sayfaya listeyi sıralı liste şekilde veriyor belki işinize yarar....
Kod:Public Sub ogrenci_getir() Dim iSatir, cSatir, i, cSutun, say As Integer cSatir = 8 cSutun = 16 say = 1 For iSatir = 0 To 6 ActiveSheet.Cells(1, cSutun) = ActiveSheet.Cells(cSatir + iSatir, 4) ActiveSheet.Cells(2, cSutun) = ActiveSheet.Cells(7, 7) ActiveSheet.Cells(2, cSutun + 1) = ActiveSheet.Cells(7, 9) ActiveSheet.Cells(2, cSutun + 2) = ActiveSheet.Cells(7, 11) cSutun = cSutun + 3 Next iSatir cSatir = 8 cSutun = 16 ActiveSheet.Cells(2, (cSutun + 21)) = "Puan" ActiveSheet.Cells(2, (cSutun + 22)) = "Yüzdelik" For iSatir = 3 To 53 ActiveSheet.Cells(iSatir, cSutun - 1) = ActiveSheet.Cells(cSatir - 5, 8) For i = 0 To 7 ActiveSheet.Cells(iSatir, cSutun + i * 3) = ActiveSheet.Cells(cSatir + i, 7) ActiveSheet.Cells(iSatir, cSutun + 1 + i * 3) = ActiveSheet.Cells(cSatir + i, 9) ActiveSheet.Cells(iSatir, cSutun + 2 + i * 3) = ActiveSheet.Cells(cSatir + i, 11) Next i ActiveSheet.Cells(iSatir, (cSutun + 21)) = ActiveSheet.Cells(cSatir + 9, 7) If ActiveSheet.Cells(cSatir + 7, 4) <> "" Then ActiveSheet.Cells(iSatir, (cSutun + 22)) = Split(ActiveSheet.Cells(cSatir + 7, 4), "%")(1) End If cSatir = cSatir + 18 Next iSatir MsgBox " Liste oluşturuldu ...." End Sub