sürekli güncelenen listeyi makrolu sıralama

[esad45]

Arkadaşlar sürekli sıra numarası güncellenen bir liste var yani 1,2,3 diye girken sonra bşr müşteri daha geliyor 3ile 4 ün arasına girmes i gerekiyor adres olarak bunu da sıra numarasını 4 yazıyoruz o zaman da 4 ler çoğalıyor bunu yukarıdan sıralamada 1,2,3 diye devam etmesni istiyoruz bu makro ile münkünmü ek te örneği var

 

[Muhammet Okumuş]

Merhaba,

Sub NumaraVer()
son = Cells(Rows.Count, "A").End(3).Row
Range("A2:C" & son).Sort Range("C2")
Range("A2:A" & son) = "=ROW(A1)"
Range("A2:A" & son) = Range("A2:A" & son).Value
End Sub

kodu deneyiniz.

 

[esad45]

teşekkürler lakin parsele göre 1,23, diye sıralaması gerekiyor bu kod tümünü sıralıyor onu nasıl yapabiliriz

 

[Muhammet Okumuş]

Her parsel için 1 den başlaması mı gerekiyor?

 

[esad45]

evet 1 den başlaması gerekiyor

 

[Muhammet Okumuş]

Kodu deneyiniz.

Sub NumaraVer()
son = Cells(Rows.Count, "C").End(3).Row
Range("A2:C" & son).Sort Range("C2")
Range("A2") = 1
Range("A3:A" & son) = "=IF(C2=C3,A2+1,1)"
Range("A3:A" & son) = Range("A3:A" & son).Value
End Sub

 

[esad45]

denedim olmuyor numraalar değişince sıralamayı yine skisi gibi yapıyor

 

[Muhammet Okumuş]

Siz nasıl olmasını istiyorsanız örnek dosya üzerinde açıklayınız.

 

[esad45]

sıralama değişiyor

ek te anlatmya çalıştım

 

[Muhammet Okumuş]

Peki makronun ne yapmasını istiyorsunuz?

 

[esad45]

rakamlar dediğim gibi değişiyor ben makronun önce parsele göre sıralamasını sonra da rakama göre yukarıdan aşağıya sıralanmasını istiyorum

 

[Muhammet Okumuş]

Sub Sırala()
son = Cells(Rows.Count, "C").End(3).Row
Range("A2:C" & son).Sort Range("A2")
Range("A2:C" & son).Sort Range("C2")
End Sub
Bu kodu deneyin.

 

[esad45]

bu sefer oldu lakin bu seferde rakamları çift attı

 

[esad45]

rakamları çift atıyor

rakamları çift atıyor

 

[Muhammet Okumuş]

Sn. esad45 hangi rakamları çift atıyor? Biraz detaylı açıklar msınız?

 

[esad45]

herhangi bir rakamı değiştirin mesela 12 yi 13 yapın ve sarıya boyayın onu sonra makroyu çalıştırdığınızda iki adet 13 oluyor oysa biz 12yi 13 yapınca sıralamasını istiyoruz

 

[Muhammet Okumuş]

İki adet 13 olmasının nedeni zaten bir tane 13 mevcut durumda. Siz 12'yi 13 yapıyorsunuz! O zaman 13'ün iki tane olması normal değil mi?
- Siz 12'yi 13 yaptığınızda diğer 13'ün kaç olmasını isiyorsunuz?

 

[esad45]

14 olması yani sıralanmasını istiyoruz

 

[esad45]

muhammed bey bu formülle münkün değilmş makroyla falan

 

[Muhammet Okumuş]

Hocam ben sizin ne demek istediğiniz anlamıyorum. 13, 14 olunca bu kez 14 ler ikişer olacak. Yeterince açıklamıyorsunuz. Her parsel için mi geçerli olacak? Örnek üzerinde diğer ihtimallerle açıklayınız.