Kod çalışmıyor

[fehmiaydin]

Amacım A1 ile a100 arasında girilmiş isimleri sayfa ismi olarak verme, örneğin A1:Ahmet ise Ahmet isminde A2:Mehmet ise Mehmet şeklinde .... syfalar oluştursun,

bunun için şöyle bir şeyler yazdım

Sub isim()
ActiveWorkSheet.Select
For i = 1 To 100
Range("A").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheets.Select
ActiveSheets.Name = Range("A").Value
Next
End Sub

olmadı, yardımcı olursanız memnun olurum..... tşk...

 

[lark]

Merhaba

Sub isim()
For i = 1 To 100
On Error Resume Next
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Sayfa1").Range("A" & [i]).Value
Next
End Sub

Kolay gelsin.

 

[fehmiaydin]

Teşekkür Ederim...