sınıflara düzenleme

[SOYOLA]

sayın form üyeleri
sorumu ekte gönderiyorum.20 şerlik 10 sınıfta okuyan öğrencilerin yine 10 imatahn sınıfına dağlımını yapmak istiyorum.Ama imtahan sınıflarında aynı sınıftaki öğrenciler arka arkaya oturamazlar.İlginize şimdiden teşekkür ederim
saygılarımla
babür bulugan

 

[Necdet]

Merhaba,

İmtahan değil imtihan.

Sınav sözcüğü daha güzel bence.

 

[SOYOLA]

sınıf düzenleme

sayın necdet bey
uyarılarınızda haklısınız.biz yaş itibariyle eski alışkanlıkları devam ettiriyoruz.Bundan sonra sınav olarak kullanırım.
saygılarımla

 

[SOYOLA]

sınıf düzenleme

sayın form üyeleri

soruma cevap verebilecek biri varsa önerilerinizi rica ediyorum.
saygılarımla

 

[Necdet]

Merhaba,

Birleşler yapmaya çalıştım ama, olup olmadığını siz söyleyeceksiniz.

Sub Dağıtım()
Application.ScreenUpdating = False
[B26:K100].ClearContents    'Burasını iyi kontrol etmek gerek
Sütun = 1
For i = 3 To [B2].End(4).Row
    Sütun = Sütun + 1
    If Sütun > 11 Then Sütun = 2
    Sat = Cells(65536, Sütun).End(3).Row + 1
    Range("B" & i & ":K" & i).Select
    Selection.Copy
    Cells(Sat, Sütun).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
Next i
MsgBox "Dağıtım Bitmiştir Ama, İstediğiniz Gibi Oldu Mu Bilemem :)...."
End Sub

 

[SOYOLA]

sayın necdet bey elinize sağlık çok teşekkür ederim
saygılarımla