Sayfa oluşturma ve sayfa kopyalama...

[ozgurmath]

Merhaba Arkadaşlar;

Diyelim ki çalışma kitabımda ; giriş , a,b,c,d,e,f,g,h,,,,, şeklinde sayfalarım var.
Giriş sayfam aşağıdaki şekilde düzenlenmiş olsun.

A ------------------ B
yaprak ------------------ a
toprak ------------------ b
kök ------------------ c
gövde ------------------ d
çiçek ------------------ e
meltem ------------------ f

Bir tuşa tıkladığımda şunlar olsun istiyorum:

A sütununda yazan isimler adında yeni çalışma sayfaları eklensin ve bu sayfalara karşısında yazan( a,b,c,...) a ,b, c,d,e,f,... sayfaları sırayla kopyalansın . yaprak--> a, toprak---> b, ... gibi
Bunu nasıl yapabilirim..

Teşekkürler... İyi çalışmalar

 

[danersin]

"ana" isimli sayfanın 4. satırından itibaren listeniz başlasın.


Sub Makro1()
sonsat = Sheets("ana").Cells(65536, 1).End(xlUp).Row
For i = 4 To sonsat
On Error Resume Next
Worksheets.Add
ActiveSheet.Name = Sheets("ana").Cells(i, 1)
Cells(1, 1) = Sheets("ana").Cells(i, 2)
Next i
End Sub

a sütununda tekrarlayan isim varmı diye, ve isimler sayfa ismi olmaya müsaitmi diye kontrol ettirmedim.

 

[ozgurmath]

Merhabalar;

Sanırım soruyu yanlış anlattım.Ã?rnekte daha açıklayıcıdır .Umarım.Teşekkürler...

 

[danersin]

Birde bunu deneyin

Sub Makro1()
i = 6
Do While Cells(i, 2) <> ""
Worksheets(Cells(i, 2).Text).Copy before:=Sheets(Cells(i, 2).Text)
ActiveSheet.Name = Sheets("ana").Cells(i, 3)
Sheets("ana").Select
i = i + 1
Loop

End Sub