sayfalar arası veri aktarımı

[kombo]

Forumda aradım fakat işime yarayacak bir işlem bulamadım. (Belki kafa durdu artık, Tıkandım)
Aynı kitabın içinde 5 tane çalışma sayfam var ve birde toplam sayfam.
Çalışma sayfalarının "B " sütunundaki (değişken sayıda) veriyi Toplam sayfasında "B " sütununa aktarmak istiyorum. Sf.1deki veri bitince sf.2 deki veriyi , o bitince sf.3 tekini.... Bu şekilde bütün çalışma sayfalarının "B" sütunundaki veriyi altalta toplam sayfasının "B" sütununa aktarmak istiyorum.
Bana yol gösterirseniz sevinirim.

 

[seyit]

merhaba
soruna göre bir örnek hazırladım umarım istediğin olmuştur.yardımcı olmak istedim.saygılar

 

[kombo]

sn. seyit
İlginiz için teşekkür ederim.
Yapmak istediğim fonksiyon ve makroyla veri aktarmak. Örnek dosya gönderiyorum.
İlgilenen herkese teşekkür ederim.

 

[abdi]

Sayın
kombo
Sizin sorununuza benzer bi sorunu anette msoffice grubunda bir arkadaş
sormuş değerli bir abimiz olan Office duayenlerinden (kendisini Şahsen Tanımam office ile ilgili sorulara gerçekten güzel cevaplar verdiği için ilgimi çeken birisi ) Diyeyim Haldun Alay abimiz Örnek dosya yapmış fikir vermesi açısından aynı dosyayı ekliyorum bi bakın isterseniz

Saygılar sevgiler
çalışmalarınızda başarılar dilerim.

 

[kombo]

sn.abdi
Göndermiş olduğunuz dosyayı inceledim. Uygulanabilir nitelikte, fakat dosyayı hazırlayan sn. Haldun bey'in dediği gibi uzun sürede hesaplıyor ve makinem kitleniyor. Sitede bulmuş olduğum 2 tane makro var fakat dosyama uygulamasını yapamadım. Yardımcı olabilecek arkadaşlar olursa sevinirim.

 

[Korhan Ayhan]

Selamlar,

Ekteki örneği incelermisiniz.

 

[Korhan Ayhan]

Selamlar,

Sizin son gönderdiğiniz örneği görmemiştim. Aktarım işleminin sizin son gönderdiğiniz dosyaya uyarlanmış hali ektedir.

 

[kombo]

sn. COST CONTROL
Emeğiniz için teşekkür ederim.
Yalnız sormam gereken bazı şeyler var.

Sub VERİ_AKTAR()
Sheets("TOPLAM").Columns(2).ClearContents
For X = 2 To Worksheets.Count
Sheets(X).Select
Sheets(X).Range("B1:B" & Sheets(X).Range("B65536").End(xlUp).Row).Select
Selection.Copy
Sheets(X).Range("A1").Select
Sheets("TOPLAM").Select
Sheets("TOPLAM").Range("B65536").End(xlUp).Select
If ActiveCell.Address = "$B$1" Then
ActiveCell.Select
Else
ActiveCell.Offset(1, 0).Select
End If
ActiveSheet.Paste
Application.CutCopyMode = False
Next
Sheets("TOPLAM").Range("A1").Select
MsgBox "VERİLERİNİZ BAŞARIYLA AKTARILMIŞTIR...", vbInformation
End Sub

Makro yazmayı ve okumayı bilmediğim için bazı dünlemeleri nasıl yapacağım.
* Bu makro Toplam dışındaki tüm çalışma sayfalarını içeriyor. Çalışma sayfası seçmeyi neresinden ayarlamam gerekli. sheets(x) yazan yere sayfa adını yazsam her sayfa için nasıl yapacağım.
* sütunu sayısı nerden ayarlayabilirim . (Benim b c d e f sütunlarım var.)
* Başlangıç hücrem B6 olduğu için "B1:B" olan yeri "B6:B" yapsam yeterlimi. Yada active cell.adress = $B$1 olan yerimi değiştireceğim.
İnşallah sıkmamışımdır. Tekrar teşekkür ederim.

 

[kombo]

Sn COST CONTROL
Ne diyeyim elinize sağlık Teşekkür ederim.
Sağlıcakla kalın.

Not: Bende sizin Mesajı görmeden yazmışım

 

[Korhan Ayhan]

Selamlar,

Sn. kombo,

Bir üstteki mesajımda sizin dosyanıza uyarlanmış halini eklemiştim.Mantığını iyice kavrayabilmeniz açısından kod penceresini açtıktan sonra (Excel sayfasını görecek şekilde bu pencereyi küçültüp) F8 tuşu ile makroyu adım adım çalıştırarak nasıl işlem yaptığını görebilirsiniz.

 

[kombo]

Mantığını iyice kavrayabilmeniz açısından kod penceresini açtıktan sonra F8 tuşu ile makroyu adım adım çalıştırarak nasıl işlem yaptığını görebilirsiniz.

Sn COST CONTROL
Dediğiniz aynen yaptım fakat mantığını kavrayamadığım bir olay gerçekleşiyor. Sayfa şablonunu bozmadan, veri girilmemiş olan sayfanın başlıklarınıda aktarıyor. Sorunu bir türlü çözümleyemedim.