Excel'de değere göre sütunu otomatik olarak sıralama nasıl yapılır?

Örneğin, aşağıdaki ekran görüntüsünde gösterildiği gibi bir satın alma tablonuz var. Şimdi bu sütuna yeni numaralar/fiyatlar girdiğinizde Fiyat sütununun otomatik olarak sıralanmasını istiyorsunuz, bunu nasıl çözebilirsiniz? Burada size Excel'de belirli bir sütunu değere göre otomatik olarak sıralamak için bir VBA makrosu tanıtıyorum.

VBA ile değere göre sütunu otomatik sıralama

VBA ile değere göre sütunu otomatik sıralama

Bu VBA makrosu, Excel'deki sütunda yeni veri girdiğinizde veya değer değiştirdiğinizde belirli bir sütundaki tüm verileri otomatik olarak sıralayacaktır.

1. "Sayfa Sekmesi çubuğu"ndaki mevcut sayfa adına sağ tıklayın ve ardından sağ tıklama menüsünden "Kodu Görüntüle"yi tıklayın.

2. Açılan "Microsoft Visual Basic for Application" iletişim kutusunda, aşağıdaki VBA makro kodunu açılan pencereye yapıştırın.

VBA: Excel'de Sütunu Otomatik Sırala

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

Not:
1) Yukarıdaki vba kodunda, "B:B" ifadesi, B sütununu otomatik olarak sıralayacağını belirtir, B1, B sütunundaki ilk hücredir, "B2", B sütunundaki ikinci hücredir ve bunları ihtiyaçlarınıza göre değiştirebilirsiniz.
2) 5. satırdaki "Header:=xlYes" parçası, sıralayacağınız aralığın bir başlığı olduğunu Excel'e bildirir, böylece aralıkta ilk satır sıralama sırasında dahil edilmez. Başlık yoksa, bunu "Header:=xlNo" olarak değiştirin; ve 4. satırdaki "Key1:=Range("B2")" ifadesini "Key1:=Range("B1")" olarak değiştirin.

3. Ardından çalışma sayfasına geri dönün, Fiyat sütununa yeni bir sayı girdiğinizde veya mevcut fiyatların herhangi birini değiştirdiğinizde, Fiyat sütunu otomatik olarak artan düzende sıralanacaktır.

Not: Fiyat sütununa yeni bir sayı girdiğinizde, sayıyı orijinal sayıların altındaki ilk boş hücreye girmelisiniz. Yeni girilen sayı ile orijinal sayılar arasında ve orijinal sayılar arasında boş hücreler varsa, bu sütun otomatik olarak sıralanmaz.

Demo: Excel'de VBA ile değere göre sütunu otomatik sıralama