Sayfa İsimlerini Listeleme


Excel calismalarinizda sayfa isimlerinizde bazen kriteleriniz olabilir ve sayfa isimlerini kullanmak isteyebilirsiniz, bu gibi durumlarda cok fazla aktif sayfaniz varsa bunlarin adini tek tek yazmak cok zor olacaktir..

Fakat VBA ile tum sayfalarinizin adini yazdirabilirsiniz, daha oncedende gordugumuz bir For each dongusu vardi, simdi tekrar onu kullanarak tum sayfalarin isimlerini alalim;

VBA Kodlari

Sub Sayfa_Isimlerini_Listele()
Dim sayfa As Worksheet
Dim i As Integer
i = 1
Sheets(“Sheet1”).Range(“A:A”).Clear
For Each sayfa In Worksheets
Sheets(“Sheet1”).Cells(i, 1) = sayfa.Name
i = i + 1
Next sayfa
End Sub

Kodumuzda gordunuz gibi Sheet1 sayfasinda bu islem gerceklesiyor, A1 deki verileri silip sayfa isimlerini yazmaya basliyoruz, kodu kullanmadan once Sheet1 icerisindeki verilerinizi duzgun ayarlayin yahut yeni bir sayfa yaratip koddaki Sheet1 ismini degistirin..

Linkli Sayfa Indexi

 

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Sayfa İsimlerini Listeleme” için 3 yorum

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


4 + 3 =