sütun başlığına göre aktarma

[arifbirgen]

Değerli Arkadaşlar

data sayfasında bulunan ders başlıklarına göre ve veri bulunan sütunları (rakam:1,2,3,4)
öğrenci sınıfı,no ve adıyla birlikte sayfalara aktarabilirmiyiz.O sütunda boş hücre varsa o öğrenci sayfaya aktarılmayacak. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[Muhammet Okumuş]

Merhaba,
Dosyayı inceleyiniz.

 

[arifbirgen]

Değerli hocam muokumus
Çok çok teşekkür ederim.Ellerine sağlık.

 

[Muhammet Okumuş]

Rica ederim. Kodları bu kodlarla değiştirirseniz daha hızlı çalışır.

Sub Dağıt()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim x, a, i As Byte
Dim son, son1, j As Integer
x = Sheets.Count
For a = x To 4 Step -1
Sheets(a).Delete
Next a
For i = 5 To 56
If Sheets("Data").Cells(5, i) = 0 Then GoTo 10
Sheets("Şablon").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Data").Cells(4, i)
Range("C2") = Sheets("Data").Cells(4, i)
son = Sheets("Data").Range("D1000").End(3).Row
For j = 6 To son



If Sheets("Data").Cells(j, i) <> "" Then
son1 = Range("E100").End(3).Row + 1
Cells(son1, 4) = Sheets("Data").Cells(j, 3)
Cells(son1, 3) = Sheets("Data").Cells(j, 2)
Cells(son1, 5) = Sheets("Data").Cells(j, 4)


End If
Next j
10
Next i
Sheets("Data").Select
End Sub

 

[musculus]

Elinize sağlık resmen şiir gibi kodlar

 

[Muhammet Okumuş]

Rica ederim Hocam
İyi Çalışmalar.

 

[arifbirgen]

Değerli hocam muokumus

data sayfasına atanan sayfaları silme düğmesi de ekleyebilirmiyiz?
İyi çalışmalar.

 

[arifbirgen]

Değerli hocam muokumus
data sayfasına atanan sayfaları silme düğmesi de ekleyebilirmiyiz.
İyi çalışmalar.

 

[Muhammet Okumuş]

x = Sheets.Count
For a = x To 4 Step -1
Sheets(a).Delete
Next a

bu kısım eklenen sayfaları siliyor.