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

[ابو يحى]

الاخوة الكرام

هل يمكن تجاهل قيمة خلية واخذ قيمة الخلية التالية فى حالة وجود قيمة معينة ؟؟؟

كما بالمرفق

ولكم الشكر

New Microsoft Excel Worksheet.rar

[ياسر خليل أبو البراء]

أخي الكريم أبو يحي

جرب الكود التالي

Sub Test()
    Dim Rng As Range
    
    On Error Resume Next
    Set Rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeConstants, 1)
    
    Rng.Copy
    Range("C1").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub

تقبل تحياتي

 

Use SpecialCells To Copy Numeric Values YasserKhalil.rar

[سليم حاصبيا]

جرب هذه المعادلة

=IF(ISNUMBER(A1),A1,OFFSET(A1,1,0))

 

[توكل]

أخي الكريم جرب الملف المرفق هل هو المطلوب أم لا؟

New Microsoft Excel Worksheet.rar

[ابو يحى]

شكرا أستاذنا الكبير ياسر ابو البراء

لكن ان امكن الحل باستخدام الدوال

وتم استخدام دالة استاذنا سليم حاصبيا

لكن تم فيها تكرار الخلايا المذكورة .

لذا المطلوب بعد اذن اساتذتنا الكرام ان يكون الحل كما بالمرفق بالمعادلات

حيث اننى استخدمت المعادلة التالية  وقد ادت لنفس نتيجة استاذنا سليم

=IF(A1="avr.",A2,A1)

New Microsoft Excel Worksheet.rar

 

28 دقائق مضت, توكل said:

أخي الكريم جرب الملف المرفق هل هو المطلوب أم لا؟

New Microsoft Excel Worksheet.rar

شكرا أ - توكل

فقد استخدمت هذه المعادلة من قبل وادت لنفس نتيجة استاذنا سليم

تم تعديل فبراير 22, 2016 بواسطه ابو يحيى1

[رجب جاويش]

السلام عليكم

لاثراء الموضوع

جرب أخى هذه المعادلة

=INDEX($A$1:$A$18;SMALL(IF(ISNUMBER($A$1:$A$18);ROW($A$1:$A$18));ROWS($G$2:G2)))

 

New Microsoft Excel Worksheet.rar

[كريم الفلسطيني]

13 minutes ago, رجب جاويش said:

السلام عليكم

لاثراء الموضوع

جرب أخى هذه المعادلة

=INDEX($A$1:$A$18;SMALL(IF(ISNUMBER($A$1:$A$18);ROW($A$1:$A$18));ROWS($G$2:G2)))

 

New Microsoft Excel Worksheet.rar

 

اريد فقط ان انبه الاخ ان المشرف

ادخل المعادلة

=INDEX($A$1:$A$18,SMALL(IF(ISNUMBER($A$1:$A$18),ROW($A$1:$A$18)),ROWS($G$2:G2)))

باستعمال

ctrl+shift+entr

;)

 

[رجب جاويش]

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

 

[ياسر خليل أبو البراء]

معادلة غاية في الروعة أخي الحبيب رجب جاويش

تسلم الأيادي وتعيش يا كبير

كدا الموضوع أصبح رائع بمرورك الكريم ومعادلتك الرائعة ...

تقبل تحياتي

[ابو يحى]

الان, كريم الفلسطيني said:

الان, كريم الفلسطيني said:

 

اريد فقط ان انبه الاخ ان المشرف

ادخل المعادلة

=INDEX($A$1:$A$18,SMALL(IF(ISNUMBER($A$1:$A$18),ROW($A$1:$A$18)),ROWS($G$2:G2)))

باستعمال

ctrl+shift+entr

;)

 

اريد فقط ان انبه الاخ ان المشرف

ادخل المعادلة

=INDEX($A$1:$A$18,SMALL(IF(ISNUMBER($A$1:$A$18),ROW($A$1:$A$18)),ROWS($G$2:G2)))

باستعمال

ctrl+shift+entr

;)

 

بالفعل اخى كريم فهى معادلة صفيف

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

الان, رجب جاويش said:

السلام عليكم

لاثراء الموضوع

جرب أخى هذه المعادلة

=INDEX($A$1:$A$18;SMALL(IF(ISNUMBER($A$1:$A$18);ROW($A$1:$A$18));ROWS($G$2:G2)))

 

New Microsoft Excel Worksheet.rar

جزاك الله خيرا استاذنا رجب جاويش

بالفعل معادلة رائعة

[ياسر خليل أبو البراء]

الأخ الكريم أبو يحيى

الحمد لله أن تم المطلوب على خير

 

لي طلب فضلاً لا أمراً

هلا أزلت الرقم 1 في نهاية اسم الظهور لديك ..نريد أن يكون اسم العضو معبر عن شخصه الكريم كما هو الحال في أسماء الظهور لمعظم الأعضاء

تقبل تحياتي

[رجب جاويش]

أخى الحبيب ياسر خليل

جزاك الله كل خير على هذه الكلمات الطيبة

 

أخى الفاضل ابو يحيى

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

[ابو يحى]

13 ساعات مضت, ياسر خليل أبو البراء said:

الأخ الكريم أبو يحيى

الحمد لله أن تم المطلوب على خير

 

لي طلب فضلاً لا أمراً

هلا أزلت الرقم 1 في نهاية اسم الظهور لديك ..نريد أن يكون اسم العضو معبر عن شخصه الكريم كما هو الحال في أسماء الظهور لمعظم الأعضاء

تقبل تحياتي

أستاذنا الجليل ياسر أبو البراء

شكرا لك على لفتتك الطيبة

على الرغم من ان أسمى مشابه لاسمكم الكريم ياسر ولى الشرف فى هذا .

إلا انى آثرت أن انتسب اليكم باسم ابنى الصغير وقمت بتعديل الاسم الآن .

                    فشكراُ لك ،،،،

[توكل]

أخي أبو البراء عند نسخ الكود تظهر الأسماء العربية بعلمات إستفهام فكيف أتغلب على هذه المشكلة جزاك الله خيراً

[سليم حاصبيا]

تأكد فبل القيام بعملية النسخ ان الكيبورد موضوغ غلى اللغة العربية