Çoklu sayfalardaki verileri tek sayfada birleştirme

[burakinti]

40 sayfadan oluşan excel dosyam var. ve bu sayfalarda verilerim var. bu verileri tek sayfada toplamak istiyorum. Tek tek kopyala yapıştırdan daha kolay bir yol var mı?

 

[Ali]

Ekteki örneği inceleyin Sayfa1'deki butona bastığınızda tüm veriler Ana Sayfa adlı yeni bir sayfada toplanacaktır.

 

[burakinti]

Sayın fructose
Çok güzel olmuş. Teşekkür ederim.
Yalnız ben bu sayfalardan istediklerimi nasıl seçeceğim.
Mesela benim sayfa isimleri 1,2,3,4,5,6,........ diye gidiyor.
Bunların içinden çift rakamlı olanları, yani 2,4,6,8,10....
nasıl alabilirim.

 

[Ali]

Anasayfamız kalacak ve tek sayılı sayfalar silinecekse aşağıdaki kodları çalıştırın.

Sub sil()
On Error Resume Next
a = Worksheets.Count
For i = a To 1 Step -2
Worksheets(i + 1).Select
If ActiveSheet.Name = "Anasayfa" Then GoTo atla
ActiveSheet.Delete
atla:
Next
End Sub

 

[Kemal Demir]

Sn.fructose

Yetişemedim hızınıza.

Tebrikler.

 

[burakinti]

Sayın fructose;
Vermiş olduğunuz bilgilerden ötürü çok teşşekkür ederim.

Bir sorum daha olacaktı.

Bütün bilgiler tek bir sayfada ise ve bu bilgileri bir kritere göre başka sayfalara alabilir miyiz?
Mesela Modele göre tasnif edilebilirmi.
Örnek dosya ekte. incelenirse daha iyi anlaşılır.

 

[Ali]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=20803