• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

YGS Sınav Sonuclarını Sayısal-Sözel ve EA gruplarına göre ayırıp birleştirme..

S

smile80

Katılım
13 Haziran 2009
Mesajlar
38
Excel Vers. ve Dili
EXcell-2007-Turkce
Merhaba Arkadaslar... Ekte sunmus oldugum excel dosyasında YGS sınav sonucları var.Burda sarı renkli olan verileri birleştirerek sayfa1 'e almak istiyorum. (Örnek sayfa1 de mevcut) Yalnız her satırdaki öğrenci puanları YGS-1 den başlayp YGS-5 e kadar puanları mevcut.
Sayısal, sözel ve esit agırlık gruplarına göre ayrı ayrı puanları göndereceğim. Ögrenci grup koduna göre bunları H sutununda farklı renklerle işaretledim. Hangi gruba Hangi YGS puanları gideceği mevcut.Ben bu işlemi 4 ayrı excel sayfasında makro ve manuel olarak gönderiyorum ama hata yapma oranım bayagı yüksek.. Bu konuda yardımcı olursanız minnettar kalacağım.
İlgi ve alakanıza şimdiden teşekkür ederim..
 

Ekli dosyalar

Yardımcı olacak bir arkadaş yok mu..?

Arkadaşlar bu konuda yardımlarınızı bekliyorum.. Teşekkürler
 
cevap yok mu..?

Arkadaslar konu mu karışık gelldi..yoksa imkansız bir şey mi istedim bilemiyorum ama bu dershane YGS sınavlarını birleştirmek ve sms ile velilere göndermek bende bayağı bir sorun oldu.. Yardımlarınızı bekliyorum..Teşekkürler..
 
smile80' Alıntı:
Arkadaslar konu mu karışık gelldi..yoksa imkansız bir şey mi istedim bilemiyorum ama bu dershane YGS sınavlarını birleştirmek ve sms ile velilere göndermek bende bayağı bir sorun oldu.. Yardımlarınızı bekliyorum..Teşekkürler..
Genişletmek için tıkla ...

Bu tür kodları yazmak baya zahmetli epey uğraştım yapmak için,

Ekli dosyanızdaki K Sutünuna puan guruplarını ekledim buraya bakarak puanları ona göre yazıyor.
 

Ekli dosyalar

YGS Sınav Sonuclarını birleştirme...

Hocam emeğinize cok teşekkür ederim.. Gerçekten size bayagı uğraş vermişim gördüğüm kadarıyla.. Anladığım kadarıyla aktarma işlemini yapmadan önce K sutununu açarak gruplara göre YGS-1 , YGS-3 ve YGS-5 puan satırını manuel olarak yazmam gerekiyor.. Bunuda kad ile yapmamız mümkünmü.. çünkü burda yaklaşık 1700 öğrenciden bahsediyoruz.. bunu aktarma işlemine başlamadan önce secmeli bir sayfadan işaretleyerek yapsak daha güzel olur. yani A sutununa grup kodu, B sutununa YGS-1 karşılığı kelimeyi yazsak aktarma esnasında puan secme işlemini bu sayfayı dikkate alarak yapsa çok iyi olur..
Şimdiden teşekkür ederim..
 
smile80' Alıntı:
Hocam emeğinize cok teşekkür ederim.. Gerçekten size bayagı uğraş vermişim gördüğüm kadarıyla.. Anladığım kadarıyla aktarma işlemini yapmadan önce K sutununu açarak gruplara göre YGS-1 , YGS-3 ve YGS-5 puan satırını manuel olarak yazmam gerekiyor.. Bunuda kad ile yapmamız mümkünmü.. çünkü burda yaklaşık 1700 öğrenciden bahsediyoruz.. bunu aktarma işlemine başlamadan önce secmeli bir sayfadan işaretleyerek yapsak daha güzel olur. yani A sutununa grup kodu, B sutununa YGS-1 karşılığı kelimeyi yazsak aktarma esnasında puan secme işlemini bu sayfayı dikkate alarak yapsa çok iyi olur..
Şimdiden teşekkür ederim..
Genişletmek için tıkla ...

nasıl olacak bu A ve B sutünlarında farklı veriler var burada
 
YGS Sınav Sonuclarını birleştirme...

Merhaba ustacığım.. H sutunundaki grup kodları normalde karışık olarak geliyor. dolayısı ile sizin açtığınız K sutununu süzme işlemi ile tek tek yazmak zorunda kalacağım. o yuzden eklediğim dosyada Sayfa1 de bulunan grup kodu karşılığı YGS seceneğini yazdım buna göre K sutununu sayfa1 deki verileri dikkate alarak otomatik yazmasını istemistim.. Teşekkürler
 

Ekli dosyalar

