logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



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





06-02-2020 12:48 مساءً
السلام عليكم اعضاء المنتدى الكرام

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





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

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





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

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

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

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

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





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




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




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




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




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب تعديل في ترحيل بيانات بشروط خاصة في الترحيل بكار للأبد
1 46 بكار للأبد
تموذج ترحيل وبحث وتعديل على البيانات مالك ماريه
147 12321 sharawee707
ترحيل بيانات من خلايا مختلفه من ملفات الى ملف واحد مع كتابة الملاحظات التى تخص ترحيل البيانات Lotfy
7 246 YasserKhalil
ترحيل كل بيانات الموظفين الى شيتات مستقلة Redha
1 268 Redha
ترحيل بيانات gedo_hafs
0 352 gedo_hafs

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









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

الساعة الآن 09:36 AM