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

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


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



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





صاددر وارد

يسألونك دائماً عن ملف الصادر والوارد فكان هذا الملف الذي ارجو ان يستفيد منه اكبر عدد من المستخدمين فقط املأ الجدول بالبي ..



05-10-2018 08:30 مساء
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 327
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 13
قوة السمعة : 2889
الاعجاب : 68
 offline 

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

Option Explicit

Sub TransferData()
Dim My_Sh As Worksheet, My_Rg As Range

Dim My_row%, Rp%, i%, My_Match%
Dim Ar1(1 To 2), Ar2(1 To 2)
Ar1(1) = "Sader": Ar1(2) = "Wared"
Ar2(1) = "صادر": Ar2(2) = "وارد"
Dim Sh_Name$

Rp = Principal.Cells(Rows.Count, 2).End(3).Row
 If Rp <= 3 Then MsgBox "لا يوجد بيانات لنقلها", 1048640: GoTo Exit_Me

Sh_Name = Application.Index(Ar1, Application.Match(Principal.Range("a2"), Ar2, 0))
  Set My_Sh = Sheets(Sh_Name)
  My_row = My_Sh.Cells(Rows.Count, 1).End(3).Row + 1
  
 Set My_Rg = Principal.Range("b4:E" & Rp)
    For i = 1 To My_Rg.Rows.Count
        If Application.CountA(My_Rg.Cells(i, 1).Resize(1, 4)) < 4 Then
          MsgBox "هناك بيانات غير مكتملة في النطاق" & Chr(10) & _
            My_Rg.Cells(i, 1).Resize(1, 4).Address & Chr(10) _
            & "لا يمكن الترحيل", 1048640
          GoTo Exit_Me
        End If
    Next
    '==========================================
     For i = 1 To My_Rg.Rows.Count
        On Error Resume Next
        My_Match = Application.Match(My_Rg.Cells(i, 1), My_Sh.Range("a:a"), 0)
        If My_Match Then MsgBox "There Are Duplicates" & Chr(10) & My_Rg.Cells(i, 1) & _
        " is Already existe in Sheet: " & My_Sh.Name: GoTo Exit_Me:
        On Error GoTo 0
    Next
    
    '=======================================
     
  For i = 1 To My_Rg.Rows.Count
    My_Sh.Range("a" & My_row).Resize(My_Rg.Rows.Count, 4).Value = My_Rg.Value
    My_row = My_Sh.Cells(Rows.Count, 1).End(3).Row
    Principal.Range("b2") = My_Sh.Range("a" & My_row)
    
  Next
     My_Rg.ClearContents
Exit_Me:
Erase Ar1: Erase Ar2: Set My_Rg = Nothing: Set My_Sh = Nothing
       On Error GoTo 0
End Sub




الملف مرفق
 
 
  Sader_Wared.rar   تحميل rar مرات التحميل :(18)
الحجم :(22.151) KB







06-10-2018 08:39 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6333
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 392
قوة السمعة : 17426
الاعجاب : 315
 Online 
look/images/icons/i1.gif صاددر وارد
بارك الله فيك أخي الغالي سليم وجزاك الله خيراً





06-10-2018 09:27 صباحا
مشاهدة مشاركة منفردة [2]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1630
الجنس : ذكر
الدعوات : 13
يتابعهم : 0
يتابعونه : 538
قوة السمعة : 16827
الاعجاب : 112
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif صاددر وارد

جزاكم الله خيرا استاذ سليم
142





توقيع :الصقر

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



06-10-2018 09:52 صباحا
مشاهدة مشاركة منفردة [3]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 959
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 50
قوة السمعة : 4283
الاعجاب : 131
 Online 
look/images/icons/i1.gif صاددر وارد
جزاك الله كل خير استاذ سليم وبارك الله فيك



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


06-10-2018 10:48 صباحا
مشاهدة مشاركة منفردة [4]
هانى على
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 275
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 437
الاعجاب : 3
 offline 
look/images/icons/i1.gif صاددر وارد
بارك الله فيك استاذى الكريم وجعله الله فى ميزان حسناتك





06-10-2018 04:22 مساء
مشاهدة مشاركة منفردة [5]
khaled alborene
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 631
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 9
يتابعونه : 8
قوة السمعة : 746
الاعجاب : 20
 offline 
look/images/icons/i1.gif صاددر وارد
سلمت يمناك





08-10-2018 01:23 مساء
مشاهدة مشاركة منفردة [6]
lerby-7
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8082
المشاركات : 29
الجنس : ذكر
تاريخ الميلاد : 31-12-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 58
الاعجاب : 0
 offline 
look/images/icons/i1.gif صاددر وارد
شكراااا لك





24-10-2018 06:37 مساء
مشاهدة مشاركة منفردة [7]
ademstar86
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 25-09-2018
رقم العضوية : 8150
المشاركات : 4
الجنس : ذكر
تاريخ الميلاد : 1-1-1986
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 14
الاعجاب : 0
 offline 
look/images/icons/i1.gif صاددر وارد
بارك الله فيك أخي الغالي سليم وجزاك الله خيراً





24-02-2019 05:20 مساء
مشاهدة مشاركة منفردة [8]
omar.hosa
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-02-2019
رقم العضوية : 11431
المشاركات : 56
الجنس : ذكر
تاريخ الميلاد : 9-4-1988
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 56
الاعجاب : 1
 offline 
look/images/icons/i1.gif صاددر وارد
جزاك الله كل خير





04-03-2019 01:35 مساء
مشاهدة مشاركة منفردة [9]
manola_mr
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-11-2018
رقم العضوية : 9154
المشاركات : 124
الجنس : أنثى
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 128
الاعجاب : 3
 offline 
look/images/icons/i1.gif صاددر وارد
جزاك الله خيرا





04-03-2019 02:56 مساء
مشاهدة مشاركة منفردة [10]
teguera
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-02-2019
رقم العضوية : 11342
المشاركات : 104
الدولة : Burkina Faso
الجنس : ذكر
تاريخ الميلاد : 14-1-1989
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 98
الاعجاب : 5
 offline 
look/images/icons/i1.gif صاددر وارد
جزاكم الله خيرا





13-03-2019 01:04 مساء
مشاهدة مشاركة منفردة [11]
basher
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-11-2017
رقم العضوية : 1672
المشاركات : 18
الجنس : ذكر
تاريخ الميلاد : 24-9-1979
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 16
الاعجاب : 0
 offline 
look/images/icons/i1.gif صاددر وارد
جزاك الله خيرا





17-03-2019 02:19 مساء
مشاهدة مشاركة منفردة [12]
yousef_kaf
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-11-2017
رقم العضوية : 1908
المشاركات : 95
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 2-9-1989
يتابعهم : 9
يتابعونه : 2
قوة السمعة : 130
الاعجاب : 4
 offline 
look/images/icons/i1.gif صاددر وارد
جزاك الله خيرا
 







الكلمات الدلالية
صاددر ، وارد ،


 







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



الساعة الآن 01:03 مساء

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