Sn. Haluk bey ilginize teşekkür ederim,ancak rapor sayfasında her sayfanın değerini de sıralayıp görmem gerekmektedir.(Tasarladığım bir çalışma gereği)
bu konuda yardımcı olabilirseniz asıl sorun kökünden çözülmüş olacak. teşekkürler emeğinize saygı ile selamlar ertuer
Ek'te Küçük Bir Çözümlü Örnek Yolluyorum.Umarım İstediğiniz gibi olmustur.
dosyayı ekte yollayamadım kodu yolluyorum.
Sub sonuc()
Sheets("toplam").Select
Range("a1:b10000").ClearContents
For x = 1 To Sheets.Count - 1
son = WorksheetFunction.CountA(Sheets("toplam").Range("b1:b65536")) + 1
yaz = WorksheetFunction.CountA(Sheets("toplam").Range("A1:A65536")) + 1
Cells(yaz, 1).Value = Sheets(x).Name
Sheets(x).Range("f31").Copy
Cells(son, 2).PasteSpecial Paste:=xlPasteValues
Next
toplamal = WorksheetFunction.Sum(Sheets("toplam").Range("b1:b65536"))
[c1] = toplamal
End Sub
Sn .üstadlar, bu forumun ve siz ve sizin gibi kişilerin değerini her geçen gün daha iyi anliyorum. Hiç bir insan bu tür problemlerine bu kadar çabuk ulaşamaz..excel yardım kitapları..vs..internet ara tara.. insan bıkıyor ve çözüm bulamıyor. Ama bu site ve sizler...gerçekten iyi bir dayanışma .yardımlaşma paylaşım..çok sağolun emeğinize saygı ile ..iyi akşamlar. ertuer
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.