صيغة لنقل ارقام من عمود بدون فرغات

[ماجدجلال]

السلام عليكم ورحمة الله وبركاتة

في الملف المرفق اخواني لدي عمود فيه ارقام ولكن يوجد بين تلك الارقام  خلايا فارغه وارغب في صيغة لنقل هذة الارقام الي عمود اخري ولكن بدون وجود هذة الفرغات 

ولكم جزيل الشكر و الامتنان 

 

105.rar

[وليد فتحي]

عليكم السلام ورحمة الله وبركاته

الاستاذ الفاضل ماجد جلال

على حسب فهمي لطلبك وبدايتي بالاكواد

اتفضل الملف المرفق وأتمني من الله ان يكون طلبك

تحياتي لك

105_w.rar

[أم عبد الله]

الأستاذ /ماجد جلال

 

السلام عليكم ورحمة الله وبركاته

 

بعد إذن الأستاذ الفاضل / وليد فتحي جزاه الله خيراً على الكود الرائع جعله الله في ميزان حسناته ولإثراء الموضوع إليك الحل بالمعادلات. لكم كل التحية والتقدير.

105.rar

[ماجدجلال]

السلام عليكم 

شكرا جزيلا لكم ,,, حلول رائع و ممتازة جدا 

جعلها الله في ميزان حسناتكم مع تمنيات لكم بالتوفيق و النجاح .

[وليد فتحي]

الأستاذ /ماجد جلال

 

السلام عليكم ورحمة الله وبركاته

 

بعد إذن الأستاذ الفاضل / وليد فتحي جزاه الله خيراً على الكود الرائع جعله الله في ميزان حسناته ولإثراء الموضوع إليك الحل بالمعادلات. لكم كل التحية والتقدير.

 

عليكم السلام ورحمة الله وبركاته

استاذتنا الفاضلة أم عبدالله

ماشاء الله طريقتك بالمعادلات مبهرة مثل استاذنا الفاضل جمال عبد السميع

جزاكي الله كل خير وزادك الله من فضله

تحياتي لك

[جمال عبد السميع]

أخى الحبيب ( وليد فتحى )

أستاذتى الفاضلة ( أم عبد الله )

ماشاء الله ، تبارك الله حلول ولاأروع

بجد شئ يدعو للفخر والأعجاب ، لأساتذة يفتخر بهم أى عضو ينتمى لأسرة أوفيسنا

ولمزيدا من الأفكار فكرة بسيطة لعلها تضفى على هذه الأفكار الرائعة شيئا بسيطا

أخى " ماجد جلال "

هذا حل أخر بمعادلة الصفيف " أى بعد كتابة المعادلة قف بمؤشر الموس أخر المعادلة وأضغط ( ctrl+shift+enter ) لتقم المعادلة بجلب القيم يشكل صحيح

فى ( D7 ) ضع هذه المعادلة وأسحبها لأسفل

=IFERROR(SMALL(IF(ISNUMBER($B$7:$B$25); $B$7:$B$25; "");ROWS($D$1:D1));"")

تقبلوا فائق أحتراماتى

106.rar

[وليد فتحي]

أخى الحبيب ( وليد فتحى )

أستاذتى الفاضلة ( أم عبد الله )

ماشاء الله ، تبارك الله حلول ولاأروع

بجد شئ يدعو للفخر والأعجاب ، لأساتذة يفتخر بهم أى عضو ينتمى لأسرة أوفيسنا

ولمزيدا من الأفكار فكرة بسيطة لعلها تضفى على هذه الأفكار الرائعة شيئا بسيطا

أخى " ماجد جلال "

هذا حل أخر بمعادلة الصفيف " أى بعد كتابة المعادلة قف بمؤشر الموس أخر المعادلة وأضغط ( ctrl+shift+enter ) لتقم المعادلة بجلب القيم يشكل صحيح

فى ( D7 ) ضع هذه المعادلة وأسحبها لأسفل

=IFERROR(SMALL(IF(ISNUMBER($B$7:$B$25); $B$7:$B$25; "");ROWS($D$1:D1));"")

تقبلوا فائق أحتراماتى

 

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

ماشاء الله عليك دائما مميز بطريقتك السلسة بالمعادلات

جزاك الله كل خير وزادك من علمه وأسكنك الفردوس الاعلي

تحياتي لك

[ابوصلاح]

أخى الحبيب ( وليد فتحى )

أستاذتى الفاضلة ( أم عبد الله )

ماشاء الله ، تبارك الله حلول ولاأروع

بجد شئ يدعو للفخر والأعجاب ، لأساتذة يفتخر بهم أى عضو ينتمى لأسرة أوفيسنا

ولمزيدا من الأفكار فكرة بسيطة لعلها تضفى على هذه الأفكار الرائعة شيئا بسيطا

أخى " ماجد جلال "

هذا حل أخر بمعادلة الصفيف " أى بعد كتابة المعادلة قف بمؤشر الموس أخر المعادلة وأضغط ( ctrl+shift+enter ) لتقم المعادلة بجلب القيم يشكل صحيح

فى ( D7 ) ضع هذه المعادلة وأسحبها لأسفل

=IFERROR(SMALL(IF(ISNUMBER($B$7:$B$25); $B$7:$B$25; "");ROWS($D$1:D1));"")

تقبلوا فائق أحتراماتى

لكن دالة IFERROR  غير موجودة في اوفيس 2003 هل هناك بديل لها

[جمال عبد السميع]

أخى " أبو صلاح "

تفضل المعادلة لتطبق على OFFICE 2003

=IF(ISERROR(SMALL(IF(ISNUMBER($B$7:$B$25); $B$7:$B$25; "");ROWS($D$1:D1)));"";SMALL(IF(ISNUMBER($B$7:$B$25); $B$7:$B$25; "");ROWS($D$1:D1)))

بالطبع المعادلة معادلة صفيف أى لابد من الضغط على ( CTRL+SHIFT+ENTER )

تقبل تحياتى

[رجب جاويش]

السلام عليكم

بعد كل الشكر لإخوتى الأفاضل المشاركين

هذا كود آخر لاثراء الموضوع

Sub ragab()
Dim i As Integer
Dim LR As Integer
Dim cl As Range
Dim arr() As Variant
'=========================================
Set WF = Application.WorksheetFunction
LR = Cells(Rows.Count, 2).End(xlUp).Row
'=========================================
For Each cl In Range("B7:B" & LR)
    If Not IsEmpty(cl) Then
        i = i + 1
        ReDim Preserve arr(1 To i)
        arr(i) = cl
    End If
Next
Range("D7:D" & LR).ClearContents
Range("D7").Resize(i) = WF.Transpose(arr)
Erase arr
End Sub

[أبو إيمان]

بسم الله ما شاء الله تنوع متميز حين يلتقي العمالقة في موضوع واحد

[ابوصلاح]

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