مطلوب عمل macros لجدول معين بشرط

[elbobsameh]

السلام عليكم مطلوب مساعدة فى عمل ماكرو لجدول معين لترتيب الجدول من اكبر قيمه الى اقل قيمه تمت المحاوله ولكن المشكله التى واجهتنى هيا عدم سبات البيانات الاصليه قد تكون بالزيادة فى عدد الصفوف او النقصان وهذا يؤثر على المكرو مرفق ملفB

فى فترة زمنيه محددة وعند العصور عليها يتم جمع عدد الارقام الموجودة فى الخليه

C

وعدد الارقام فىواظهار المعلومات التى امامها فى الخلE&F&G&H

مطلوب معادله للبحث عن المعدة فى العامود

B

فى فترة زمنيه محددة وعند العصور عليها يتم جمع عدد الارقام الموجودة فى الخليه

C

وعدد الارقام فى الخليه

D

واظهار المعلومات التى امامها فى الخليه

E&F&G&H

sameh.xlsx

[elbobsameh]

16 دقائق مضت, elbobsameh said:

السلام عليكم مطلوب مساعدة فى عمل ماكرو لجدول معين لترتيب الجدول من اكبر قيمه الى اقل قيمه تمت المحاوله ولكن المشكله التى واجهتنى هيا عدم سبات البيانات الاصليه قد تكون بالزيادة فى عدد الصفوف او النقصان وهذا يؤثر على المكرو مرفق ملفB

فى فترة زمنيه محددة وعند العصور عليها يتم جمع عدد الارقام الموجودة فى الخليه

C

وعدد الارقام فىواظهار المعلومات التى امامها فى الخلE&F&G&H

مطلوب معادله للبحث عن المعدة فى العامود

B

فى فترة زمنيه محددة وعند العصور عليها يتم جمع عدد الارقام الموجودة فى الخليه

C

وعدد الارقام فى الخليه

D

واظهار المعلومات التى امامها فى الخليه

E&F&G&H

sameh.xlsx

ملحوظه الجدول رقم 1 يحتوى على معادله indx+if فى الملف الاصلى ولم يتم الرفع لكبر حجم الملف 

[mooon984]

وعليكم السلام

تفضل هذا الملف

 

sameh (1).xlsm

[elbobsameh]

في ٤‏/٢‏/٢٠١٩ at 10:20, mooon984 said:

وعليكم السلام

تفضل هذا الملف

 

sameh (1).xlsm

في ٣‏/٢‏/٢٠١٩ at 05:57, احمد بدره said:

بعد إذن الأستاذ سليم

الملف يجب حفظه بصيغة    Excel Marco Enabled Workbook   حتى يظل الماكرو في الملف

وقم بتجربة هذا الماكرو ربما يفي بالغرض

Sub a()
    Range("I6:L27").Select
    Selection.ClearContents
    Range("B6:E26").Select
    Selection.Copy
    Range("I6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("K6:K26") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("I6:I26") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet2").Sort
        .SetRange Range("I6:L26")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
    Range("H5").Select
End Sub

 

 

في ٤‏/٢‏/٢٠١٩ at 10:20, mooon984 said:

وعليكم السلام

تفضل هذا الملف

 

sameh (1).xlsm

في ٢‏/٢‏/٢٠١٩ at 10:42, elbobsameh said:

السلام عليكم مطلوب مساعدة فى عمل ماكرو لجدول معين لترتيب الجدول من اكبر قيمه الى اقل قيمه تمت المحاوله ولكن المشكله التى واجهتنى هيا عدم سبات البيانات الاصليه قد تكون بالزيادة فى عدد الصفوف او النقصان وهذا يؤثر على المكرو مرفق ملفB

فى فترة زمنيه محددة وعند العصور عليها يتم جمع عدد الارقام الموجودة فى الخليه

C

وعدد الارقام فىواظهار المعلومات التى امامها فى الخلE&F&G&H

مطلوب معادله للبحث عن المعدة فى العامود

B

فى فترة زمنيه محددة وعند العصور عليها يتم جمع عدد الارقام الموجودة فى الخليه

C

وعدد الارقام فى الخليه

D

واظهار المعلومات التى امامها فى الخليه

E&F&G&H

sameh.xlsx

ملحوظه الجدول رقم 1 يحتوى على معادله indx+if فى الملف الاصلى ولم يتم الرفع لكبر حجم الملف 

جزاكم الله كل الخير