تعديل في كود VBA

[لزهر مدلل]

السلام عليكم

قمت بتنزيل كود VBA من المنتدى للأخ  ali mohamed ali و قمت بتعديله على حسب معطيات الملف الخاص بي بحيث يقوم بترتيب تصاعدي تلقائي في عمود معين عند تغير في أي خلية فيه لكن الخلايا في هذا العمود بها معادلات و قيمتها تتغير على حسب ورقة أخرى و الكود لا يعمل إلا إذا قمت بالتغيير يدويا , لذلك أرجوا تعديله ليعمل مع المعادلات أو يعمل على المتغير في الورقة "BLF"

بارك الله فيكم

الملف في المرفقات

SGC.xlsm

[لزهر مدلل]

20 ساعات مضت, لزهر مدلل said:

السلام عليكم

قمت بتنزيل كود VBA من المنتدى للأخ  ali mohamed ali و قمت بتعديله على حسب معطيات الملف الخاص بي بحيث يقوم بترتيب تصاعدي تلقائي في عمود معين عند تغير في أي خلية فيه لكن الخلايا في هذا العمود بها معادلات و قيمتها تتغير على حسب ورقة أخرى و الكود لا يعمل إلا إذا قمت بالتغيير يدويا , لذلك أرجوا تعديله ليعمل مع المعادلات أو يعمل على المتغير في الورقة "BLF"

بارك الله فيكم

الملف في المرفقات

SGC.xlsm

السلام عليكم

قمت بتغيير بسيط بنقل الكود إلى ورقة BLF و لكن لم يعمل

 

Private Sub Worksheet_Change(ByVal Target AsRange)
Application.ScreenUpdating = False
If Target.Column = 5 And Target.Row > 5 Then
ÝÑÒÊäÇÒáí
End If
 Application.ScreenUpdating = True
End Sub
Sub ÝÑÒÊäÇÒáí()
       Range("A10:F100").Select
    ActiveWorkbook.ActiveSheet("Créances").Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet("Créances").Sort.SortFields.Add Key:=Range("E10:E100"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet("Créances").Sort
        .SetRange Range("A9:F100")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
       Range("A7").Select
End Sub

 

تم تعديل نوفمبر 15, 2018 بواسطه لزهر مدلل