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.

 

"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

virgul

Çok teşekkürler virgül.

Ellerine sağlık.

amarat
1

mobil görünümden çık