yoklama

[dmyksl]

Arkadaşlar örnekteki gibi Sayfa 1 deki şablona 63 farklı sınıftan (Sayfa2,Sayfa3...Sayfa63) listeleri çekip yeni sayfalarda hazırlamak istiyorum. S1 S2 gibi devam edecek... ve sayfalardaki aday sayılarındaki sayı kadar şablonda aday sayısı olacak yardımcı olabilirmisiniz. Teşekkürler

 

[ÖmerBey]

Aşağıdaki kodu deneyiniz.

Sub Kod()
Application.ScreenUpdating = False
On Error Resume Next
For a = 2 To 63
    Set s1 = Sheets("Sayfa" & a)
    Set s2 = Sheets("S" & a - 1)
    x = 5
    If s1 Is Nothing Then Exit Sub
    If s2 Is Nothing Then
        Sheets("Sayfa1").Copy After:=Sheets(Sheets.Count)
        Set s2 = Sheets(Sheets.Count)
        s2.Name = "S" & a - 1
    End If
    s2.Rows.Hidden = False
    s2.Range("B5:E43").ClearContents
    s2.Range("E3") = a - 1 & " Nolu Salon"
    
    For b = 2 To s1.Range("A65500").End(3).Row
        If s2.Cells(b, "B") <> "" Then
            s2.Cells(x, "B") = s1.Cells(b, "A")
            s2.Cells(x, "C") = s1.Cells(b, "B")
            x = x + 1
        End If
    Next
    s2.Rows(x & ":43").Hidden = True
    s1 = Nothing
    s2 = Nothing
Next
Application.ScreenUpdating = True
End Sub

 

[sakman26]

selam,
söylediklerinizden anladığım kadarıyla yapılmıştır.
eki inceleyiniz..
kolay gelsin..