Listeye göre otomatik çalışma sayfası ekleme

[champion]

Merhaba arkadaşlar;
Elimde uzunca bir liste var. Bu listenin A sütununda bulunan değerlere göre otomatik olarak aynı isimde çalışma sayfası nasıl oluşturabilirim.

 

[halit3]

Merhaba arkadaşlar;
Elimde uzunca bir liste var. Bu listenin A sütununda bulunan değerlere göre otomatik olarak aynı isimde çalışma sayfası nasıl oluşturabilirim.

keşke örnek dosyanı ekleseydiniz,
ekli dosyaya bir bakarmısınız.

Sub sayfaolustur()
satır = [a65536].End(3).Row
For j = 1 To Sheets("Sayfa1").[a65536].End(3).Row
sayfa = Sheets("Sayfa1").Cells(j, 1).Value
deg = 0
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name = sayfa Then
deg = 1
End If
Next
If deg = 0 Then
Sheets.Add
Sheets(ActiveSheet.Name).Name = sayfa
Sheets(ActiveSheet.Name).Move After:=Sheets(ActiveWorkbook.Sheets.Count)
End If
Next
End Sub

 

[champion]

Çok teşekkür ederim tam istediğim gibi oldu.

 

[halit3]

Çok teşekkür ederim tam istediğim gibi oldu.

iyi çalışmalar