Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
Merhaba Arkadaslar,
Sub Sheet_ekle()
For x=2 to 45
Sheets.Add,Aftre:=Sheets(Sheets.Count)
ActiveSheet.name=Range("a"&x).value
Next
End sub
A2 den a45 e kadar yazmıs olduğum isimlere göre Sheet Açmak İstedim ama nafile yapamadım hata ve yanlıs nerede yardımcı olurmusunuz.
Saygılar.
Sub Sheet_ekle()
For x=2 to 45
Sheets.Add,Aftre:=Sheets(Sheets.Count)
ActiveSheet.name=Range("a"&x).value
Next
End sub
A2 den a45 e kadar yazmıs olduğum isimlere göre Sheet Açmak İstedim ama nafile yapamadım hata ve yanlıs nerede yardımcı olurmusunuz.
Saygılar.