ترحيل البيانات للجدول بالترتيب

[نهاية فوضوي]

تيحية طيبة للجميع

 

لدي مجموعة من موظفي المبيعات ارغب بتسجيل البينات من الجدول ( 1 ) الى جدول ( 2 ) في كل مره بالترتيب 

 

مثلاُ لو قمت في تسجيل رقم الموظف في خانة ( id ) سيظهر اسمه تلقائي في الجدول ( 2 ) بناءً على معادلة مسبقة قمت بوضعها

 

المطلوب الان بعد تسجيل الموظف الاول وظهور كافة البيانات في الجدول ( 2 ) ارغب في تسجيل مبيعات الموظف الثاني في نفس الجدول ولكن تحت مبيعات الموظف الاول

 

بدون اختفاء المعلومات السابقة

[ياسر خليل أبو البراء]

أخي الكريم

يرجى إرفاق ملف للعمل عليه

[نهاية فوضوي]

تم الان اخي

TEST.rar

[ياسر خليل أبو البراء]

الأخ الفاضل نهاية فوضوي

إليك الكود التالي عله يفي بالغرض

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

[نهاية فوضوي]

الله يجزاك خير اخي العزيز

 

بالضبط هذا المطلوب سلمت وسلمت اناملك

[ياسر خليل أبو البراء]

الله يجزاك خير اخي العزيز

 

بالضبط هذا المطلوب سلمت وسلمت اناملك

الحمد لله الذي بنعمته تتم الصالحات

مشكور أخي الكريم على تحديد أفضل إجابة ليظهر المنتدى بالشكل اللائق

تقبل تحياتي