- 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...
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...