Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
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.
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.