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

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

لقد اضفت له خاصية البحث بقائمة منسدلة و هكذا ارحل ما اريد فقط ترحيل بيانات 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