sayfa isimlerinin listeden bulunması

[ycimen]

Sayfa sayısı sürekli değişen çalışma kitabında, bu sayfa isimlerini liste halinde Sayfa1'e kod yardımı ile listelemeyi başardım. Fakat, her sayfadaki bazı sütun toplamlarının sayfa1'deki sayfa isimlerinin karşılıklarına getirmeyi başaramadım. Yardımlarınızı bekliyorum.

 

[uzmanamele]

merhaba

örnek dosya eklerseniz daha net cevap alabilirsiniz.

aşağıdaki dosyayı inceleyiniz.

Sub deneme()
Range("a1:a100").ClearContents
For i = 1 To Worksheets.Count
Cells(i, 1) = Sheets(i).Name
Cells(i, 2) = WorksheetFunction.Sum(Sheets(i).Range("c1:c9"))
Next
End Sub

 

[ycimen]

Teşekkür ediyorum. Tam istedğim gibi..