Çözüldü Renk Rütbe Sicil Sırala

HTML:

Sayın abim, sağlıklı çalışmadı, Yeni sıralama makrosunda olduğu gibi Call Sırala_Renk_Rütbe_Sicil bu satırı aktif edince oluyor ancak ben bunu iki makro şeklinde değilde, tek makro şeklinde yapmak istemiştim.

Deneyiniz.
HTML:

Sayın abim; eline sağlık zaman ayırmışsın çok da güzel olmuş ancak, ben veriler gerçek olmasın diye sicilleri 2 hane ve 3 haneli oluşturmuştum. Oysa siciller 6 haneli, 6 haneli olunca da sizin bana gönderdiğiniz dosyada kırmızı 6 haneleri en alta atıyor, benim orijinal verilerim tam dolu olduğu dosyada ise aşağıdaki kod sarı yandı,

pnt.Cells(i, 1) = renk & rtb & sicil

bakabilirsen sevinirim.

Sayın abim; hata galiba sicilin 3 yada 6 haneli olması değil, siz sıralama yaptırırken A kolonunada otomatik sıra numarası verdirmişsiniz sorun listenin bittiği yerden D Kolonuna veri yazılırsa hata veriyor ve sıra numarasını sicili bir attırarak yapıyor.

Böyle deneyiniz.
HTML:

Sayın abim çok özür dilerim, yine aynı yerde hata verdi.

Sayın abim tekrar merhaba rahatsız ettim kusura bakmayın; bu konu ile ilgili olarak bayağı sıktım galiba özür dilerim.
Abiciğim sorun şurda imiş,

'ss = pnt.Cells(Rows.Count, 4).End(xlUp).Row bu komutu aşağıdaki gibi yaptık
ss = pnt.Range("B7").End(xlDown).Row

sorun çözüldü bununlada kalmayıp, daha da önemlisi benim orjinal dosyamda rütbeler büyük harflerle oysa biz kodları küçük harflerle yazmışız bundan da sorun çıkartıyormuş, bu iki yeri düzeltince kodlar isteğim gibi çalıştı. Çok teşekkür ediyorum sağlıcakla kal Allaha emanet ol. Saygılarımıla....