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

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


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





منع ترحيل بيانات مرحلة سابقاً

السلام عليكم اعضاء المنتدى الكرام تفضلكم بمساعدتي في منع ترحيل البيانات المرحلة سابقا من شيت (العمليات) واختيار نوع الح ..



06-02-2020 12:48 مساء
شبل
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-01-2020
رقم العضوية : 17346
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 4-6-1976
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 47
 offline 

السلام عليكم اعضاء المنتدى الكرام

تفضلكم بمساعدتي في منع ترحيل البيانات المرحلة سابقا من شيت (العمليات) واختيار نوع الحركة والضغط على زر تنفيذ ليقوم بترحيل البيانات الى الشيتات المعنية
او ان لا يتم تكرار ترحيل البيانات اذا كانت نفس البيانات موجودة في الشيتات المعنية
ويتم ترحيل البيانات اذا كانت مختلفة 
 
 
  للتعديل.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(1153.906) KB


06-02-2020 04:37 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif منع ترحيل بيانات مرحلة سابقاً
جرب هذا الكود

Option Explicit

 Sub Get_unique()
    Dim S As Worksheet 'source sheet
    Dim T As Worksheet 'target sheet
    Dim Rs As Long     'lastrow in target sheet
    Dim i As Long, k As Long
    Dim d As Object
    Dim arr, ky
    Dim My_Rg As Range
 
 Application.EnableEvents = False
  Set T = Sheets("العمليات")
  If T.Range("C6") = vbNullString Then GoTo Exit_sub
  Set S = Sheets(T.Range("C6") & "")
  Set My_Rg = T.Range("A11").CurrentRegion
   If My_Rg.Rows.Count <> 1 Then
   My_Rg.Offset(1).Resize(My_Rg.Rows.Count - 1).Clear
   End If
  Rs = S.Cells(Rows.Count, 2).End(3).Row
    If Rs = 1 Then Exit Sub
 
    Set d = CreateObject("scripting.dictionary")
    For k = 2 To Rs
        If Not d.Exists(S.Cells(k, 2).Value) Then
            arr = Application.Transpose(Application.Transpose(S.Cells(k, 3).Resize(, 8)))
            arr = Join(arr, "*")
            d.Add (S.Cells(k, 2).Value), arr
        End If
    Next
   
    T.Cells(12, 2).Resize(d.Count - 1) = Application.Transpose(d.Keys)
    For Each ky In d.Keys
      T.Cells(i + 12, 3).Resize(, 7) = Split(d(ky), "*")
      T.Cells(i + 12, 1) = i + 1
      i = i + 1
    Next
    
    With T.Range("a12").Resize(i, 9)
    .Borders.LineStyle = 1
    .InsertIndent 1
    .Font.Bold = True
    .Font.Size = 12
    End With
  
  For k = 12 To 11 + i
    If T.Range("I" & k) <> vbNullString Then
     T.Range("I" & k) = CDate(T.Range("I" & k))
    End If
  Next
Exit_sub:
  Application.EnableEvents = True
  
End Sub

الملف مرفق
 
 
  Ta3dil.xlsm   تحميل xlsm مرات التحميل :(121)
الحجم :(1168.371) KB


07-02-2020 10:25 صباحا
مشاهدة مشاركة منفردة [2]
شبل
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-01-2020
رقم العضوية : 17346
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 4-6-1976
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 47
 offline 
look/images/icons/i1.gif منع ترحيل بيانات مرحلة سابقاً
السلام عليكم اعضاء المنتدى الكرام

اشكر الاستاذ  salim  على محاولته الطيبة لمساعدتي

ولكن يبدو اني لم اوضح جيدا طبيعة عمل الشيتات في ملفي 
1 شيت (الملاك) هو الشيت الاساس وعليه يتم اجراء الحركات من عامود (نوع الحركة)
2 شيت (العمليات) فيه يتم استدعاء الحركات من (قائمة بحث بنوع الحركة) وترحيلها الى الشيتات المعنية حسب نوع الحركة (نقل , استقالة , وفاة ,..الخ ) بالضغط على زر (تنفيذ)

المطلوب هو منع ترحيل الحركات اذا كانت مرحلة في الشيتات المعنية
وارفق لكم الملف للتعديل

وشكرا لكم على مجهودكم الطيب
 
 
  للتعديل.xlsm   تحميل xlsm مرات التحميل :(0)
الحجم :(1197.075) KB


08-02-2020 04:21 مساء
مشاهدة مشاركة منفردة [3]
شبل
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-01-2020
رقم العضوية : 17346
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 4-6-1976
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 47
 offline 
look/images/icons/i1.gif منع ترحيل بيانات مرحلة سابقاً
للرفع up

09-02-2020 03:32 صباحا
مشاهدة مشاركة منفردة [4]
شبل
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-01-2020
رقم العضوية : 17346
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 4-6-1976
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 47
 offline 
look/images/icons/i1.gif منع ترحيل بيانات مرحلة سابقاً
Up للرفع

10-02-2020 06:43 مساء
مشاهدة مشاركة منفردة [5]
شبل
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-01-2020
رقم العضوية : 17346
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 4-6-1976
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 47
 offline 
look/images/icons/i1.gif منع ترحيل بيانات مرحلة سابقاً
للرفع up

19-02-2020 02:03 مساء
مشاهدة مشاركة منفردة [6]
شبل
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-01-2020
رقم العضوية : 17346
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 4-6-1976
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 47
 offline 
look/images/icons/i1.gif منع ترحيل بيانات مرحلة سابقاً
للرفع




الكلمات الدلالية
ترحيل ، بيانات ، مرحلة ، سابقاً ،


 










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

الساعة الآن 01:33 صباحا