Koşula göre sıralama ve yeni isimleri ekleme

[Failimechul]

Merhaba arkadaşlar
Bir yardıma ihtiyacım var. Ekte gönderdiğim dosyada her şeyi açıkladım.
İstediğim şudur;
Bir listemiz var ve bu listede satış siparişleri mevcut. Bu siparişleri veren firmaların toplam verdiği siparişleri tek bir satırda görmek istiyorum. Firma A toplamda 10 adet sipariş vermiş olsun,ben bunu başka bir tabloda 1 satırda bütün siparişlerin toplam tutarını görmek istiyorum. Bu durum Firma B,Firma C vs şeklinde ilerleyecek. Az önce bahsettiğim tabloda da bu yeni gelen firmalar 1er satır olarak rapor verecek. Bir diğer tabloda da koşula göre (satış,kar tutarı,kar marjı) şeklinde sıralama yapılması gerekiyor.

Yardımlarınız için şimdiden çok teşekkür ederim

Saygılar,sevgiler

 

[hamitcan]

Özet Tabloyu(Pivot) neden dene miyorsunuz ?

 

[kayserciyes]

koşullu sıralama makrosu(soldan sağa)

kolay gelsin hamit hocam
böyle bir şey oluyor mu bilmiyorum ama
ekdeki dosyamda öğrencilerin test cevapları var

1- H4 ile AF24 arasında ki veriler (dosyadaki yeşil alan) Soldan sağa 4.satıra göre sıralanacak

2- ancak sıkıntı burda başlıyor bu sıralama yapılırken F sutununda öğrencilerin kitapçık türleri var

Kitapçık türü B olan( yani F sutununda B yazan) öğrencilerin cevapları bu sıralama dışında tutulacak
sadece A yazanların cevaplar soldan sağa sıralanacak

bugün için cevaplayan olursa çok ikrama geçer
(örnekleri inceledim ama çözüm olmadı)

 

[Failimechul]

Biraz araştırayım Hamit Bey
Teşekkürler

 

[Failimechul]

Araştırdım bir kaç şey uyguladım fakat istediğim sonucu alamadım açıkçası. Acaba formül ile yapılması mümkün değil midir?

 

[kayserciyes]

bu kodu kullanın

Function Benzersiz(Aralik As Range, i As Integer)
Application.Volatile
Dim ciftolmayan As New Collection
For Each ce In Aralik
On Error Resume Next
ciftolmayan.Add ce, CStr(ce)
Next ce

If i > ciftolmayan.Count Then
Benzersiz = ""
Else
Benzersiz = ciftolmayan(i)
End If
End Function

bu formülüde F4 e yapıştırın aşağıaya sürükleyin listeniz otomatik oluşacaktır
=Benzersiz($B$1:$B$26;SATIR())

durum analizinede bakacağım

 

[hamitcan]

Eki inceleyin.
Sıralama işlemlerini Özet Tablo başlıkları yanındaki filtre alanları içinden yapabilirsiniz.

 

[kayserciyes]

hamit hocam bu dosyaya da bir baka bilir misiniz
1- H4 ile AF24 arasında ki veriler (dosyadaki yeşil alan) Soldan sağa 4.satıra göre sıralanacak

2- ancak sıkıntı burda başlıyor bu sıralama yapılırken F sutununda öğrencilerin kitapçık türleri var

Kitapçık türü B olan( yani F sutununda B yazan) öğrencilerin cevapları bu sıralama dışında tutulacak
sadece A yazanların cevaplar soldan sağa sıralanacak

 

[kayserciyes]

ARkadaşlar
tüm makroyu yazmak sıkıntılı ise

yaplacak sıralam işlemi bu ancak F sutununda B yazan satırlar bu sıralamaya dahil edilmesin sadece A yazan satırlar sıralansın istiyorum

yardımcı olan olursa sevinirim

Sub soldan_sırala()

Range("H4:AF24").Select
Selection.Sort Key1:=Range("H4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
End Sub

 

[hamitcan]

Olması gereken halini, küçük bir örnek ile gösterir misiniz ?

 

[kayserciyes]

bu konu aşağıdaki link de cevaplanmıştır
http://www.excel.web.tr/f48/ko-ullu-soldan-saoa-syralama-t109810.html

uğraşan tüm arkadaşların emeğine sağlık

 

[Failimechul]

Sorunumu kendim hallettim

Yapamadığım tek şey yeni eklenen firmayı otomatik ekletmek. Onu da manual yapacağım artık.

Büyük(a1:a5;1)

 

[kayserciyes]

ekdeki dosya işinize yaraya bilir bir göz atın isterseniz

 

[kayserciyes]

BU SORU aşağıdaki sayfada cevaplanmıştır
http://www.excel.web.tr/f48/ko-ullu-soldan-saoa-syralama-t109810.html