düzeltme

[erdenek]

Merhaba arkadaşlar
Linkteki kura programında kurayı başlatıp bitirdikten sonra liste al diyorum.liste geliyor. listede 1.Sınıf a şubesi yazıyor ben onu anasınıfı a şube olarak nasıl değiştirebilirim.

448 KB file on MEGA

mega.nz

 

[Muhammet Okumuş]

Hocam hazırladığım dosyanın hala kullanılıyor olması insanı mutlu ediyor. Artık MEB kendi oluşturuyor. Buna gerek kaldı mı?

 

[Muhammet Okumuş]

Sub Ş65()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
sayfa = Sheets.Count
For a = sayfa To 10 Step -1
Sheets(a).Delete
Next
x = Sheets("Liste").Range("K3").Value + 1
For i = 2 To x
Sheets("Kura").Range(Sheets("Kura").Cells(i + 12, 5), Sheets("Kura").Cells(i + 12, 69)).Copy
Sheets("Ş65").Range("E10").PasteSpecial (xlPasteValues), Transpose:=True
Range("A1").Select
Sheets("Ş65").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = Sheets("Öğretmen Ata").Cells(i + 1, 2).Value & " Şubesi"
Range("A1:G80") = Range("A1:G80").Value
Range("C10:G74").Sort Range("C10"), xlAscending
Cells(4, 2) = "1. Sınıf / " & Sheets("Öğretmen Ata").Cells(i + 1, 2) & " Şubesi Sınıf Listesi"
Range("B6") = "Sınıf Öğretmeni : " & Sheets("Öğretmen Ata").Cells(i + 1, 3).Value
Range("B7") = "Okul Mdr Yrd     : " & Sheets("Öğretmen Ata").Range("C24").Value
Next
Sheets("Ş65").Range("E10:E74") = ""
Range("A1").Select
Application.CutCopyMode = False
End Sub

Cells(4, 2) = "1. Sınıf / " & Sheets("Öğretmen Ata").Cells(i + 1, 2) & " Şubesi Sınıf Listesi" burdaki 1. Sınıf kısmını değiştirin. Diğer Ş45, Ş50 deki yerleri de değiştirin.

 

[Muhammet Okumuş]

11 yıl olmuş.

 

[erdenek]

Muhammet hocam sizin hazırladığınız dosya. Emeklerinize sağlık. 1.sınıfları artık meb yapıyor ben bunu anasınıfı için kullanmak istiyorum. Anasınıfında da 1.sınıfta ki gibi istek ve talepler geliyor.

 

[erdenek]

Muhammet hocam bu kod hangi sayfada?

 

[Muhammet Okumuş]

Module 3