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





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

السلام عليكم الاخوه الكرام فى عمل كود يقوم بنسخ الصف إعتبارا من العمود B الى العمود اذا كان محتوى الخليه فى العمود M q ..



01-12-2017 07:33 مساء
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 183
الجنس : ذكر
يتابعهم : 3
يتابعونه : 2
قوة السمعة : 193
الاعجاب : 87
 offline 
السلام عليكم
الاخوه الكرام
فى عمل كود يقوم بنسخ الصف إعتبارا من العمود B  الى العمود اذا كان محتوى الخليه فى العمود  M "النقل منتهي"
من شيت عام الى  شيت النقل منتهي على ان يكون ترتيب محتوى شيت  النقل منتهي  على اساس محتوى الخليه j  اى تاريخ انتهاء النقل من التاريخ السابق الى التاريخ الاحق
مع عدم تكرار ما تم نقله من قبل


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  النقل.rar   تحميل rar مرات التحميل :(11)
الحجم :(36.85) KB





02-12-2017 05:21 مساء
مشاهدة مشاركة منفردة [1]
aboammar
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 19-11-2017
رقم العضوية : 1733
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 28-4-1963
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 16
الاعجاب : 3
 offline 
look/images/icons/i1.gif كود نسخ صف بشرط الى شيت اخر مع عدم التكرار
تمام - يعطيك ألف عافية




04-12-2017 06:57 مساء
مشاهدة مشاركة منفردة [2]
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 183
الجنس : ذكر
يتابعهم : 3
يتابعونه : 2
قوة السمعة : 193
الاعجاب : 87
 offline 
look/images/icons/i1.gif كود نسخ صف بشرط الى شيت اخر مع عدم التكرار
السلام عليكم
للرفع اكرمك الله




07-12-2017 09:36 صباحا
مشاهدة مشاركة منفردة [3]
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 183
الجنس : ذكر
يتابعهم : 3
يتابعونه : 2
قوة السمعة : 193
الاعجاب : 87
 offline 
look/images/icons/i1.gif كود نسخ صف بشرط الى شيت اخر مع عدم التكرار




07-12-2017 02:10 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif كود نسخ صف بشرط الى شيت اخر مع عدم التكرار
أخي العزيز أبو حنين
أعتذر لعدم المشاركة لضيق الوقت لدي .. حاول توضح الموضوع بشيء من التفصيل لربما يكون الأمر ملتبس على الأخوة الأعضاء بالمنتدى
وإن شاء الله تجد الحل في أقرب وقت




07-12-2017 04:16 مساء
مشاهدة مشاركة منفردة [5]
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 183
الجنس : ذكر
يتابعهم : 3
يتابعونه : 2
قوة السمعة : 193
الاعجاب : 87
 offline 
look/images/icons/i1.gif كود نسخ صف بشرط الى شيت اخر مع عدم التكرار
السلام عليكم 
طبقاً لوصيه الاخ العزيز ياسر خليل ...توضيح الموضوع بشي من التفصيل

المطلوب 
عمل كود يقوم بنسخ الصف إعتبارا من العمود B  الى العمود P اذا كان محتوى الخليه فى العمود  M "النقل منتهي"
يتم النسخ من شيت عام الى  شيت النقل منتهي 
يراعى عدم تكرار ما تم نقله من شيت عام الى  شيت النقل منتهي  عند استخدام الكود مره اخرى
ان يكون ترتيب محتوى شيت  النقل منتهي  على اساس محتوى الخليه j  اى تاريخ انتهاء النقل 
من التاريخ السابق الى التاريخ الاحق

ارجو ان يكون المطلوب وتم ايضاحه بشكل سليم 
ارجو المساعده 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  النقل.rar   تحميل rar مرات التحميل :(1)
الحجم :(36.85) KB


أثارت هذه المشاركة إعجاب: محمود ابو الدهب،



07-12-2017 05:01 مساء
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif كود نسخ صف بشرط الى شيت اخر مع عدم التكرار
ممكن توضيح اخر وهو
هل تريد من الكود ان يستدعى البيانات كما تحب
وبعدها ممكن تغير البيانات الى في شيت عام 
ومن ثم تستدعى البيانات مرة اخرى في النقل منتهى وتوضع تحت القديمة مع عدم التكرار


ام تريد ان تستدعى وعدم التكرار وفي كل مرة يمسح البيانات القديمة ويضع الجديده من شيت عام ويرتبها ولا يكررها
 



توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



07-12-2017 05:27 مساء
مشاهدة مشاركة منفردة [7]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif كود نسخ صف بشرط الى شيت اخر مع عدم التكرار
على العموم جرب العمل التالى لو محتاج اى تعديل فيه بلغنى 
ضع الكود التالى في مديول جديد
Sub abo_dahab()
Dim was      As Worksheet
Dim sh       As Worksheet
Dim ii       As String
Dim lr       As Long
Dim lr2      As Long
Dim x, myArray, mm

Application.ScreenUpdating = False

Set was = Sheets("ÇáäÞá ãäÊåí")
ii = was.Range("n3").Value
Set sh = Sheets("ÚÇã")

