• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
11 Ocak 2006
Mesajlar
324
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.
 

Ekli dosyalar

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
 
Değerli hocam muokumus

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