seri olarak sayfalara formül

[ertuer]

Sn Arkadaşlar
ekteki örnektedi problemimi çözmek için yardımcı olursanız çok memnun kalacağım. selamlar ertuer

 

[Haluk]

Bir alternatif ektedir ...

 

[ertuer]

Sn Haluk her sayfanın değerinide görmek..

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

 

[Haluk]

Dosyanız ektedir ...

 

[Kemal Demir]

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

Not:En son'a toplam sheet'i açmayı unutmayınız.

 

[Kemal Demir]

dosya ek'tedir.

 

[ertuer]

Sn Haluk ve Kemal Demir bey ! içten teşekkürler !

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