نهاية فوضوي قام بنشر يونيو 1, 2015 مشاركة قام بنشر يونيو 1, 2015 تيحية طيبة للجميع لدي مجموعة من موظفي المبيعات ارغب بتسجيل البينات من الجدول ( 1 ) الى جدول ( 2 ) في كل مره بالترتيب مثلاُ لو قمت في تسجيل رقم الموظف في خانة ( id ) سيظهر اسمه تلقائي في الجدول ( 2 ) بناءً على معادلة مسبقة قمت بوضعها المطلوب الان بعد تسجيل الموظف الاول وظهور كافة البيانات في الجدول ( 2 ) ارغب في تسجيل مبيعات الموظف الثاني في نفس الجدول ولكن تحت مبيعات الموظف الاول بدون اختفاء المعلومات السابقة رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 1, 2015 مشاركة قام بنشر يونيو 1, 2015 أخي الكريم يرجى إرفاق ملف للعمل عليه رابط هذا التعليق شارك More sharing options...
نهاية فوضوي قام بنشر يونيو 1, 2015 الكاتب مشاركة قام بنشر يونيو 1, 2015 تم الان اخي TEST.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر يونيو 1, 2015 أفضل إجابة مشاركة قام بنشر يونيو 1, 2015 الأخ الفاضل نهاية فوضوي إليك الكود التالي عله يفي بالغرض Sub RecordEmployee() Dim rngID As Range, WS As Worksheet, SH As Worksheet Dim LR As Long, X As Long Set WS = Sheets("in"): Set SH = Sheets("Sheet1") Set rngID = SH.Range("C5") With SH LR = .Cells(Rows.Count, "I").End(xlUp).Row + 1 If IsEmpty(.Range("C5")) Or IsEmpty(.Range("C7")) Or IsEmpty(.Range("C10")) Or IsEmpty(.Range("C13")) Then MsgBox "أكمل البيانات أولاً", vbExclamation: Exit Sub If Not WS.Range("A5:A" & WS.Cells(Rows.Count, 1).End(xlUp).Row).Find(rngID) Is Nothing Then X = Application.WorksheetFunction.Match(rngID, WS.Range("A5:A" & WS.Cells(Rows.Count, 1).End(xlUp).Row), 0) + 4 If Not .Columns("I:I").Find(WS.Cells(X, 2)) Is Nothing Then MsgBox "تم إدخال اسم الموظف " & WS.Cells(X, 2) & " من قبل", vbExclamation + vbMsgBoxRtlReading Else .Cells(LR, "I") = WS.Cells(X, 2) .Cells(LR, "J") = .Cells(7, "C") .Cells(LR, "K") = .Cells(13, "C") .Cells(LR, "L") = .Cells(10, "C") .Cells(LR, "N") = .Cells(16, "C") End If Else MsgBox "لا يوجد موظف لهذا الرقم", vbInformation: Exit Sub End If End With End Sub تم مراعاة ألا يتكرر اسم الموظف في الجدول 2 وألا تكون الخلايا التي سيتم التسجيل فيها فارغة ... جرب المرفق التالي وأعلمنا بالنتائج Record Employee Sales YasserKhalil.rar 1 رابط هذا التعليق شارك More sharing options...
نهاية فوضوي قام بنشر يونيو 1, 2015 الكاتب مشاركة قام بنشر يونيو 1, 2015 الله يجزاك خير اخي العزيز بالضبط هذا المطلوب سلمت وسلمت اناملك 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 1, 2015 مشاركة قام بنشر يونيو 1, 2015 الله يجزاك خير اخي العزيز بالضبط هذا المطلوب سلمت وسلمت اناملك الحمد لله الذي بنعمته تتم الصالحات مشكور أخي الكريم على تحديد أفضل إجابة ليظهر المنتدى بالشكل اللائق تقبل تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.