bir sütundaki sayıları yeni sütuna sıralayarak kopyalama

[dengeleme]

Forumda arama yaparken daha karmaşık sıralamalara örnekler buldum fakat benim basit sıralama problemime bir cevap bulamadım. Sorum şu;
Bir sütundaki karışık olarak bulunan sayıları (aralarda boşluklar da var) yeni bir sütuna artan olarak sıralı bir şekilde nasıl kopyalayabilirim? Mümkünse bunu dinamik bir şekilde yapmak istiyorum. Yani sayıların karışık olduğu sütuna tekrar sayılar eklediğimde otomatik olarak bu işlem tekrarlansın istiyorum. Ek'teki dosyada açıklama yaparsanız sevinirim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
[B:B].Clear
Son = [A65536].End(3).Row
Range("A1:A" & Son).Copy [B1]
Range("B2:B" & Son).Sort Key1:=[B1]
End Sub

 

[dengeleme]

verdiginiz kodları çalıştıramadım.

 

[Necdet]

Merhaba,

Dosyayı inceleyiniz.

 

[dengeleme]

Teşekkür ederim. Elinize sağlık. Bir de nasıl yapıldığını anlatırsanız çok sevinirim. Ben de yazdım o gönderdiğiniz kodları, niye çalıştıramadım acaba?

 

[Necdet]

Merhaba,

Sayfa1'in sekmesine sağ tıklayıp Kod Görüntülemeye girip kodları yazdım. Hepsi bu.