توزيع الارقام بعمود واحد على عمودين ( حسب الصفوف الزوجية و الفردية )

[محمد يوسف محمد1]

السلام عليكم

بعد التحية

بالملف المرفق عايز طريقة لنقل الارقام الموجودة فى الخلايا ذات الارقام الزوجية الى عمود الارقام الزوجية                                     

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

 

 

وشكرا

الخلايا.rar

[محمد ابو البـراء]

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

استاذ // محمد تفضل لعله  المطلوب ويفي الغرض بإذن الله

ترحيل الزوجي والفردي_أبو البراء.rar

[رجب جاويش]

أخى الحبيب / محمد أبو البراء

تسلم ايديك

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

Sub ragab()
Set Rng = Sheets("ورقة2").Range("C2:C353")
Application.ScreenUpdating = False
[D2:E1000].ClearContents
For Each cl In Rng
    If cl Mod 2 = 1 Then
        LR1 = Cells(Rows.Count, "D").End(xlUp).Row + 1
        Cells(LR1, "D") = cl
    Else
        LR2 = Cells(Rows.Count, "E").End(xlUp).Row + 1
        Cells(LR2, "E") = cl
    End If
Next
Application.ScreenUpdating = True
End Sub

الخلايا.rar

[محمد ابو البـراء]

استاذي الحبيب استاذ // رجب جاويش

شكراً لك وعلى تشجيعك

وتسلم ايدك على اكوادك المميزة

[محمد يوسف محمد1]

أخى الحبيب / محمد أبو البراء

تسلم ايديك

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

Sub ragab()
Set Rng = Sheets("ورقة2").Range("C2:C353")
Application.ScreenUpdating = False
[D2:E1000].ClearContents
For Each cl In Rng
    If cl Mod 2 = 1 Then
        LR1 = Cells(Rows.Count, "D").End(xlUp).Row + 1
        Cells(LR1, "D") = cl
    Else
        LR2 = Cells(Rows.Count, "E").End(xlUp).Row + 1
        Cells(LR2, "E") = cl
    End If
Next
Application.ScreenUpdating = True
End Sub

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

المطلوب نقل الارقام من الخلايا C2,C4, C6 ............................  حتى C352 الى عمود الخلايا الزوجية

من الخلايا C3,C5, C7 ............................  حتى C353 الى عمود الخلايا الفردية

تم تعديل فبراير 24, 2014 بواسطه محمد يوسف محمد1

[محمد يوسف محمد1]

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

استاذ // محمد تفضل لعله  المطلوب ويفي الغرض بإذن الله

 

 

 

أخى الحبيب / محمد أبو البراء

تسلم ايديك

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

Sub ragab()
Set Rng = Sheets("ورقة2").Range("C2:C353")
Application.ScreenUpdating = False
[D2:E1000].ClearContents
For Each cl In Rng
    If cl Mod 2 = 1 Then
        LR1 = Cells(Rows.Count, "D").End(xlUp).Row + 1
        Cells(LR1, "D") = cl
    Else
        LR2 = Cells(Rows.Count, "E").End(xlUp).Row + 1
        Cells(LR2, "E") = cl
    End If
Next
Application.ScreenUpdating = True
End Sub

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

المطلوب نقل الارقام من الخلايا C2,C4, C6 ............................  حتى C352 الى عمود الخلايا الزوجية

من الخلايا C3,C5, C7 ............................  حتى C353 الى عمود الخلايا الفردية

[رجب جاويش]

أخى الفاضل الأستاذ / محمد يوسف

هل تقصد هكذا

Sub ragab()
Set Rng = Sheets("ورقة2").Range("C2:C353")
Application.ScreenUpdating = False
[D2:E1000].ClearContents
For Each cl In Rng
    If cl.Row Mod 2 = 1 Then
        LR1 = Cells(Rows.Count, "D").End(xlUp).Row + 1
        Cells(LR1, "D") = cl
    Else
        LR2 = Cells(Rows.Count, "E").End(xlUp).Row + 1
        Cells(LR2, "E") = cl
    End If
Next
Application.ScreenUpdating = True
End Sub

الخلايا.rar

[محمد يوسف محمد1]

تمام اخى الفاضل  الاستاذ/ رجب

زادكم الله من علمه

[رجب جاويش]

أستاذى الفاضل / محمد يوسف

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

[محمد ابو البـراء]

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

اخي الفاضل استاذ // محمد يوسف 