lr = was.Cells(Rows.Count, 2).End(xlUp).Row
lr2 = sh.Cells(Rows.Count, 2).End(xlUp).Row

If ii = "äÚã" Then
was.Range("a5:p" & lr).ClearContents  'ãÓÍ äØÇÞ ÇáÈÍË ÇáÞÏíã
lr = was.Cells(Rows.Count, 2).End(xlUp).Row
End If

myArray = sh.Range("A5:p" & lr2 + 1)

    ReDim Y(1 To lr2, 1 To 16)
    For x = 1 To lr2 - 4
    If myArray(x, 13) = "ÇáäÞá ãäÊåí" Then
         rw = rw + 1
         Y(rw, 1) = myArray(x, 1)
'         If was.Range("a10").Value = "" Then Y(rw, 1) = rw Else Y(rw, 1) = lr - 9 + rw
         Y(rw, 2) = myArray(x, 2): Y(rw, 9) = myArray(x, 9)
         Y(rw, 3) = myArray(x, 3): Y(rw, 10) = myArray(x, 10)
         Y(rw, 4) = myArray(x, 4): Y(rw, 11) = myArray(x, 11)
         Y(rw, 5) = myArray(x, 5): Y(rw, 12) = myArray(x, 12)
         Y(rw, 6) = myArray(x, 6): Y(rw, 13) = myArray(x, 13)
         Y(rw, 7) = myArray(x, 7): Y(rw, 14) = myArray(x, 14)
         Y(rw, 8) = myArray(x, 8): Y(rw, 15) = myArray(x, 15)
         Y(rw, 16) = myArray(x, 16)
    End If
     Next x
    If rw > 0 Then was.Cells(lr, 2)(2, 0).Resize(rw, 16).Value = Y()
    
    
    lr = was.Cells(Rows.Count, 2).End(xlUp).Row
    was.Range("a5:p" & lr).Sort Key1:=was.Range("j5:j" & lr), Order1:=xlAscending, Header:=xlNo

Application.ScreenUpdating = True
MsgBox "Done"

End Sub


ملف العمل بعد التعديل
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


تقبل تحياتى وتقدير


 
 
 
  النقل (1).rar   تحميل rar مرات التحميل :(3)
الحجم :(39.779) KB


أثارت هذه المشاركة إعجاب: الصقر، YasserKhalil، ahmed moh،


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



07-12-2017 05:29 مساء
مشاهدة مشاركة منفردة [8]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif كود نسخ صف بشرط الى شيت اخر مع عدم التكرار
سؤال لخبراء المنتدى لما عند نقل الكود من ملف اكسيل الى التعليق تتحول الغة العربية الى كلام غير وضاح كما بالاعلى هل لهذا الامر من حل ام هو اعدادات عندى فقط لانها لا تحدث الا اذا قمت بالنسخ من الجهاز الخاص بي فقط



توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



07-12-2017 07:50 مساء
مشاهدة مشاركة منفردة [9]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 549
الجنس : ذكر
الدعوات : 3
يتابعهم : 0
يتابعونه : 154
قوة السمعة : 3091
الاعجاب : 716
 offline 
look/images/icons/i1.gif كود نسخ صف بشرط الى شيت اخر مع عدم التكرار
المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب »
سؤال لخبراء المنتدى لما عند نقل الكود من ملف اكسيل الى التعليق تتحول الغة العربية الى كلام غير وضاح كما بالاعلى هل لهذا الامر من حل ام هو اعدادات عندى فقط لانها لا تحدث الا اذا قمت بالنسخ من الجهاز الخاص بي فقط

جزاكم الله خيرا أخى الفاضل محمود كود رائع
بخصوص نسخ الكود قبل النسخ من المحرر اجعل لغة الكيبورد عربى ثم انسخ الكود 

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،



07-12-2017 10:24 مساء
مشاهدة مشاركة منفردة [10]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif كود نسخ صف بشرط الى شيت اخر مع عدم التكرار
المشاركة الأصلية كتبت بواسطة: الصقر »

جزاكم الله خيرا أخى الفاضل محمود كود رائع
 


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



توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



08-12-2017 07:24 صباحا
مشاهدة مشاركة منفردة [11]
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 183
الجنس : ذكر
يتابعهم : 3
يتابعونه : 2
قوة السمعة : 193
الاعجاب : 87
 offline 
look/images/icons/i1.gif كود نسخ صف بشرط الى شيت اخر مع عدم التكرار
السلام عليكم
اخى  محمود ابو الدهب
جزاك الله خيرا 
بجد فكره ممتازه مسح البيانات لعدم التكرار
جزاك الله كل الخير والتقدير

 

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،



08-12-2017 10:53 صباحا
مشاهدة مشاركة منفردة [12]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif كود نسخ صف بشرط الى شيت اخر مع عدم التكرار
اشكرك على دعائكم الطيب والحمد لله ان تم المطلوب



توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترحيل من شيت2 الى شيت1 بشرط محمد النيل
3 78 YasserKhalil

الكلمات الدلالية
التكرار ، بشرط ،


 







الساعة الآن 02:59 صباحا