Sınav sonuçlarını aktarma

[mest3651]

Arkadaşlar yapmak istediğim konuyu ekte gönderdim. şimdiden çok sağolun.

 

[srkn0222]

merhabalar
EK'teki dosyayı inceleyin. işinizi görür sanırım.

 

[mest3651]

Teşekkürler.makroyla yapmak mümkünmü acaba

 

[Muhammet Okumuş]

Merhaba,

Sub Yaz()
Application.ScreenUpdating = False
On Error Resume Next
son = Cells(Rows.Count, "AC").End(3).Row
For i = 3 To son
tc = Cells(i, "AC").Value
x = WorksheetFunction.Match(tc, Sheets("Sayfa2").Range("A:A"), 0)
sayı = Sheets("Sayfa2").Cells(x, 3)

If sayı < 69 Then GoTo 10
Cells(i, 13) = sayı
10
Next
End Sub

Kodu deneyiniz.

 

[mest3651]

Sınav sonucunu aktarma

Saolun. Ufak hatalar var. Bakabilirmisiniz. Dosyada.

 

[Muhammet Okumuş]

Ben 70 yerine 69 yazmışım.

Sub Yaz()
Application.ScreenUpdating = False
Range("M:M").ClearContents
On Error Resume Next
son = Cells(Rows.Count, "AC").End(3).Row
For i = 3 To son
If Cells(i, "AC") = "" Then GoTo 10
tc = Cells(i, "AC").Value
x = WorksheetFunction.Match(tc, Sheets("Sayfa2").Range("A:A"), 0)
sayı = Sheets("Sayfa2").Cells(x, 3)

If sayı < 70 Then GoTo 10
Cells(i, 13) = sayı
10
Next
End Sub

 

[Muhammet Okumuş]

J:K:L sütunları kısmen birleştirilmiş. O kısımları birleştirilmiş hücreden çıkartmalısınız.

 

[srkn0222]

merhabalar
EK'teki dosyayı alternatif olarak ekliyorum.

 

[Muhammet Okumuş]

K sütunu yerine J sütununa yazılsın derseniz.

Sub Yaz()
Application.ScreenUpdating = False
Range("J:L").ClearContents
On Error Resume Next
son = Cells(Rows.Count, "AC").End(3).Row
For i = 3 To son
If Cells(i, "AC") = "" Then GoTo 10
tc = Cells(i, "AC").Value
x = WorksheetFunction.Match(tc, Sheets("Sayfa2").Range("A:A"), 0)
sayı = Sheets("Sayfa2").Cells(x, 3)

If sayı < 70 Then GoTo 10
Cells(i, 10) = sayı
10
Next
End Sub

 

[mest3651]

çok saol. Sayfa 2 de buton yapabilirmiyiz bastığımızda otomatik atsın. Teşekkürler.

 

[Muhammet Okumuş]

Dosyayı inceleyiniz.

 

[mest3651]

sonuç aktarma

sayfa 2 de eğer 70 den küçükse aynı tc numarası 4 kere daha yazmamız gerekiyor. aktarma yaptığımızda ilk tc numarasındaki notu baz alıyor. nasıl ayalayabiliriz.

 

[Muhammet Okumuş]

Sub Yaz1()
Application.ScreenUpdating = False
Range("K:K").ClearContents
Set s = Sheets("Sayfa2")
son = Cells(Rows.Count, "AC").End(3).Row
Range("AF2").FormulaArray = "=IFERROR(MATCH(AF1,Sayfa2!A1:A1000&""-""&Sayfa2!E1:E1000,0),"""")"
Range("AD1:AD" & son) = "=COUNTIF(AC$1:AC1,AC1)"
son1 = s.Cells(Rows.Count, 1).End(3).Row
s.Range("E1:E" & son1) = "=COUNTIF(A$1:A1,A1)"
For i = 1 To son

Range("AF1") = Cells(i, "AC") & "-" & Cells(i, "AD")
If Range("AF2") = "" Then GoTo 10

sayı = s.Cells(Range("AF2"), 3)
If Cells(i, "AC") = "" Then GoTo 10


If sayı < 70 Then GoTo 10
Cells(i, 11) = sayı
10
Next
s.Range("E1:E" & son1) = ""
Range("AD1:AF" & son) = ""

End Sub

Kodu deneyiniz.