تعديل كود منع تكرار ادخال او ترحيل البيانات

[شبل ليث]

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

يرجى تفضلكم بمساعدتي على تعديل كود منع تكرار ادخال او ترحيل البيانات بحيث يمكن السماح بتكرار ادخال وترحيل نفس (رقم الامر) و (تاريخ الامر) ونفس (نوع الحركة) اذا كان (رمز المنتسب) او (الاسم) يختلف لان هناك اوامر لعدة اشخاص

ولكم فائق الشكر والاحترام

تجربة ملاك 2020.xlsb

[Ali Mohamed Ali]

وعليكم السلام -تفضل تم عمل قوائم منسدلة لتسهيل الإدخال بصفحة العمليات .. كما تم منع ادخال المكرر بعمود الرمز وعمود الإسم

كماتم الإستعانة بكود من أكواد استاذنا الكريم سليم حاصبيا للترحيل , له منا كل المحبة والإحترام وأعانه الله دائما على مساعدة الجميع وهو :

Option Explicit
Sub Salim_code()
Application.ScreenUpdating = False
  Dim Filt_Rg    As Range
  Dim M          As Worksheet
  Dim Sh         As Worksheet
  Dim i%

  Set M = Sheets("العمليات")
  Set Filt_Rg = M.Range("A12").CurrentRegion

If M.AutoFilterMode Then
 Filt_Rg.AutoFilter
End If
i = 4
Do Until M.Range("F" & i) = vbNullString
 If Not Application.Evaluate("ISREF('" & M.Range("F" & i) & "'!A1)") Then
   Sheets.Add(, M).Name = M.Range("F" & i)
 End If
 i = i + 1
 Loop
For Each Sh In Sheets
  If Sh.Name <> M.Name Then
    Sh.Range("B1").CurrentRegion.Clear
    Filt_Rg.AutoFilter 6, Sh.Name
    Filt_Rg.SpecialCells(12).Copy Sh.Range("B1")
    Sh.Range("B1").CurrentRegion.Columns.AutoFit
  End If
Next
M.Select
If M.AutoFilterMode Then
 Filt_Rg.AutoFilter
End If
Application.ScreenUpdating = True
End Sub

تجربة ملاك 2020.xlsb

[شبل ليث]

شكرا للاستاذ Ali Mohamed Ali على تعاونه الجميل

لكن استاذي العزيز ان عملي يكون في شيت (الملاك) وعند اختياري من القائمة المنسدلة في عامود (نوع الحركة) والانتقال الى العامود (رقم الامر) ادخل رقم الامر تظهر رسالة تحذيرية (هذا الرقم مكر في صفحة كذا سيتم حذفه) فيتم حذف هذا الادخال لكون رقم الامر موجود لموظف اخر كما في الصورة ادناه

ارجو ان يتم قبول الادخال وعدم ظهور هذه الرسالة اذا كان لموظف اخر لان هناك اوامر تصدر لعدة موظفين في امر واحد

ولكم فائق الشكر والاحترام وجزاكم الله خير الجزاء 

 

 

تجربة ملاك 2020(1).xlsb