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

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


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


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





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

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



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

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





06-02-2020 04:37 مساء
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 501
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3852
الاعجاب : 83
 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]
شبل
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-01-2020
رقم العضوية : 17346
المشاركات : 28
الجنس : ذكر
تاريخ الميلاد : 4-6-1976
قوة السمعة : 23
الاعجاب : 0
 offline 
look/images/icons/i1.gif منع ترحيل بيانات مرحلة سابقاً
السلام عليكم اعضاء المنتدى الكرام

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

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

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

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





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




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




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




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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعديل على كود الترحيل واستدعاء بيانات من شيت لاخر وعمل قائمة منسدله ابو طيبه
14 559 ابو طيبه
مساعدة في تعديل كود ترحيل بيانات moazshawar
1 76 moazshawar
ترحيل بيانات علي بطيخ سالم
4 180 جنان السبيل
كود ترحيل بيانات الى ملف اكسيل مغلق جنان السبيل
4 256 جنان السبيل
السماح بترحيل بيانات الموظف عند ادخال رقم الامر وتاريخ مختلف شبل
8 415 YasserKhalil

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


 







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

الساعة الآن 11:23 مساء

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