ana sayfadaki kayıtların diğer sayfalara ayrı ayrı kayıt edilmesi

[ugurarik]

sewgili üstadlarım...
ana sayfadaki kayıtların diğer sayfalara ayrı ayrı kayıt edilmesi hakkında sizlerden bilgi almak istiyorum. yanii kayıt olan bir öğrenci hangi kursa kayıt oldu ise ayrıca kurs adından bağlantı kurarak direkt olarak kendi sayfasınada kayıt olmasnı istedim ama olmadı yardımlarınızı rica ediyorum . teşekkür ediyorum.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Set s1 = Sheets("KAYIT")
For i = 3 To Sheets.Count
For sayfa = 3 To s1.[m65536].End(3).Row
If Sheets(sayfa).Name = Sheets(i).Name Then
s1.Range("a" & sayfa & ":m" & sayfa).Copy
say = WorksheetFunction.CountA(Sheets(i).[a1:a65536])
Sheets(i).Range("a" & say + 1).PasteSpecial
End If
Next
Next
End Sub