DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
merhaba değerli üyeler,
ekte gönderdiğim dosya içinde takıldığım bir konu var yardımınızı bekliyorum
saygılarımla.
Private Sub Worksheet_Change(ByVal Target As Range)
Range("d5:e100").Sort Key1:=Range("e4"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
selam,
istenilen bunun gibi midir? ekteki örneği inceleyiniz..
kolay gelsin..