Veri Girdikçe Belli Bir Sütuna Göre Sıralama

[entegreinsaat]

merhaba
sayfanızın kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:F" & Cells(65536, "B").End(xlUp).Row)) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Column = 6 Then
Range("B2:F" & Cells(65536, "B").End(xlUp).Row).Sort key1:=Range("D2"), key2:=Range("F2")
End If
End Sub

bu kodu yazınız. D sütununa göre sıralama yapar en son F sütununda işlemden sonra aktif olur.
dosyanız ekte

İhsan Bey;
Nerde ne iş yapıyorsunuz bilmiyorum ama Allah vergisi yeteneğiniz var. Gerçekten harika bir şey yapmışsınız.

 

[İhsan Tank]

İhsan Bey;
Nerde ne iş yapıyorsunuz bilmiyorum ama Allah vergisi yeteneğiniz var. Gerçekten harika bir şey yapmışsınız.

bu bir yetenek değil araştırma ve verilen cevaplardan kaynaklanıyor.
kodda sevgili hocam Evren Gizlen'e aittir. onun kodunu uyarlamıştım

 

[Orion1]

İhsan bey bu nazik davranışınız için teşekür ederim.
İyi çalışmalar dilerim.

bu bir yetenek değil araştırma ve verilen cevaplardan kaynaklanıyor.
kodda sevgili hocam Evren Gizlen'e aittir. onun kodunu uyarlamıştım

 

[daffodil]

İhsan Bey ve Evren Bey, vermiş olduğumuz kod çok işime yaradı. Ben sizden bir şey daha isteyebilir miyim? Ekteki dosyamda sıralamanın b ve c sütunlarına göre olmasını istiyorum. Yardımcı olabilir misniz?