Sınav Oturma Planı

[sanalatm]

ekli dosyayı formül yazabilirmisiniz. sorunu dosya içerisine yazdım... teşekkür ederim..

 

[muygun]

Merhaba;
Basit şekliyle ekteki gibi olabilir.
Eki inceleyin.
İyi çalışmalar.

 

[sanalatm]

Merhaba;
Basit şekliyle ekteki gibi olabilir.
Eki inceleyin.
İyi çalışmalar.

teşekkür ederim. işime yaradı gerçekten bir yükten kurtardınız beni

 

[buraqes]

Sub Kimlik1()

Range("G4:I4").ClearContents
Range("G5:I5").ClearContents
Range("G6:I6").ClearContents
Range("G7:I7").ClearContents
Range("G8:I8").ClearContents

aranan1 = Sheets("kimlikler").Cells(1, 15).Value + 1

For r = 2 To Worksheets("sınavlar").Cells(Rows.Count, "b").End(3).Row

If r = aranan1 Then
Sheets("kimlikler").Cells(4, 6).Value = Sheets("sınavlar").Cells(r, 2).Value
Sheets("kimlikler").Cells(5, 6).Value = Sheets("sınavlar").Cells(r, 3).Value
Sheets("kimlikler").Cells(6, 6).Value = Sheets("sınavlar").Cells(r, 4).Value
Sheets("kimlikler").Cells(7, 6).Value = Sheets("sınavlar").Cells(r, 5).Value
Sheets("kimlikler").Cells(8, 6).Value = Sheets("sınavlar").Cells(r, 6).Value

End If

Next r

End Sub
bU KODLARDA YANLIŞLIK VARMI İŞLEV YAPMIYOR