ابو منذر عبد الله

جزاءك عند الله ...... و الله اكرمتني و اتحفتني شكرا شكرا شكرا لك

لقد اضفت له خاصية البحث بقائمة منسدلة و هكذا ارحل ما اريد فقط ترحيل بيانات 6.xlsm

يا سلام الكود أصبح يبحث عن الرقم و رأس العمود و يرحل ,,,, روعة روعة هذا هو المطلوب يا أخي كفيت و وفيت و كل مساعداتك استفاد منها الكثير و دعا لك الكثير جزاك الله كل خير

أخي هشام و بلقاسم كل عبارات الشكر و التقدير لا تكفي لمكافئتكم بوركتم و جزاك الله كل الخير و ربي يعطيكم ما تتمناو الكود روعة روعة روعة يعطيكم الصحة

Sub Copy_V2() Dim wsdest As Worksheet Dim lRow As Long, i As Long, Réf As Variant Dim rng As Range, xDate As Range Dim WS As String, j As Range Set wsdata = Worksheets("ÇÏÎÇá ÇáÈíÇäÇÊ"): Set r = wsdata.Range("H2") On Error Resume Next lRow = wsdata.Columns("G").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 If WorksheetFunction.CountA(wsdata.Range("H4:H" & lRow)) = 0 Then MsgBox "íÑÌì ÇáÊÇßÏ ãä ãáÆ ÚãæÏ ÚÏÏ ÇáÛíÇÈ", vbExclamation: Exit Sub If WorksheetFunction.CountA(wsdata.Range("G4:G" & lRow)) = 0 Then MsgBox "íÑÌì ÇáÊÇßÏ ãä ãáÆ ÚãæÏ äæÚ ÇáÛíÇÈ", vbExclamation: Exit Sub For i = 4 To lRow If wsdata.Cells(i, "G") <> "" Then WS = wsdata.Cells(i, "G"): Set j = wsdata.Range("G4:H" & lRow) Set Wdest = Worksheets(WS) Réf = wsdata.Cells(i, "A").Value Set rng = Wdest.Columns("A").Find(what:=Réf, LookIn:=xlValues, LookAt:=xlWhole) If Not rng Is Nothing And Wdest.Cells(i, "A").Value <> Empty Then For Each xDate In Wdest.Range("H3", Wdest.Cells(3, Wdest.Cells(3, Columns.Count).End(xlToLeft).Column)) If xDate = r Then Wdest.Cells(rng.Row, xDate.Column) = wsdata.Cells(i, "H") Next End If End If Next i j.ClearContents On Error GoTo 0 End Sub tفي هذا السطر Set wsdata = Worksheets("ÇÏÎÇá ÇáÈíÇäÇÊ") هذا هو Doc111.docx

لسلام عليكم اخواني استفدت كثيرا من خبرتكم و حاولت انجاز هذا العمل حيث اريد ترحيل رقم في خلية رقم الغياب الى اوراق محدد حسب الرمز المحدد و الى الشخص المحدد برقمه و بالتاريخ في راس عمود ادخال البيانات H حيث فيه اكثر من 2000 شخص العمل هذا اعرف انه معقد و طويل و احتاجه حيث حاولت الاستفادة من المنتدى بالاكواد اللازمة و لكنني لم افلح و اكون جد شاكرا لكم لسعة صدوركم و مساعدتي على هذا العمل و ادعو الله ان يطيل اعماركم و يزيدها في ميزان حسناتكم و منكم استفدنا و و لكم الفضل في نجاح هذا العمل الذي سهل على الكثير الكثير من العمال من مهامهم و السلام عليكم و بارك الله فيك على المساعدة اريد عند اختيار تاريخ و اختيار نوع الغياب و عدد الغياب ثم اقوم بالترحيل فانه يرحل الى ضفحة نوغ الغياب و الى العمود الذي به نفس تاريخ الادخال و في البحث فانه يجلب لي مجموع الغياب و حسب النوع بين تاريخين الغمل معقد و المطلوب ربما كبير و يتطلب جهد و مشكوور على المساعدة و جزاك الله كل خير ترحيل بيانات 1.xlsx

مشكوى اخي علية و لكن انا احناج كما هو موضح في المطلوب

ممكن مساعدة في كود الترحيل و بارك الله فيكم حسب ما هو موضح ترحيل بيانات.xlsx

بارك الله فيك و جزاك الله كل خير

بارك الله فيك و ان أمكن عند الترحيل يضع القيمة في الخانة في عمود القيمة التي كتبت و ليس وضع نجمة و شكرا ادخاÙ_ بÙ_اÙ_ات غÙ_اب (1).xlsm

أخي المطلوب هو رأس العمود حيث يتم الإدخال و الترحيل يكون في الشيت الآخر ( الارشيف) إلى العمود حسب اسمه مثال : رقم العمود في شيت الادخال يكون 1 مثلا فإن الترحيل يكون للعمود الذي تسمية رأسه رقم 1 في شيت الارشيف مع الحفاض على البيانات المرحلة من قبل في الأعمدة الأخرى و يفرغ ما تم ترحيله في العمود من شيت الادخال و بار الله فيكم تقارير (2).xlsm

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

مشكور يا اخي و لو امكن ينقل صفحة tout حسب نوعها و قيمتها حسب التاريخ المحدد لها يعني يكون تنسيق الصفحات مثل bass و شكرا لك

هذا الملف لاحد الاخوة هنا و قمت بالتغيير عليه ممكن المساعدة في كود ترحيل للصفحة حسب النوع المختار امام كل اسم و شكرا Nour_Vise_versa (3).xlsm

ممكن او صعب

ممكن مساعدة و بارك الله فيكم

للرفع

السلام عليكم اخواني استفدت كثيرا من خبرتكم و حاولت انجاز هذا العمل حيث اريد ترحيل رقم في خلية رقم الغياب الى اوراق محدد حسب الرمز المحدد و الى الشخص المحدد برقمه و بالتاريخ في راس عمود ادخال البيانات حيث فيه اكثر من 2000 شخص العمل هذا اعرف انه معقد و طويل و احتاجه حيث حاولت الاستفادة من المنتدى بالاكواد اللازمة و لكنني لم افلح و اكون جد شاكرا لكم لسعة صدوركم و مساعدتي على هذا العمل و ادعو الله ان يطيل اعماركم و يزيدها في ميزان حسناتكم و منكم استفدنا و و لكم الفضل في نجاح هذا العمل الذي سهل على الكثير الكثير من العمال من مهامهم و السلام عليكم ترحيل بيانات.xlsx

لم يعمل اخي ممكن محاولة باضافة زر

للرفع ممكن مساعدة يا أحباب اللله

للرفع

السلام عليكم اخواني احتاج مساعدتكم في هذا العمل الذي احناجه حيث اريد عند اختيار الرمز يجلب من القائمة المعنيين به فقط او الكل حسب الاختيار وعند الضغط على زر ترحيل يقوم بترحيل عدد الغياب للشخص المحدد حسب الرقم في الورقة المخصصة حسب نوع الغياب في العمود حسب تاريخ الادخال و يحافظ على السابق المرحل بتاريخ مختلف ارجو مساعدتكم ترحيل بيانات.xlsx

السلام عليكم يشرفني ان اطلب منكم المساعدة في عمل كود ترحيل ارقام الى اوراق المخصص حسب الملف المرفق و مشكورين على المساعدة ادخال بيانات غياب.xlsx

بارك الله فيكم و جزاكم الله كل الخير منكم استفدنا كثيرا شكرا شكرا لكم