خذ هذا الملف _ وبعد اذن استاذي الحبيب // رجب جاويش _

لعله يفي الغرض _ بإذن الله تعالى _

ترحيل الزوجي والفردي_أبو البراء 2.rar

[رجب جاويش]

أخى الحبيب / محمد أبو البراء

أحسنت وأبدعت

[محمد ابو البـراء]

استاذي الحبيب // رجب جاويش

هتتعبنى ثنائاتك الكثيرة والكبيرة ( ابتسامة )

روحك النبيلة هي الاحسن والابدع استاذي الحبيب

[محمد يوسف محمد1]

الله ينور عليك يا استاذ / محمد ابو البراء

مية مية

بارك الله لك ولاخى الفاضل الاستاذ رجب وفرج الله عنكم الهم والضيق والكرب

تعلمت منكم الكثير

[محمد ابو البـراء]

أستاذى الفاضل / محمد يوسف

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

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

[رجب جاويش]

أستاذى الفاضل / محمد يوسف

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

[محمد ابو البـراء]

استاذي الحبيب // رجب جاويش

جزاك الله خيراً على قوة ملاحظتك

بالاضافة الى اسلوبك الراقي في النصح

وتم تعديل الملف (فقد كانت الخلايا  في الملف القديم ترحل بالعكس )

(بمعنى أنه يرحل الزوجي بدلا من الفردي والعكس  _ والفردي بدلا من الزوجي )

[رجب جاويش]

شكرا جزيلا أخى الحبيب / محمد أبو البراء

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

[عبدالله باقشير]

السلام عليكم

 

الشكر واصل للاخ الحبيب محمد أبو البراء والاخ الحبيب رجب جاويش

 

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

هذا حل بواسطة معادلة ارجاع صفيف

في المرفق معادلتين فقط

الاولى في الخلية D2

عند التعديل حدد نطاق بدأً بخلية الصيغة D2

بعدد صفوف اكبر او يساوي خلايا نطاق البيانات في العمود C

واضغط  F2  لتحرير الخلية

ثم اضغط

 CTRL+SHIFT+ENTER

=IFERROR(INDEX(C:C;SMALL(IF((MOD(ROW(C2:C500);2)=1)*(C2:C500<>"");ROW(C2:C500);"");ROW()-1));"")

والثانية في الخلية E2

عند التعديل حدد نطاق بدأً بخلية الصيغة E2

بعدد صفوف اكبر او يساوي خلايا نطاق البيانات في العمود C

واضغط  F2  لتحرير الخلية

ثم اضغط

 CTRL+SHIFT+ENTER

=IFERROR(INDEX(C:C;SMALL(IF((MOD(ROW(C2:C500);2)=0)*(C2:C500<>"");ROW(C2:C500);"");ROW()-1));"")

المرفق 2010

الخلايا.rar

[محمد ابو البـراء]

استادي الحبيب // عبد الله باقشير 

علامه منتدانا

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

على هدا الحل الرائع

[رجب جاويش]

استادي الحبيب // عبد الله باقشير 

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

على هدا الحل الرائع

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

أساتذتى الأفاضل ماشاء الله تبارك الله

حلول وأفكار رائعة بارك الله فى كل الأساتذة

بصراحة نفسى أشارك هذه الكوكبة بفكرة أرجو أن تكون فى نفس مستوى هذه الأعمال الرائعة

أولا- هذه معادلة توضع لفصل الخلايا الفردية

=INDEX(C:C;(ROWS($1:1)-1)*2+2)

وهذه لفصل الخلايا الزوجية:

=INDEX(C:C;(ROWS($1:1)-1)*2+1)

تقبلوا تحياتى:

خلايا فردية منفصلة.rar

[عادل ابوزيد]

الاساتذه المحترمين ( حسب ترتيب المشاركات )

محمد ابو البراء

رجب جاويش

عبد الله باقشير

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

زادكم الله من فضله وعلمه وستركم فى الدنيا والاخرة

ما شاء الله عليكم

[رجب جاويش]

أخى الحبيب / جمال عبد السميع

ابداع لا ينتهى

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

[رجب جاويش]

أخى الفاضل / عادل ابو زيد

جزاك الله كل خير على هذا الدعاء الطيب

وجعل الله لك بمثله  أضعافا كثيرة

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

أستاذى أنتم المبدعيين الحقيقيون أستاذى بارك الله فى حضرتك

شكرا أستاذى ومعلمى على هذه الكلمات الرائعة