Soru sayfalardan toplu veri aldırma

[incsoft]

Arkadaşlar mesela bir excel dosyamda 1000 adet aşağıda sayfa var ve her sayfanın B25 hücresindeki verileri sayfa numarası ismi ve versiyle başka bir sayfada alt alta yazdırmak istiyorum. Bunu formül ya da macro ile tek tek nasıl yapabilirim?

Teşekkürler.

 

[Necdet]

1000 adet sheet mi?
Dosyanızı merak ettim doğrusu.

 

[incsoft]

1000 adet sheet mi?
Dosyanızı merak ettim doğrusu.

1000 adet sadece örnek Necdet bey. Genelde aydaki gün sayısı kadardır. En fazla 31 ama yinede bazen fazla dosyalar için olabiliyor. Birde tek hücre değildir örnek o. Mesela A1,A2,A3,B1,B2,H5 gibi karışık hücreler. Onları kendim macro ya da formülden belirleyecem . Teşekkürler.

 

[incsoft]

Mesela ekteki dosyada her sayfadaki A2,A3,C2,C3,E2,E3 değerlerini yaz sayfasına alt alta formül olarak atamak istiyorum. Neden formül derseniz değişiklik olduğunda yansısın.

 

[Necdet]

3-5 sayfalı bir örnek işin özünü anlamaya yeter. Bu durumda yazılan kodların doğru olduğunu anlamak için sayfalar arasında dolaşmak gerekiyor.

Public Sub Deneme()

Dim i   As Long
Dim shy As Worksheet
Dim sh  As Worksheet

Set shy = Sheets("Yaz")

shy.Range("A:C").ClearContents
i = 0

For Each sh In Worksheets
    If Not sh.Name = shy.Name Then
        i = i + 1
        shy.Cells(i, "A") = "=" & sh.Name & "!A2"
        shy.Cells(i, "B") = "=" & sh.Name & "!C2"
        shy.Cells(i, "C") = "=" & sh.Name & "!E2"
        i = i + 1
        shy.Cells(i, "A") = "=" & sh.Name & "!A3"
        shy.Cells(i, "B") = "=" & sh.Name & "!C3"
        shy.Cells(i, "C") = "=" & sh.Name & "!E3"
    End If
Next sh

End Sub