listeye göre sheetleri kopyalamak

[Erdem Akdemir]

arkadaşlar merhaba

ekteki soruda sıralar sayfasındaki isim listesine göre yeni sayfalar açılacak ve yeni sayfalarda listenin içindeki bilgiler olacak

kısacası listeler sayfasını sıralardaki isimler kadar kopyalamak istiyorum

örnekte daha net

iyi çalışmalar

 

[Orion1]

Dosyanız ektedir.

Sub sayfa_ac()
Dim liste(), i As Integer
liste = Sheets("liste").Range("A1:B6").Value
Sheets("sıralar").Select
For i = 1 To Cells(65536, "A").End(xlUp).Row
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = Sheets("sıralar").Cells(i, "A").Value
    Range("A1").Resize(6, 2) = liste
Next
MsgBox "İşlem tamamlanmıştır." & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation
End Sub

 

[Erdem Akdemir]

evren bey sağolun

 

[Orion1]

evren bey sağolun

Rica ederim.