[]
Excel listesindeki isimler ile sheet açmak
300 kişinin ismi var ve ben bu kişilerin isimlerinin olduğu sheetler açılsın istiyorum.
Bunu makroda nasıl yapabiliriz?
VBA'da
Şimdiden teşekkürler.
Bunu makroda nasıl yapabiliriz?
VBA'da
Şimdiden teşekkürler.
"liste" adında bir sheet açıp, isim listesini A2 hücresinden itibaren aşağı doğru kopyaladıktan sonra şu makroyu kullanabilirsin.
Sub CreateSheetsFromAList()
Dim MyCell As Range, MyRange As Range
Set MyRange = Sheets("liste").Range("A2")
Set MyRange = Range(MyRange, MyRange.End(xlDown))
For Each MyCell In MyRange
Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet
Sheets(Sheets.Count).Name = MyCell.Value 'renames the new worksheet
Next MyCell
End Sub
Sub CreateSheetsFromAList()
Dim MyCell As Range, MyRange As Range
Set MyRange = Sheets("liste").Range("A2")
Set MyRange = Range(MyRange, MyRange.End(xlDown))
For Each MyCell In MyRange
Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet
Sheets(Sheets.Count).Name = MyCell.Value 'renames the new worksheet
Next MyCell
End Sub
- virgul
(02.01.15 10:56:00)
Çok teşekkürler virgül.
Ellerine sağlık.
Ellerine sağlık.
- amarat (02.01.15 15:43:34)
1
