LGS 2019 Toplu Sonuç Listesi

Kodla Büyü
C

cihanaykutlug

Üye
Mesajlar
10
arkadaşlar daha önceden sitede yayınlanan excel dosyasında ufak bir değişiklik yaptım sorunsuz olarak çalışmaktadır. Tek yapmanız gereken listeye TC ve doğum tarihlerini girmeniz.
 

Ekli dosyalar

  • lgsSonuçListesi.rar
    22.9 KB · Görüntüleme: 1,934
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
 
hocalarım öncelikle makroları etkinleştirmeniz lazım sonra TC ve doğum tarihini girip başlata basacaksınız bu kadar yapamıyorsanız tc ve doğum tarihini bana özelden gönderin ben sizin adınıza listeyi alabilirim
 
Teşekkürler alıyor sıkıntı yok fakat Tc ve doğum tarihlerini toplu ekleme yöntemi ile ilgili bilginiz var mı? Tek tek yazmak mı gerekiyor?
 
Nasıl çalışıyor Hocam biraz bilgi verir misiniz.

Pardon mesajınızı görmeden yazdım.
 
Doğum tarihi kısmında sıkıntı var sadece 1.ay doğumlu olanların sonucunu getiriyor ve tüm aramaları 1.ay üzerinden yapıyor
 
windows 10

ofis 2016 ile sonuçları getirmiyor.

ilk sayfada kalıyor

hiç bir öğrenci sorgulamadı
 
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
 
pascalant' Alıntı:
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
Genişletmek için tıkla ...
Liste oluşturuldu dedi ama sıralı liste gelmedi. Aynı sayfa kaldı.
 
hocam e-okuldan excel(sadece veri) şeklinde dosyayı indirdikten sonra excelin visiual basic kısmında modül oluşturup kodları oraya yapıştırdım. sonra sayfaya buton ekleyip bu fonksiyonu çalıştırdım oldu. böyle dener misiniz?
 
İlk 50 kişiyi verdi. Din Kültürü sütunu da sağa kaydırmış. Artık gerisini de siler, ekler bir şekilde hallederim. Teşekkürler @pascalant
 
hocam "For iSatir = 3 To 53" döngüsünü artırırsanız kişi sayı da artacaktır. Evet sütunda kayma oluyor o da indirilen excel dosyasında boşluklardan dolayı. rica ederim @hiboz
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst