hücre ismine göre yeni sayfa yaratma

[abuitun]

Herkese iyi günler.
Aşağıdaki kodlarla a1 deki isimle yeni sayfa yaratılıyor.
Sayfa 1 deki tablo ve verilerin de aktarmasını a1 deki isimli sayfaya aktarmamız mümkünmü.
Sub Test()
Set NewSh = Worksheets.Add(After:=Sheets(Sheets.Count))
NewSh.Name = Sheets("Sayfa1").Range("A1")
Set NewSh = Nothing
End Sub

 

[ileriexcel]

Sub Test()
Set newsh = Worksheets.Add(After:=Sheets(Sheets.Count))
newsh.Name = Sheets("Sayfa1").Range("A1")
Sheets("Sayfa1").Range("b1").Copy
newsh.Name = Sheets("Sayfa1").Range("A1")
newsh.Select
say = WorksheetFunction.CountA([b1:b65000])
Range("b" & say + 1).PasteSpecial
Application.CutCopyMode = False
End Sub

 

[abuitun]

hücre ismine göre

sayın ileriexcell,
Sizin yazdığınız kod ile yuakarıda verdiğim kod aynı işlevi yapıyor.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sheets("Sayfa1").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Sayfa1").Range("a1")

 

[abuitun]

hücre ismine göre yen, sayfa

Sayın Leventm,
İlginize teşekkürler.

 

[conkz]

Merhaba,

Yeni konu açmak yerine buraya yazayım istedim. Örnek olarak benim A1 den başlayan ve alta doğru uzayan bir listem var ve listedeki her alan için bir sheet açtırmak istiyorum arka arkaya. Yani makro çalışınca A, B, C, D gibi yeni sheetler oluşturacak ayrı ayrı. Ancak listenin belirli uzunluğu yok A50 ye kadar da gidebilir, A100 e kadar da...

Konu hakkında yardımcı olabilirseniz sevinirim. Ekte örnek dosya iletiyorum.