Verileri sıralama

[shenko]

A 12 01.01
B 20 18.03
C 25 25.06
A 45 18.07
B 16 12.01
D 32 29.02
A 85 14.09

Bu tablodaki A satırlarını ayrı B satırlarını ayrı vede C satırlarını ayrı ayrı tablo yapmak istiyorum. Bunun için a1;c7 aralığındaki A ları bir sayfaya sıralamak B leri başka bir sayfaya sıralamak C leri başka bir sayfaya sıralayarak tablo yapmak istiyorum. Hangi formulü kullanmalıyım???

 

[shenko]

Arkadaşlar bunu yapmanın bir yolu yokmu? Yapmak istediğim sort etmek aslında ama farklı olarak bunların otomatik olarak bir başka yerde ayrı ayrı çıkması. Yardımlarınızı bekliyorum. Teşekkürler!!

 

[Levent Menteşoğlu]

Fonksiyonlarla çözüm için aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=7982

Makrolu çözüm içinde ekteki dosyayı inceleyebilirsiniz.

 

[shenko]

Peki bunu daha kolay yapmanın yolu nedir? Fonksiyonlarla olması gerekmiyor!

 

[muygun]

Slm.
sayfalara süzme

 

[shenko]

Saygı Değer Muygun emeğine ve gönlüne sağlık arkadaşım. Çok teşekkür ederim.

 

[shenko]

Sevgili levetm sanada çok teşekkür ederim. Yalnız senin yaptığın makroyu tam anlayamadım rica etsem yaptığın buttondaki makroyu bana açıklayabilirmisin.Yada bunu nasıl yaptığını. Ozaman emeğin amacına eminim ulaşacaktır. Gösterdiğiniz ilgi, Sabır ve saygı için tüm excell.web.tr moderatorlerine çok çok teşekkür ederim!!!

 

[Levent Menteşoğlu]

Aktar dosyasındaki kodların açıklaması aşağıdaki gibidir.

[vb:1:46839d3d47]For a = 1 To [a65536].End(3).Row 'Verilerin bulunduğu sayfadaki veriler bu döngü ile tek tek değerlendirmeye alınır.
Set s = Sheets("" & Cells(a, "a")) 'A sütunundaki veriler sayfa tanımlaması olarak s değişkenine atanır.
say = WorksheetFunction.CountA(s.[a:a]) + 1 'verinin aktarılacağı sayfadaki verinin yazılacağı son satırı bulur.
s.Cells(say, "a") = Cells(a, "a") 'A sütunundaki veriye ait sayfanın A sütununa sayfa1 deki A sütunundaki veri aktarılır.
s.Cells(say, "b") = Cells(a, "b") 'A sütunundaki veriye ait sayfanın B sütununa sayfa1 deki B sütunundaki veri aktarılır.
s.Cells(say, "c") = Cells(a, "c") 'A sütunundaki veriye ait sayfanın C sütununa sayfa1 deki C sütunundaki veri aktarılır.
Next
MsgBox "VERİLER AKTARILDI"
End Sub
[/vb:1:46839d3d47]

 

[shenko]

Aydınlatman için çok teşekkür ederim leventm. Peki rica etsem şu konulardada beni aydınlatırmısın?
1- bu yazdığın makroda verileri alıcağı sutunu değiştirmek için ne yapmam gerekiyo? ( mesela a sutundaki verilere göre değilde d sutunundaki verilere göre aktarma yapmak istiyorum diyelim.)
2- Bir de her aktarma yaptığında, aktardığı verilerin altına aktarma yapıyor. Buda daha önce aktarılmış verilerin tekrar etmesine neden oluyor.

Bu sorunları çözmemiz mümkünmü???

 

[Levent Menteşoğlu]

1-Aşağıdaki kodda "a" yazan yerlerde "d" yazılırsa D sütunu dikkate alınır.

[vb:1:b1edb2863c]Set s = Sheets("" & Cells(a, "d"))
say = WorksheetFunction.CountA(s.[d:d]) + 1[/vb:1:b1edb2863c]

2- Koda aşağıdaki satırı ilave ederseniz tekrarlı yazmaz.

[vb:1:b1edb2863c]Set s = Sheets("" & Cells(a, "a")) 'bu satırdan sonra aşağıdaki mavi renkli satırı ilave edin.
s.[a1:e65536].clearcontents[/vb:1:b1edb2863c]

 

[shenko]

Ellerine sağlık üstad leventm. Çok teşekkür ederim :bravo:

 

[shenko]

Değerli üstad,

Bu makroyu şu şekilde yazmamız mumkun mu acaba?

verileri alıcağı tablo A3 ile G150 arasında. süzme yapacağı sütün C3 ten başlıyor. Ve C sutununda süzeceği başlıklar TURKEY, ITALY ve EGYPT ama daha sonra yeni veriler giriceğim için başka ülkeleride ekleyebilirim. Bunu daha sonra nereleri değiştirerek yapabilirim. Örneğin Almanya-kazakistan v.s gibi çeşitlendirmek mumkun. Tabi Bunlar Sadece C sutununda ve C3 ten sonra aşağı doğru devam edicek.
Yeni veriler girildiğinde süzme işlemi yapıtığımda, aktarılan verilerin her aktarmada alt alta gelmesini yani tekrar tekrar aynı verileri vermesini istemiyorum.
Buna çözüm olarak son verdiğiniz s.[a1:e65536].clearcontents satırını ekledim ama bu seferde son eklenen verileri aktarma yaptı.

Cevaplarınız için çok teşekkür ederim üstad.

 

[Levent Menteşoğlu]

Mevcut dosyanızın küçük bir örneğini eklerseniz, sanırım çözüm çok daha kolay olacaktır.

 

[shenko]

Veri aktarma!

Örnek Dosya ilişikte.
Saygılarımla..

 

[shenko]

Herhangi bir cevap gelmedi.Umarım Gönderdiğim dosyada bir sorun yoktur.

 

[shenko]

Sayın leventm dosyaya gerek kalmadı. Biraz zaman aldı ama sorularıma yanıt buldum.
Yalnızca bir tek problemim var şu anda.

Problemim şu; aktarılmış verilerin tekrar tekrar aktarılması. Yani her aktarma yaptığımda önceden aktardığım verilerin altına aktarma yapıyor. Bunun için verdiğiniz makro s.[a1:e65536].ClearContents olmadı. Bu makroyu dediğiniz yere ekledim ama doğru çalışmadı. Kontrol edip aydınlatırsanız çok memnun olurum.

Teşekkürler

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[shenko]

Ellerine sağlık ustad çok guzel olmuş ama dikkat ettiyseniz aktarma yaparken sadece ilk sayfada (yani ahmet sayfasında) tekrar yapmıyor. Diğer sayfalarda ve yeni açtığı sayfalarda yine tekrar yapıyor. Yani daha önce aktardığı verileri tekrar aktarıyor. Bunu düzeltebilirmiyiz?

 

[shenko]

Değerli üstad leventm,

Sorunumu hala çözemedim. Lütfen yardımlarını bekliyorum!!!

 

[Levent Menteşoğlu]

Ekteki dosyada gerekli düzeltmeler yapılmıştır.