Sınav sonucu çekme

[mest3651]

Mrb. Arkadaşlar sınav sonuçlarını makro ile ilgili hücrelere çekmek istiyorum. Ekte detaylı olarak anlattım. çok uğraştım ama yapamadım. şimdiden çok teşekkürler.

 

[halit3]

Mrb. Arkadaşlar sınav sonuçlarını makro ile ilgili hücrelere çekmek istiyorum. Ekte detaylı olarak anlattım. çok uğraştım ama yapamadım. şimdiden çok teşekkürler.

Bu konuda bir çok kez soru sormuşsunuz.?

Ekli dosyanızı kontro edin veri giriş sayfasından M sutünundaki açılan listeden seçim yapmanız yeterli olacaktır.

 

[halit3]

2 nolu mesajdaki dosyaya küçük ekleme yaptım.

 

[mest3651]

halit hocam önceden sormuştum ama bi türlü sonuca ulaşamadım. veri girişi sayfasına adayların bilgilerinin girişini yapıyorum. sınav sonuçları boş kalıyor. onun sonuçlar sayfasından kaç kişi sınava girmişse alan adı oluşturuyorum. sonra veri girişi sayfasından sonuçları düşeyara formulü ile çekiyorum. (=EĞER(YADA(EHATALIYSA(DÜŞEYARA(AC3;DİK27;5;YANLIŞ))=DOĞRU;DÜŞEYARA(AC3;DİK27;5;YANLIŞ)<70);;DÜŞEYARA(AC3;DİK27;5;YANLIŞ)) bu şekilde. her sınavda kaldığı dersin formulünü değiştiriyorum. Mesala sınavda kalmışsa eğer bu formülde DİK27 belirtmişim. sonraki sınavda DİK28 gibi. benim yapmak istediğim sonuçlar sayfasına sınav sonuçlarını yerleştirdiğim zaman bir aktar butonu ile t.c .kimlik nosuna göre veri girişi sayfasındaki sonuçlar kısmına 69'dan büyük sonuçları aktarması. ilginiz için çok saolun halit hocam.

 

[halit3]

halit hocam önceden sormuştum ama bi türlü sonuca ulaşamadım. veri girişi sayfasına adayların bilgilerinin girişini yapıyorum. sınav sonuçları boş kalıyor. onun sonuçlar sayfasından kaç kişi sınava girmişse alan adı oluşturuyorum. sonra veri girişi sayfasından sonuçları düşeyara formulü ile çekiyorum. (=EĞER(YADA(EHATALIYSA(DÜŞEYARA(AC3;DİK27;5;YANLIŞ))=DOĞRU;DÜŞEYARA(AC3;DİK27;5;YANLIŞ)<70);;DÜŞEYARA(AC3;DİK27;5;YANLIŞ)) bu şekilde. her sınavda kaldığı dersin formulünü değiştiriyorum. Mesala sınavda kalmışsa eğer bu formülde DİK27 belirtmişim. sonraki sınavda DİK28 gibi. benim yapmak istediğim sonuçlar sayfasına sınav sonuçlarını yerleştirdiğim zaman bir aktar butonu ile t.c .kimlik nosuna göre veri girişi sayfasındaki sonuçlar kısmına 69'dan büyük sonuçları aktarması. ilginiz için çok saolun halit hocam.

2 nolu mesajdaki dosyaya hiç bakmadığını anlıyorum çünkü bir yorum yapmamışsın.

Buda farklı bir kod

Sub aktar()
Worksheets("veri girişi").Range("B2:G65000").ClearContents
sat = 2
For r = 3 To Worksheets("sonuçlar").Cells(Rows.Count, "A").End(3).Row
aranan1 = Sheets("sonuçlar").Cells(r, 1).Value
If Sheets("sonuçlar").Cells(r, 1).Value <> "" Then
If WorksheetFunction.CountIf(Worksheets("sonuçlar").Range("A3:A" & r), aranan1) = 1 Then
say = 0
deg = 0
With Worksheets("sonuçlar").Range("a:a")
Set d = .Find(aranan1, LookIn:=xlValues, lookat:=xlWhole)
If Not d Is Nothing Then
FirstAddress = d.Address
Do
If say = 0 Then
Worksheets("veri girişi").Cells(sat, "a").Value = Worksheets("sonuçlar").Cells(d.Row, "a").Value
Worksheets("veri girişi").Cells(sat, "b").Value = Worksheets("sonuçlar").Cells(d.Row, "b").Value
Worksheets("veri girişi").Cells(sat, "c").Value = Worksheets("sonuçlar").Cells(d.Row, "c").Value
End If
If say < 5 Then
If Worksheets("sonuçlar").Cells(d.Row, "d").Value >= 70 Then
Worksheets("veri girişi").Cells(sat, "d").Value = Worksheets("sonuçlar").Cells(d.Row, "d").Value
End If
If Worksheets("sonuçlar").Cells(d.Row, "e").Value >= 70 Then
Worksheets("veri girişi").Cells(sat, "e").Value = Worksheets("sonuçlar").Cells(d.Row, "e").Value
End If
If Worksheets("sonuçlar").Cells(d.Row, "f").Value >= 70 Then
Worksheets("veri girişi").Cells(sat, "f").Value = Worksheets("sonuçlar").Cells(d.Row, "f").Value
End If
End If
If Val(Worksheets("sonuçlar").Cells(d.Row, "d").Value + Worksheets("sonuçlar").Cells(d.Row, "e").Value + Worksheets("sonuçlar").Cells(d.Row, "f").Value) > 0 Then
deg = deg + 1
Worksheets("veri girişi").Cells(sat, "g").Value = deg & " kere sınava girildi"
End If
say = say + 1
Set d = .FindNext(d)
Loop While Not d Is Nothing And d.Address <> FirstAddress
End If
End With
sat = sat + 1
End If
End If
Next r
MsgBox "işlem tamam"
End Sub

 

[mest3651]

halit hocam 2 nolu mesajdaki dosyaya tekrar yüklermisiniz orda çıkmamış. teşekkürler.

 

[halit3]

halit hocam 2 nolu mesajdaki dosyaya tekrar yüklermisiniz orda çıkmamış. teşekkürler.

Anlıyamadım ney çıkmamış

 

[mest3651]

3 nolu mesajda 2 nolu mesajdaki dosyaya küçük bi ekleme yapmışsınız. 3 nolu mesajda demişsiniz. 2 nolu mesaja dosya eklenmemiş hocam.

 

[halit3]

3 nolu mesajda 2 nolu mesajdaki dosyaya küçük bi ekleme yapmışsınız. 3 nolu mesajda demişsiniz. 2 nolu mesaja dosya eklenmemiş hocam.

Evet 3 nolu mesajda

2 nolu mesajdaki dosyaya küçük ekleme yaptım

diye yazdım doğrudur buradaki atıf 2 nolu mesajdaki dosyayı güncellediğimi belirttim.

 

[mest3651]

halit hocam dosyaya bakabilirmisiniz. aktar butonunu nereye koymamız gerekir. çok saolun.

 

[halit3]

halit hocam dosyaya bakabilirmisiniz. aktar butonunu nereye koymamız gerekir. çok saolun.

Anlaşıldı soruyu makrolar bölümünde sormuşsunuz bu durumda az da olsa makroları bildiğinizi düşünerek ben kodları eklemiştim

Dosyanın son halini ekliyorum.

 

[mest3651]

halit hocam emeğinize sağlık yordum sizi çok saolun. pek fazla makro bilgim yok. benim programın detayını biraz anlatayım. sonuçlar sayfasına notları yüklediğim zaman sadece notların veri girişi sayfasındaki ilgili bölümlere gelmesi gerekiyor. T.C kimlik nosu benim programda veri grişi sayfasında AC sütununda bulunuyor. sonuçlar sayfasında d sütunundaki not veri girişi sayfasında k sütununa, e sütunundaki not j sütununa, f sütunundaki not ise l sütununa gelmesi gerekiyor. benim kullandığım dosyanın formatı böyle. Tekrardan çok teşekür ederim Halit hocam.