Veriler arasındaki boşlukları yok sayarak sıralama yapabilirmiyim

[Mustafa MUTLU]

Veriler arasındaki boşlukları yok sayarak sıralama yapabilirmiyim.

Mesela
Veri yatay yada dikey bir satır yada sütünda sıralanmıştır

1 den 200 e kadar sıralı rakamlardan oluşan bir sıralama
Anacak sıralama içinde olmayacak veriler var.
diyelimki 2-5-16-22-25-30-41-42-51-56-60-80-101-153-167 bunların olması gereken hücreler boş yada 0 değeri var.

Boş yada 0 değeri olan hücreleri görmeden başka bir sayfaya sıralamasını istiyorum

sıralama yatay yada dikey olabilir fark etmez.

1-2-4-6-7-8-9-10-11-12-13-14-15-17-18.....200

Bunun gibi..

Teşekkürler

 

[Orion1]

Mesela
Veri yatay yada dikey bir satır yada sütünda sıralanmıştır

Burda her türlü excel ve vba sorusu çözülmektedir.
Çözülmeyen bir soru yoktur.
Ancak soru soran kişilerde soruya cevap verecek olan kişilere yardımcı olmalıllar.
Sorularını net ve yeterli açıklıkta sormalılar.Muğlak ifadeler kullanmamılara.
Mesela yatay yada idkey sütunda sıaranmıştır ifadesi muğlak bir ifadedir.
Yatay için başka bir kod yazılır dikey için başka kod yazılır.
Ayrıca hangi sütundadır .Vb.Bunlar kişilerin sorularına cevap alabilmeliri için önemlidir.
Bazen dikkat ettiyseniz bir şağıs soru sormu.kimse cevap vermemiş.50 kişi bakmış ama tık yok.Neden acaba?
Çünkü iyi açıklamamıştır. muğlak ifadeler vardır.Soruso kendi içinde çelişiyordur.
vb.
Bende cevap yazmayacaktım ama duramıyorum işte .Bakıp geçmek aslında en doğrusu.Ama bende bir gün bakıp geçmesini öğrenecem.

 

[Mustafa MUTLU]

Sen Yinede Bakıp Geçme

Evren teşekkür ederim.

Yatay yada dikey fark etmez.
Hangisi olursa olsun bir arkadaş yatay diğer bir arkadaşda dikey olarak yorum yapabilir düşüncesiyle yazmıştım.

Şimdi Daha açık ve net yazayım.

Sayfa1 b2 den b102 ye kadar sıralı sayılarımız var.
Ancak bazı sayılarımızın yerinde sıfır vardır.
Örnek 1.
b2=1
b3=2
b4=0
b5=4
b6=5
b7=6
b8=0
b9=8
b10=9
gibi ancak sıfır gelen rakamlar değişken olabiliyor.
Örnek 2.
b2=1
b3=0
b4=3
b5=0
b6=0
b7=6
b8=7
b9=0

gibi..

Sayfa2 ye yukarıda verdiğim örnekteki rakamları b2 den başlayarak b3,b4...
sıralamasını ancak sıralama yaparken 0 değerini yok sayıp sonraki değeri yazmasını istiyorum
Yukarıdaki Örnek 2. yi baz aldığımızda
b2=1
b3=3
b4=6
b5=7

Bu şekilde sıralamalı..


ilginize teşekkür edrim..

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Sıfır()
Set S1 = Sheets("Sayfa2")
Sheets("Sayfa1").Select
S1.Range("B2:B65536").ClearContents
sat = 1
    For i = 2 To [B65536].End(3).Row
        If Cells(i, "b") <> 0 Then
            sat = sat + 1
            S1.Cells(sat, "b") = Cells(i, "b")
        End If
    Next i
End Sub

Sorularını örnek dosya ile desteklemeye özen gösteriniz.

.

 

[Mustafa MUTLU]

Dosya Ekledim

Dosya ekiliyorum.

 

[Mustafa MUTLU]

Teşekkür ederim

Verdiğin Kod Tam İstediğim Gibi.

Çok Teşekkür ederim..

 

[Mustafa MUTLU]

Bir Hata Oldu

Verdiğin Kod ilk etapta tam istediğim gibi sıraladı.
Ancak :
Sayfa1 deki verileri değiştirip makroyu yeniden çalıştırdım
Yeni verileri sıralamadı.

Sorun nerden kaynaklanıyor..

 

[Korhan Ayhan]

Selamlar,

Sayfa2 de B2 hücresine aşağıdaki formülü uygulayıp denermisiniz.

Formül dizi formülüdür. Hücreye yazdıktan sonra CTRL+SHIFT+ENTER tuşlarına basarak tamamlamalısınız.

=EĞER(SATIRSAY($B$2:$B2)<=TOPLA.ÇARPIM(--(Sayfa1!$B$2:$B$1000<>0));İNDİS(Sayfa1!$B$1:$B$1000;KÜÇÜK(EĞER(Sayfa1!$B$2:$B$1000<>0;SATIR($B$2:$B$1000));SATIRSAY($B$2:$B2)));"")

 

[Mustafa MUTLU]

Tamam
Çok Teşekkür ederim şimdi tam istediğim gibi oldu.

İyiki varsınız...

 

[orduali]

arkadaşlar merhaba;
yaklaşık 10 yıl sonra konuyu canlandıralım istedim.
Mustafa Bey'in sorunu benim içinde geçerli ama
hücrelerde formül olduğu için başarılı olamadım.
ilk resimde verilerin nerelerden geldiğini göstermeye çalıştım. güncel durum bu
ikinci resimde de benim istediğim şekil yani satır aralarında boşluk olmadan yazmak
ekranın sol tarafı benim çalışma alanım sağ taraftaki çerçeveli kısım yazdırdığım alan
yani bi nevi özet tablo gibi.

yardımlarınız için şimdiden teşekkür ederim.

not: bu şekilde 9-10 sayfam var aynı çalışma kitabının içerisinde.