Sub sırala()
ActiveSheet.Unprotect "sy"
Range("a5:X200").Select
Selection.Sort Key1:=Range("C5"), Key2:=Range("D5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
[c65536].End(3).Offset(1).Select
ActiveSheet.Protect "sy", DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:= _
True
End Sub
Değerli dostlar yukarıda sırala makrom mevcut. çalışma kitabımı paylaşıma açtığımda diğer kullanıcılarda veri girebilsinler diye. makroları göremiyorum fakat makroların çalışması gerekmez mi. yukarıdaki makro sayfayı paylaştığımda çalışmıyor ilginizi rica ederim.sy.
ActiveSheet.Unprotect "sy"
Range("a5:X200").Select
Selection.Sort Key1:=Range("C5"), Key2:=Range("D5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
[c65536].End(3).Offset(1).Select
ActiveSheet.Protect "sy", DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:= _
True
End Sub
Değerli dostlar yukarıda sırala makrom mevcut. çalışma kitabımı paylaşıma açtığımda diğer kullanıcılarda veri girebilsinler diye. makroları göremiyorum fakat makroların çalışması gerekmez mi. yukarıdaki makro sayfayı paylaştığımda çalışmıyor ilginizi rica ederim.sy.