smile80' Alıntı:
Merhaba ustacığım.. H sutunundaki grup kodları normalde karışık olarak geliyor. dolayısı ile sizin açtığınız K sutununu süzme işlemi ile tek tek yazmak zorunda kalacağım. o yuzden eklediğim dosyada Sayfa1 de bulunan grup kodu karşılığı YGS seceneğini yazdım buna göre K sutununu sayfa1 deki verileri dikkate alarak otomatik yazmasını istemistim.. Teşekkürler
Genişletmek için tıkla ...

Bu kodu denermisiniz.Sayfa1 ve K sutünuna gerek kalmadı verileri H sutünündan alıyor.

Kod: 
Sub aktar()
Sheets("deneme").Columns("A:A").ClearContents
sat = 2
For i = 3 To Worksheets("YGS").Cells(Rows.Count, "d").End(3).Row
deg = WorksheetFunction.Trim(Sheets("YGS").Cells(i, 4).Value)
deg1 = ""
deg2 = ""
deg3 = ""
deg4 = ""
For r = 12 To 44 Step 4
deg1 = Sheets("YGS").Cells(1, r).Value & ":"
deg2 = Sheets("YGS").Cells(i, r).Value & "/"
deg3 = Sheets("YGS").Cells(i, r + 1).Value & "-"
deg4 = deg4 & deg1 & deg2 & deg3
Next r
deg5 = Sheets("YGS").Cells(i, 8).Value
If "221" = deg5 Or "222" = deg5 Or "226" = deg5 Or "228" = deg5 Or "339" = deg5 Or "340" = deg5 Then
son = Sheets("YGS").Cells(i, 48).Value
ElseIf "225" = deg5 Or "229" = deg5 Or "331" = deg5 Or "332" = deg5 Or "333" = deg5 Then
son = Sheets("YGS").Cells(i, 50).Value
ElseIf "224" = deg5 Or "225" = deg5 Or "334" = deg5 Or "335" = deg5 Or "336" = deg5 Or "337" = deg5 Then
son = Sheets("YGS").Cells(i, 52).Value
Else
son = "grup yok"
End If
Sheets("deneme").Cells(sat, 1).Value = deg & "-" & deg4 & son & ".Puan Almistir.ACI DERSANESI 328.8123487"
sat = sat + 1
Next i
MsgBox "işlem tamam"
End Sub
 
YGS Sınav Sonuclarını birleştirme...

Hocam eline sağlık olmuş..yalnız ders isimleri çıkmıyor.. dogru ve yanlış sonuclarını alıyor ama hangi ders olduğunu almıyor..
 

Ekli dosyalar

siz bir sutün silmişsiniz onun için olmuyor
 
şöyle bir sorunda var 226

226YGS-1

226YGS-3

her ikisindede var
 
YGS Sınav Sonuclarını birleştirme...

dogru..gözümden kaçmış YGS-3 226 yazan 227 olacaktı..
 
9 nolu mesejındaki dosyaya göre bu kod

Sub aktar()
Sheets("deneme").Columns("A:A").ClearContents
sat = 2
For i = 3 To Worksheets("YGS").Cells(Rows.Count, "d").End(3).Row
deg = WorksheetFunction.Trim(Sheets("YGS").Cells(i, 4).Value)
deg1 = ""
deg2 = ""
deg3 = ""
deg4 = ""
For r = 11 To 43 Step 4
deg1 = Sheets("YGS").Cells(1, r).Value & ":"
deg2 = Sheets("YGS").Cells(i, r).Value & "/"
deg3 = Sheets("YGS").Cells(i, r + 1).Value & "-"
deg4 = deg4 & deg1 & deg2 & deg3
Next r
deg5 = Sheets("YGS").Cells(i, 8).Value
If "221" = deg5 Or "222" = deg5 Or "226" = deg5 Or "228" = deg5 Or "339" = deg5 Or "340" = deg5 Then
son = Sheets("YGS").Cells(i, 47).Value
ElseIf "227" = deg5 Or "229" = deg5 Or "331" = deg5 Or "332" = deg5 Or "333" = deg5 Then
son = Sheets("YGS").Cells(i, 49).Value
ElseIf "223" = deg5 Or "224" = deg5 Or "225" = deg5 Or "334" = deg5 Or "335" = deg5 Or "336" = deg5 Or "337" = deg5 Then
son = Sheets("YGS").Cells(i, 51).Value
Else
son = "grup yok"
End If
Sheets("deneme").Cells(sat, 1).Value = deg & "-" & deg4 & son & ".Puan Almistir.ACI DERSANESI 328.8123487"
sat = sat + 1
Next i
MsgBox "işlem tamam"
End Sub
Genişletmek için tıkla ...
 
Ygs Sınav Sonucları..

Hocam bir kaç gündür dönüp size teşekkür edemedim..kusura bakmayın.. ellerinize saglık çok sağolun..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst