Kod çalışmıyor

Katılım
31 Aralık 2010
Mesajlar
4
Excel Vers. ve Dili
2003 2007 2010
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2004
Mesajlar
322
Excel Vers. ve Dili
Excel 2021 / Türkçe
Merhaba

Kod:
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.
 
Katılım
31 Aralık 2010
Mesajlar
4
Excel Vers. ve Dili
2003 2007 2010
Teşekkür Ederim...
 
Üst