أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil جمع خلايا بها معادلات اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





نسخ الاكواد بدون تكرار

مطلوب معادلة نسخكود الصنف من شيت الى شيت اخر بدون تكرار وبدون فرغات ولكن بشرط ان يتم نسخ الاكواد التى بها رصيد فقط ؟ عن ..



28-05-2019 05:04 مساء
sobhy30003
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-09-2017
رقم العضوية : 734
المشاركات : 45
الجنس : ذكر
تاريخ الميلاد : 1-6-1986
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 54
الاعجاب : 15
 offline 

مطلوب معادلة نسخكود الصنف من شيت الى شيت اخر بدون تكرار وبدون فرغات ولكن بشرط ان يتم نسخ الاكواد التى بها رصيد فقط ؟ عن طريق المعادلات

زى فكرة القائمة المنسدلة بدون فرغات وبدون تكرار 
وجزاكم الله خيرا الجزاء
 
 
  الاكواد بدون تكرار بشرط ان يكون ليها رصيد.xlsx   تحميل xlsx مرات التحميل :(1)
الحجم :(11.838) KB







28-05-2019 06:27 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8096
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23528
الاعجاب : 2360
 offline 
look/images/icons/i1.gif نسخ الاكواد بدون تكرار
فضلاً ارفق بعض النتائج المتوقعة .. وهل تريد الحل بالمعادلات فقط أم يسمح بالكود؟

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




28-05-2019 06:46 مساء
مشاهدة مشاركة منفردة [2]
sobhy30003
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-09-2017
رقم العضوية : 734
المشاركات : 45
الجنس : ذكر
تاريخ الميلاد : 1-6-1986
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 54
الاعجاب : 15
 offline 
look/images/icons/i1.gif نسخ الاكواد بدون تكرار
حاضر استاذ ياسر هرفق ملف اخر بنتائج المتوقعه 
ويفضل الحل بالمعادلات حتى استطيع فيما بعد تغير المدى  بما يتناسب مع الملف الاصلى لانى معنديش خبرة كبيرة فى الاكواد 
وشكرا جزيلا
مرفق ملف النتائج المتوقعه مع صورة توضحية
 
  النتائج المتوقعه.jpg   تحميل jpg النتائج المتوقعه.jpg مرات التحميل :(0)
الحجم :(171.884) KB
 
  الاكواد بدون تكرار بشرط ان يكون ليها رصيد.xlsx   تحميل xlsx مرات التحميل :(1)
الحجم :(12.137) KB






28-05-2019 09:48 مساء
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 429
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3395
الاعجاب : 291
 offline 
look/images/icons/i1.gif نسخ الاكواد بدون تكرار
جرب هذا الكود (تبديل اسماء الشيتات الى   Takweed  و    Raside )
                                 لحسن التعامل مع الكود و نسخه


Option Explicit
Sub transfer_data()
If ActiveSheet.Name <> "Takweed" Then Exit Sub
Dim Tak As Worksheet, Ras As Worksheet
Dim i%, k%
Dim x, Y, LR%

Set Tak = Sheets("Takweed"): Set Ras = Sheets("Raside")
Ras.Range("B2").CurrentRegion.Offset(1).ClearContents
LR = Tak.Cells(Rows.Count, 2).End(3).Row
i = 2: k = 3
With Tak
Do Until i = LR + 1
If Range("B" & i) <> vbNullString Then
x = (Application.CountIf(Range("B2:B" & i), Range("B" & i))) = 1
Y = Not (Range("D" & i) = 0 Or Range("D" & i) = vbNullString)
If x * Y Then
Ras.Cells(k, 2).Resize(, 4).Value = _
.Cells(i, 1).Resize(, 4).Value
k = k + 1
End If
End If
i = i + 1
Loop
End With
End Sub


الملف مرفق



 
 
  Copy_Data.rar   تحميل rar مرات التحميل :(12)
الحجم :(19.395) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، YasserKhalil،




28-05-2019 10:03 مساء
مشاهدة مشاركة منفردة [4]
sobhy30003
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-09-2017
رقم العضوية : 734
المشاركات : 45
الجنس : ذكر
تاريخ الميلاد : 1-6-1986
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 54
الاعجاب : 15
 offline 
look/images/icons/i1.gif نسخ الاكواد بدون تكرار
المشاركة الأصلية كتبت بواسطة: salim
جرب هذا الكود (تبديل اسماء الشيتات الى   Takweed  و    Raside )
                                 لحسن التعامل مع الكود و نسخه


Option Explicit
Sub transfer_data()
If ActiveSheet.Name <> "Takweed" Then Exit Sub
Dim Tak As Worksheet, Ras As Worksheet
Dim i%, k%
Dim x, Y, LR%

Set Tak = Sheets("Takweed"): Set Ras = Sheets("Raside")
Ras.Range("B2").CurrentRegion.Offset(1).ClearContents
LR = Tak.Cells(Rows.Count, 2).End(3).Row
i = 2: k = 3
With Tak
Do Until i = LR + 1
If Range("B" & i) <> vbNullString Then
x = (Application.CountIf(Range("B2:B" & i), Range("B" & i))) = 1
Y = Not (Range("D" & i) = 0 Or Range("D" & i) = vbNullString)
If x * Y Then
Ras.Cells(k, 2).Resize(, 4).Value = _
.Cells(i, 1).Resize(, 4).Value
k = k + 1
End If
End If
i = i + 1
Loop
End With
End Sub




الملف مرفق


استاذنا الفاضل انا اريد الحل عن طريق المعادلات وليس vpa 
شكرا جزيلا لحضرتك







28-05-2019 10:11 مساء
مشاهدة مشاركة منفردة [5]
sobhy30003
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-09-2017
رقم العضوية : 734
المشاركات : 45
الجنس : ذكر
تاريخ الميلاد : 1-6-1986
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 54
الاعجاب : 15
 offline 
