Döngülü Kopyalamada Hata veriyor

[Kemal Demir]

Arkadaslar Selam,

Sub İSMEGORETABLO()
For c = 2 To 29
Sheets.Add , After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("index").Cells(c, 1).Value
Range("A1").Value = "ADI SOYADI"
Range("A2").Value = ActiveSheet.Name
Next
End Sub

Yukarıdaki Kodda anlasıldığı gibi ;

"Ali Sayfasından a2 den a29 a kadar varolan isimlere göre Sheet ekeyip Yeni Acılan Sayfanın a1.Hücresine Adı soyadı ve A2.Hücresine ise Sheet'in İsmi Yazdırılıyor"
ali Sayfasında var olan Range("c1:n29").Copy
c Dongusune Göre Diğer acılan sayfalara yapıstıramadım yardımcı olursanız Sevinirim.

Not:yukarıdaki koyu kırmızılı yazılann kısmı Forumdaki Varsa Þayet Bazı Konularda hata yapan daha detaylı anlatmak ıcın yazdım.

Dosyam Ek'tedir.

 

[Kemal Demir]

İlgileriniz İçin teşekkur Ederim Sorunu Çözdüm.

İlgilenenler için Kodu Paste Ediyorum.


Sub İSMEGORETABLO()
For c = 2 To 29
Sheets("index").Select
Range("c1:n29").Copy
Sheets.Add , After:=Sheets(Sheets.Count)
Range("b1").PasteSpecial
ActiveSheet.Name = Sheets("index").Cells(c, 1).Value
Range("A1").Value = "ADI SOYADI"
Range("A2").Value = ActiveSheet.Name
Application.CutCopyMode = False
Cells.Select
Range("B1").Activate
Cells.EntireColumn.AutoFit
Range("b1").Select
Next
End Sub