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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene مجدى يونس-- لا تميز خلال هذه الفترة YasserKhalil حساب عدد الخلايا التي لا تحتوي على صفر اكسيل اسئله واجابات


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



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





ترحيل وازاله البيانات التي تحتوي ع صفر من ورقه الي اخري

ارجو من السادة الكرام المساعده ف الشيت الاتي حيث لدي ملف به العديد من الموديلات واوامر شغل بورقه 1 اريد ان يتم ترحيل الم ..



14-03-2019 02:14 مساء
mahmoud ayad
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 140
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
الدعوات : 1
يتابعهم : 4
يتابعونه : 4
قوة السمعة : 340
الاعجاب : 4
 offline 

ارجو من السادة الكرام المساعده ف الشيت الاتي حيث لدي ملف به العديد من الموديلات واوامر شغل بورقه 1 اريد ان يتم ترحيل المشاريع التي لازال بها كميات بالمخزن الي ورقه 2 كما بالشرح ف الشيت
واشكركم
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  مثال.rar   تحميل rar مرات التحميل :(7)
الحجم :(9.477) KB







14-03-2019 07:00 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6327
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17424
الاعجاب : 314
 offline 
look/images/icons/i1.gif ترحيل وازاله البيانات التي تحتوي ع صفر من ورقه الي اخري
جرب الكود التالي (قم بدراسة الكود لتستطيع التعديل عليه بنفسك .. لأن الوقت لن يسعني للدخول مرة أخرى في خلال الأيام القادمة إلا لوقت محدود)
Sub Test()
    Dim j           As Long
    Dim r           As Long
    Dim m           As Long
    Dim ii          As Long
    Dim t           As Long

    With Sheet2.Columns("H:J")
        .Clear: .NumberFormat = "@"
    End With

    For j = 6 To 10
        r = Sheet1.Cells(Rows.Count, "B").End(xlUp).Row
        t = 0

        If Application.WorksheetFunction.Sum(Sheet1.Range(Sheet1.Cells(8, j), Sheet1.Cells(r, j))) > 0 Then
            m = Application.Max(3, Sheet2.Cells(Rows.Count, "H").End(xlUp).Row + 1)
            Sheet2.Range("H" & m).Resize(3).Value = Sheet1.Range("D3").Resize(3).Value
            Sheet2.Range("I" & m).Resize(3).Value = Sheet1.Cells(3, j).Resize(3).Value
            With Sheet2.Range("H" & m + 3).Resize(1, 3)
                .Value = Array("الكود", "الموديول", "الكمية")
                .Interior.Color = vbBlack
                .Font.Bold = True
                .Font.Color = vbWhite
                .Font.Size = 14
                .HorizontalAlignment = xlCenter
            End With

            For ii = 8 To r
                If Sheet1.Cells(ii, j).Value > 0 Then
                    t = t + 1
                    Sheet2.Range("H" & m + t + 3).Value = "'" & Sheet1.Cells(ii, 2).Value
                    Sheet2.Range("I" & m + t + 3).Value = Sheet1.Cells(ii, 3).Value
                    Sheet2.Range("J" & m + t + 3).Value = Sheet1.Cells(ii, j).Value
                End If
            Next ii
        End If
    Next j
End Sub





14-03-2019 07:19 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 957
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 49
قوة السمعة : 4269
الاعجاب : 129
 offline 
look/images/icons/i1.gif ترحيل وازاله البيانات التي تحتوي ع صفر من ورقه الي اخري
أحسنت استاذ كود ممتاز بارك الله فيك



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


15-03-2019 08:46 صباحا
مشاهدة مشاركة منفردة [3]
mahmoud ayad
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 140
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
الدعوات : 1
يتابعهم : 4
يتابعونه : 4
قوة السمعة : 340
الاعجاب : 4
 offline 
look/images/icons/i1.gif ترحيل وازاله البيانات التي تحتوي ع صفر من ورقه الي اخري
احسنت استاذ ياسر خليل بارك الله فيك ساقوم بتجربته والتعديل عليه...





16-03-2019 07:02 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6327
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17424
الاعجاب : 314
 offline 
look/images/icons/i1.gif ترحيل وازاله البيانات التي تحتوي ع صفر من ورقه الي اخري
بارك الله فيك أخي الكريم والحمد لله الذي بنعمته تتم الصالحات





26-03-2019 08:23 صباحا
مشاهدة مشاركة منفردة [5]
mahmoud ayad
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 140
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
الدعوات : 1
يتابعهم : 4
يتابعونه : 4
قوة السمعة : 340
الاعجاب : 4
 offline 
look/images/icons/i1.gif ترحيل وازاله البيانات التي تحتوي ع صفر من ورقه الي اخري
المشاركة الأصلية كتبت بواسطة:YasserKhalil
بارك الله فيك أخي الكريم والحمد لله الذي بنعمته تتم الصالحات


مستر ياسر خليل بارك الله فيك اخي الكريم اريد ان ازيد ع المعادله انه يرحل البيانات السابل ايضا حاولت اعملها وفشلت فشل زريع ازود ايه ع المعادله انت عامل ان لو المجموع اكبر من الصفر يتم الترحيل





26-03-2019 06:57 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6327
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17424
الاعجاب : 314
 offline 
look/images/icons/i1.gif ترحيل وازاله البيانات التي تحتوي ع صفر من ورقه الي اخري
لم أفهم النقطة التي تتحدث فيها .. حاول وضع صورة بما تحاول الإشارة إليه







الكلمات الدلالية
ترحيل ، وازاله ، البيانات ، التي ، تحتوي ، ورقه ، اخري ،


 







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



الساعة الآن 04:35 صباحا

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