Çalışma Sayfalarını Birleştirmek

[gsromeo]

arkadaşlar elimde 900 küsür sayfa olan sınav sonuç listesi var. bu sonuçları ben pdf den Excele dönüştürdüm ve her bir PDF sayfası ayrı bir çalışma sayfasında. ben bu çalışma sayfalarını nasıl tek bir sayfada alt alta getirip birleştirebilirim?

şimdiden cevaplar için teşekkürler

 

[Muhammet Okumuş]

900 excel çalışma sayfasımı var?

 

[Muhammet Okumuş]

Çalışma sayfasında son sütun nerde bitiyor?

 

[gsromeo]

1 tane excel çalışma sayfası 935 tane table var.
son satır f de bitiyor.
son sütun 69 da bitiyor

 

[Muhammet Okumuş]

satandart mı hepsi?

 

[gsromeo]

hepsi standart

 

[Muhammet Okumuş]

Eğer standart ise

Sub kopya()
For i = 2 To Worksheets.Count
Sheets(i).Range("a1:f69").Copy Range("a" & [a65536].End(3).Row)
Next i
End Sub

kodu deneyiniz.

 

[gsromeo]

Eğer standart ise

kodu deneyiniz.

resimekledim. bu kodlardan b bende buldumda modele ekliyorum ondan sonra ne yapacağımı bi türlü bulamadım.

http://i1106.hizliresim.com/2011/6/28/14083.bmp

 

[Muhammet Okumuş]

Dosya üzerinde deneyiniz.

 

[gsromeo]

Dosya üzerinde deneyiniz.

teşekkürer dostum. Sadece 400 çalışma sayfası birleştirdi ama bende 3 e böler hallederim işimi.