logo

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



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





05-10-2018 08:30 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
يسألونك دائماً عن ملف الصادر والوارد
فكان هذا الملف الذي ارجو ان يستفيد منه اكبر عدد من المستخدمين
فقط املأ الجدول بالبيانات اللازمة و حدد صفحة الترحيل واضغط على الزر
من مميزاته:
لا يسمح لك بتكرار رقم الصادر او الوارد
لا يسمح لك بترحيل بيانات غير مكتملة
الكود
CODE

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 مرات التحميل :(52)
الحجم :(22.151) KB





look/images/icons/i1.gif صاددر وارد
  06-10-2018 08:39 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10510
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36676
الاعجاب : 161
بارك الله فيك أخي الغالي سليم وجزاك الله خيراً




look/images/icons/i1.gif صاددر وارد
  06-10-2018 09:27 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس :
الدعوات : 21
قوة السمعة : 20024
الاعجاب : 10
موقعي : زيارة موقعي

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




توقيع :الصقر

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


look/images/icons/i1.gif صاددر وارد
  06-10-2018 09:52 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
جزاك الله كل خير استاذ سليم وبارك الله فيك



توقيع :ali mohamed ali


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

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




look/images/icons/i1.gif صاددر وارد
  06-10-2018 04:22 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 834
الدولة : الاردن
الجنس :
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 988
الاعجاب : 0
سلمت يمناك




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




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




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




look/images/icons/i1.gif صاددر وارد
  04-03-2019 01:35 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 16-11-2018
رقم العضوية : 9154
المشاركات : 152
الدولة : مصر
الجنس :
قوة السمعة : 206
الاعجاب : 0
موقعي : زيارة موقعي
جزاك الله خيرا




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




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




look/images/icons/i1.gif صاددر وارد
  17-03-2019 02:19 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 25-11-2017
رقم العضوية : 1908
المشاركات : 123
الدولة : مصر
الجنس :
تاريخ الميلاد : 2-9-1989
قوة السمعة : 180
الاعجاب : 0
جزاك الله خيرا




اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 2 < 1 2 >





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









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

الساعة الآن 12:56 PM