sıralama

[serdarsari]

dostlar bu formülde ne sıkıntı var çalışmıyor?


Sub sırala_büyük()
Dim ts
ts = MsgBox("Büyükten Küçüğe Sıralama Yapıyorum", vbYesNo, "Onay")
If ts = vbNo Then Exit Sub
Application.ScreenUpdating = False
Range("J2:K65536").Sort key1:=Range("k2"), order1:=xlDescending, _
key2:=Range("j2"), order2:=xlAscending
Application.ScreenUpdating = True
MsgBox "Büyükten Küçüğe Sıraladım", vbInformation, "Bitiş"
End Sub

 

[irfancantr]

Gayet güzel çalışıyor. Ben denedim bir sıkıntı göremedim...

 

[serdarsari]

dosyada çaılıştırmıyor aynı dosyada farklı sayfada bi tane daha var ondan olabilir mi

 

[irfancantr]

Aynı kitapta farklı bir sayfa da bir tane daha var nasıl oluyor anlamadım. Bu kod zaten o an aktif olunan sayfada işlemi gerçekleştiriyor. Bence siz hata veren excel dosyasını ekleyiniz.

 

[serdarsari]

aynı işi yaptırmak için formül var mı?

 

[irfancantr]

aynı işi yaptırmak için formül var mı?

Zaten bu kodu istediğiniz her sayfada kullanabilirsiniz. Formül ile yapılması mümkün ama bu kadar formül hem dosyanızı kabartmaya yol açar hemde çok yavaşlatacaktır. Sizin tek yapmanız gereken bu işlemi yapmak istediğiniz sayfalara birer buton yerleştirerek, bu butonlara hali hazırda ki kodunuzu aktarmanızdır. Tabi karar sizin.

 

[İhsan Tank]

Merhaba
Dosyanızı ekleyin gerekirse formülle çözüm bulalım

 

[serdarsari]

dosya ekte

dosya ekte bakarsanız,birde olay sayısı sıfır ise % hesabı karışıyor ...

 

[İhsan Tank]

dosya ekte bakarsanız,birde olay sayısı sıfır ise % hesabı karışıyor ...

Merhaba
Siz J ve K sütunlarına formülle bunu almışsınız formüller hücreye başvurduğu için sıralama yapmıyor.
Diğer sorunuzun bu konu ile alakası bulunmuyor.

 

[serdarsari]

B ve d deki değerleri başka sayfalardan çekiyor ben j ve k ya olay sayısına göre sıralatmak istiyorum onu da başka sayfada grafikleyeceğim başka sayfada başardım ama burada olmuyor...

 

[serdarsari]

Değerleri başka sayfadan çekince oldu şimdi,ama aynı sayfadan olmuyor...