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...
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Kayda göre sayfa yaratmak
- Konbuyu başlatan IC_Hasan
- Başlangıç tarihi
Ali
Özel Üye
- Katılım
- 21 Temmuz 2005
- Mesajlar
- 8,015
- Excel Vers. ve Dili
- Office 365 Türkçe
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
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
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
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
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