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

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

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




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





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

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



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

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







14-03-2019 07:00 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5971
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 376
قوة السمعة : 16557
الاعجاب : 6268
 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

أثارت هذه المشاركة إعجاب: مهند محسن، ali mohamed ali، mahmoud ayad،




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

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


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


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





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







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


 







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



الساعة الآن 10:31 صباحا

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