Çözüldü Sıralama Yapmak için Makro Kullanma

Şu kodu kullanabilirsiniz.

Ömer BARAN' Alıntı:

Şu kodu kullanabilirsiniz.

VBA:Panoya kopyala

Görüntülemek için giriş yapmalısınız.
(3 satır)

ile

Genişletmek için tıklayın ...

Değerli Üstatlarım,
,
Öncelikle iyi hafta sonları, öncelikle sağlık ve afiyetler ile bol rızıklar dilerim.

Ekteki dosya "KayıtEt" sayfasının "Hesapla Sve Sırala" düğmesine tıkladığımda:
A (YIL) sütununda bulunan 2023, 2024 ve 2025 yıllarına ilişkin satırların ; A-Z artan biçimde alt alta gelmediğini görmekteyim.

Ömer Baran üstadım ilginize teşekkürler. Sorunum devam ediyor.


Saygılar,
Selim

MODULE2 'de yar alan (uyarlama notu koyduğunuz) islem4 isimli kodda [A1] ile [B1] 'in yerlerini değiştirin.
Dikkat: Dosyanızda mevcut bu kod AKTİF SAYFAda işlem yapar, çünkü sayfa ismi belirtilmemiş.

Hatta A ve B sütunu değeri aynı olan satırların kendi içinde C sütununa göre sıralanmasında da yarar olabilir.
Bunun için ilgili kısmı şöyle güncelleyin.
Böylece birinci öncelik A sütunu, ikinci öncelik B sütunu, üçüncü öncelik C sütunu olur.

................Sort [A1], 1, [B1], , 1, [C1], 1

Ömer BARAN' Alıntı:

vHatta A ve B sütunu değeri aynı olan satırların kendi içinde C sütununa göre sıralanmasında da yarar olabilir.
Bunun için ilgili kısmı şöyle güncelleyin.
Böylece birinci öncelik A sütunu, ikinci önce lik B sütunu, üçüncü öncelik C sütunu olur.

................Sort [A1], 1, [B1], , 1, [C1], 1

Genişletmek için tıklayın ...

Üstadım öneriniz için bir kez daha teşekkürler.

Ancak KayıtEt1 sayfasındaki 2024-25 yıllarına ilişkin gerçek kayıtlar görüntüsü aşağıdaki gibiyken:


KayıtEt sayfasında "Sırala ve hesapla'ya" tıkladığımda, B-L sütunları arasındaki kayıtlar yukarıda görülenden çok farklı ve hatalı olarak listelenmektedir.


Ne yazık ki, sorunum devam ediyor.

Sanırım göremiyorum:
-- satırlar bütün olarak hareket mi etmiyor?
-- sıralama mı yanlış?
-- şu satır şunun üstünde/altında olması gerekirken değil gibi net ifade eder misiniz?

Dosyanın son halini yolluyorum.

Satırlar bütün olarak hareket etmiyor.

Sayfadaki düğmeyle hangi kodun ilişkilendirileceğini anlayamadım.

İşleminiz sadece sıralamak mı (islem4 isimli prosedür),
yoksa farklı işlemleri de içeren islem1, islem2, islem3 ve islem4'ü içine alan MODULE7'deki KayitlariSirala isimli prosedürü çalıştırmak mı?

Ben sadece islem4 isimli prosedüre baktım ve ona yönelik cevap yazdım, diğer prosedür ve sayfa kodlarıyla ilgilenmedim.

Önce işlem yapılacak ilgili sayfayı aktif hale getirin.
Sonra, VBA ekranından, islem4 isimli prosedürdeki (module2'de) ilgili satırı şöyle değiştirip,
sadece bu prosedürü VBA ekranındaki RUN düğmesiyle çalıştırır mısınız?
Range("A2:N" & son_veri_satiri).Sort [A1], 1, [B1], , 1, [C1], 1

assenucler' Alıntı:

Dosyanın son halini yolluyorum.

Satırlar bütün olarak hareket etmiyor.

Genişletmek için tıklayın ...

ix
Üstadım son mesajınızdaki açıklamanıza göre

Ömer BARAN' Alıntı:

Kontrolleri şu belgede yapar mısınız?
Önce orijinal veriyi sağda uygun bir bir alana kopyalayın, ardından SIRALAMA işlemini yaptırın,
varsa kaymaların hangi satır(lar)da olduğunu orijinal olanlara göre karşılaştırarak kontrol edin.

Son olarak da; sıralamayı etkileyecek A, B ve C sütunu değerlerinde elle değişiklik yapıp SIRALAMA işlemini tekrarlayın.
Yaptığınız değişikliğe göre oluşan yeni sıralamanın doğruluğunu tekrar kontrol edin.

YA DA BEN İSTENİLENİ TAM OLARAK ANLAYAMADIM.

Genişletmek için tıklayın ...

Üstadım ilginiz ve yardımınız için teşekkür ederim.
Gözümdeki sarı nokta nedeniyle odaklanma sorunu yaşıyorum.

Bu nedenle, SİZE SORUNU TAM OLARAK ANLATAMADIĞIMI DÜŞÜNÜYORUM. Lütfen, kusuruma bakmayın. Değerli zamanınızı aldığım için de üzgünüm. Sizden helâllik almak isterim!

Sevgi ve saygılar,
Selim