Kayda göre sayfa yaratmak

[IC_Hasan]

Yaa benim her girilen kayda göre aynı isimde farklı sayfa oluşturmam gerekiyo.Yani a1 den a20 ye kadar kayıtlar girildiyse 20 tane kayıtlarla aynı isimde sayfa oluşturmam gerekiyo.Yardımcı olursanız çok sevinirim.Þimdiden teşekkürler...

 

[Ali]

Aşağıdaki kodu modüle ekleyin

Sub sayfaekle()
Dim sayfa As Worksheet
Dim aralik As Range
Dim t As Range
Set sayfa = Worksheets("Sayfa1")
Set aralik = sayfa.Range("A1:A" & sayfa.Range("A65536").End(xlUp).Row)
For Each t In aralik
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = t.Text
Next t
sayfa.Activate
End Sub

 

[Kemal Demir]

Alternatif olarak belki işinize yarar.

Sub kayıtekle()
For c = 2 To 29
Sheets("Sayfa1").Select
Sheets.Add , after:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Sayfa1").Cells(c, 1).Value
Next
End Sub

 

[IC_Hasan]

çok teşekkürler