excelde 500 öğrenciyi her sayfada 16 öğrenci şeklinde dağıtmak istiyorum

Kodla Büyü

ybilgin

Seçkin Üye
Seçkin Üye
Mesajlar
570
arkadaşlar bir excel sayfasındaki 500 öğrenciyi sıralı bir şekilde her biri 16 öğrenci olacak şekilde farklı sayfalara nasıl atabiliriz.
 
Hocam listenin son hali belli değil yaklaşık olarak ekteki başlıklar olacak.
 

Ekli dosyalar

  • LİSTE.rar
    10.4 KB · Görüntüleme: 57
Sub Dağıt()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = Sheets.Count To 2 Step -1
Sheets(i).Delete
Next
Set s = Sheets("Sayfa1")
c1 = Columns(1).ColumnWidth
c2 = Columns(2).ColumnWidth
c3 = Columns(3).ColumnWidth
c4 = Columns(4).ColumnWidth
c5 = Columns(5).ColumnWidth
a = 2
For i = 1 To 16
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = i
s.Range("A" & a & ":E" & a + 15).Copy Range("A2")
s.Range("A1:E1").Copy Range("A1")
Columns(1).ColumnWidth = c1
Columns(2).ColumnWidth = c2
Columns(3).ColumnWidth = c3
Columns(4).ColumnWidth = c4
Columns(5).ColumnWidth = c5
a = a + 16
Next
s.Select
Set s = Nothing
End Sub

Kodu deneyiniz.
 
Sub Dağıt()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = Sheets.Count To 2 Step -1
Sheets(i).Delete
Next
Set s = Sheets("Sayfa1")
c1 = Columns(1).ColumnWidth
c2 = Columns(2).ColumnWidth
c3 = Columns(3).ColumnWidth
c4 = Columns(4).ColumnWidth
c5 = Columns(5).ColumnWidth
a = 2
For i = 1 To 16
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = i
s.Range("A" & a & ":E" & a + 15).Copy Range("A2")
s.Range("A1:E1").Copy Range("A1")
Columns(1).ColumnWidth = c1
Columns(2).ColumnWidth = c2
Columns(3).ColumnWidth = c3
Columns(4).ColumnWidth = c4
Columns(5).ColumnWidth = c5
a = a + 16
Next
s.Select
Set s = Nothing
End Sub

Kodu deneyiniz.

hocam 1 den 16 ya kadar sayfa oluşturdu ama öğrencileri dağıtmadı ya da ben yapamadım
 
İsimlerin yazili oldugu Sayfa1 sayfasinda kodlari calistirin. Veya çalışmıyor dediğiniz dosyayi yükleyiniz.
 
google playstore da e-okul foto programının kelebek yazılımı var 10 numara dağıtım yapıyor...bizzat denedim...işini görürse dene derim @ybilgin
 
Geri
Üst