look/images/icons/i1.gif نسخ الاكواد بدون تكرار
المشاركة الأصلية كتبت بواسطة: sobhy30003
المشاركة الأصلية كتبت بواسطة: salim
جرب هذا الكود (تبديل اسماء الشيتات الى   Takweed  و    Raside )
                                 لحسن التعامل مع الكود و نسخه


Option Explicit
Sub transfer_data()
If ActiveSheet.Name <> "Takweed" Then Exit Sub
Dim Tak As Worksheet, Ras As Worksheet
Dim i%, k%
Dim x, Y, LR%

Set Tak = Sheets("Takweed"): Set Ras = Sheets("Raside")
Ras.Range("B2").CurrentRegion.Offset(1).ClearContents
LR = Tak.Cells(Rows.Count, 2).End(3).Row
i = 2: k = 3
With Tak
Do Until i = LR + 1
If Range("B" & i) <> vbNullString Then
x = (Application.CountIf(Range("B2:B" & i), Range("B" & i))) = 1
Y = Not (Range("D" & i) = 0 Or Range("D" & i) = vbNullString)
If x * Y Then
Ras.Cells(k, 2).Resize(, 4).Value = _
.Cells(i, 1).Resize(, 4).Value
k = k + 1
End If
End If
i = i + 1
Loop
End With
End Sub




الملف مرفق


استاذنا الفاضل انا اريد الحل عن طريق المعادلات وليس vpa 
شكرا جزيلا لحضرتك


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








28-05-2019 10:56 مساء
مشاهدة مشاركة منفردة [6]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 429
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3395
الاعجاب : 291
 offline 
look/images/icons/i1.gif نسخ الاكواد بدون تكرار
هذه بالمعادلات
 
 
  Copy_Data_new.xlsx   تحميل xlsx مرات التحميل :(4)
الحجم :(17.697) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، sobhy30003، YasserKhalil،




29-05-2019 12:38 صباحا
مشاهدة مشاركة منفردة [7]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1383
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6278
الاعجاب : 939
 Online 
look/images/icons/i1.gif نسخ الاكواد بدون تكرار
احسنت استاذ سليم بارك الله فيك كلها حلول ممتازة جعله الله فى ميزان حسناتك

أثارت هذه المشاركة إعجاب: YasserKhalil، salim،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


29-05-2019 02:16 صباحا
مشاهدة مشاركة منفردة [8]
sobhy30003
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-09-2017
رقم العضوية : 734
المشاركات : 45
الجنس : ذكر
تاريخ الميلاد : 1-6-1986
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 54
الاعجاب : 15
 offline 
look/images/icons/i1.gif نسخ الاكواد بدون تكرار
المشاركة الأصلية كتبت بواسطة: salim
هذه بالمعادلات

المشاركة الأصلية كتبت بواسطة: salim
هذه بالمعادلات


بارك الله فيك استاذ سليم 





29-05-2019 02:26 صباحا
مشاهدة مشاركة منفردة [9]
sobhy30003
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-09-2017
رقم العضوية : 734
المشاركات : 45
الجنس : ذكر
تاريخ الميلاد : 1-6-1986
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 54
الاعجاب : 15
 offline 
look/images/icons/i1.gif نسخ الاكواد بدون تكرار
استاذ سليم اذا كان ممكن نعمل تعديل على الكود بتاع حضرتك فى الرد الاول ؟
اريد ان انقل فقط كود الصنف   و   اسم الصنف   اما الرصيد فا يكون بمعادلة SUMIF والشرط هو كود الصنف 

وشكرا جزيلا





29-05-2019 09:18 صباحا
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8096
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23528
الاعجاب : 2360
 offline 
look/images/icons/i1.gif نسخ الاكواد بدون تكرار
بارك الله فيك أخي الحبيب سليم وجزيت خير الجزاء

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




29-05-2019 11:16 صباحا
مشاهدة مشاركة منفردة [11]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 429
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3395
الاعجاب : 291
 offline 
look/images/icons/i1.gif نسخ الاكواد بدون تكرار
الاخ صبحي
فعلاً على رأي أم كلثوم " حيرت قلبي معاك"
كتبت لك كود و لم يعجبك وأردت ان يكونالعمل المعادلات   و تم عمل ذلك
ثم لاسباب لا أعرفها تريد التعديل على الكود
اعذرني ليس لدي الوقت الكافي لهكذا اعمال

أثارت هذه المشاركة إعجاب: YasserKhalil، ali mohamed ali،




29-05-2019 11:34 صباحا
مشاهدة مشاركة منفردة [12]
sobhy30003
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-09-2017
رقم العضوية : 734
المشاركات : 45
الجنس : ذكر
تاريخ الميلاد : 1-6-1986
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 54
الاعجاب : 15
 offline 
look/images/icons/i1.gif نسخ الاكواد بدون تكرار
المشاركة الأصلية كتبت بواسطة: salim
الاخ صبحي
فعلاً على رأي أم كلثوم " حيرت قلبي معاك"
كتبت لك كود و لم يعجبك وأردت ان يكونالعمل المعادلات   و تم عمل ذلك
ثم لاسباب لا أعرفها تريد التعديل على الكود
اعذرني ليس لدي الوقت الكافي لهكذا اعمال



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








المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اسهل واسرع طريقة لتغيير خلفية اليوزرفورم بدون الدخول الى محرر الاكواد بطريقة ديناميكية emad ghazi
4 1236 YasserKhalil

الكلمات الدلالية
تكرار ، الاكواد ، بدون ،


 







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



الساعة الآن 11:02 مساء

أعلن هنا
أعلن هنا
أعلن هنا