محمد عبد المجيد ( أبو حمزة )

بارك الله فيك أخي خزاني.

السلام عليكم ورحمة الله وبركاته ،،، أساتذة هذا المنتدى الرائع فكم استفدت منكم كثيرا و أسأل الله تبارك وتعالى أن يثقل موازين حسناتكم اسما اسما فردا فردا حتى لا أنسى اسما ، أريد أن أعرف رأيكم في العمل المتواضع اسم المستخدم كريم والرقم السري 4444 ولمن أرد فك حماية أي شيت الباسورد 00 fالمرتبات بعد التعديل.rar

اليوزر أبو حمزة والباسورد 101085

تفضل أخي ، لعله يكون مطلوبك . برنامج المرتـــبــــات .rar

كيف فعلت هذا أخي أبا عيد ، بارك الله فيكم .

السلام عليكم ورحمة الله ،، إخواني الكرام ، أساتذة هذا الصرح العملاق ،، أرجوا منكم المساعدة في هذا البرنامج أريد أن أجعل مكان الليست بوكس في وجهة البرنامج كمبوبوكس و أجعل فيه أكثر من اسم مستخدم وكل مستخدم بالرقم السري الخاص به . اسم المستخدم أبو حمزة الرقم السري 101085 برنامج المرتـــبــــات .rar

السلام عليكم ورحمة الله وبركاته ،،، أساتذتي الكرام الفضلاء علماء هذا الصرح الضخم الذي أسأل الله تبارك وتعالى أن يجعله ذخرا لكم في الآخرة و أن يُثقل به موازينكم على ما تقدمونه فيه من أعمال رائعة وقيمة ،،، فضلا ورجاءاً من حضراتكم هذا الرابط به برنامج ، اسم المستخدم أبو حمزة والرقم السري 101085 ، مطلوبي بارك الله فيكم ، إن أمكن ، هو استدعاء البياانات من الملف رقم 2 و3 و4 و 5 و ... في الأقسام الآتية الشد - اللم - التعريش - الكبس - الترويق إلى الملف رقم 1 في شيت المسمى (REPORT ) ، أريد الاستدعاء إلى الملف المفتوح وليكن رقم 1 وتكون الملفات الأخرى مغلقة وتكون مثلا 2 و 3 . http://www.gulfup.com/?XB69Gd وجزاكم الله الفردوس الأعلى .

Sub ragab() Application.ScreenUpdating = False T = Range("D12").Value: TT = Range("E12").Value R = ActiveWorkbook.Name For i = 1 To 2 On Error Resume Next x = ActiveWorkbook.Path & "\" & i & ".xls" Workbooks.Open Filename:=x, Password:=4444 For Each cl In Workbooks(i).Sheets("ÊÝÕíáí ÇáÊÔÛíáÇÊ").Range("C4:C600") If cl = T And cl.Offset(0, 3) = TT Then Workbooks®.Sheets("ÇáÈÍË Úä ÇáÊÔÛíáÇÊ").Range("D15") = cl.Offset(0, -2) Workbooks®.Sheets("ÇáÈÍË Úä ÇáÊÔÛíáÇÊ").Range("D16") = cl.Offset(0, -1) End If Next For Each cl In Workbooks(i).Sheets("ÊÝÕíáí ÇáÊÔÛíáÇÊ").Range("P4:P600") If cl = T And cl.Offset(0, 3) = TT Then Workbooks®.Sheets("ÇáÈÍË Úä ÇáÊÔÛíáÇÊ").Range("E15") = cl.Offset(0, -2) Workbooks®.Sheets("ÇáÈÍË Úä ÇáÊÔÛíáÇÊ").Range("E16") = cl.Offset(0, -1) End If Next For Each cl In Workbooks(i).Sheets("ÊÝÕíáí ÇáÊÔÛíáÇÊ").Range("ae4:ae600") xx = cl.Offset(0, 3).Value If cl = T And cl.Offset(0, 3) = TT Then Workbooks®.Sheets("ÇáÈÍË Úä ÇáÊÔÛíáÇÊ").Range("F15") = cl.Offset(0, -2) Workbooks®.Sheets("ÇáÈÍË Úä ÇáÊÔÛíáÇÊ").Range("F16") = cl.Offset(0, -1) End If Next For Each cl In Workbooks(i).Sheets("ÊÝÕíáí ÇáÊÔÛíáÇÊ").Range("AV4:AV600") If cl = T And cl.Offset(0, 3) = TT Then Workbooks®.Sheets("ÇáÈÍË Úä ÇáÊÔÛíáÇÊ").Range("G15") = cl.Offset(0, -2) Workbooks®.Sheets("ÇáÈÍË Úä ÇáÊÔÛíáÇÊ").Range("G16") = cl.Offset(0, -1) End If Next For Each cl In Workbooks(i).Sheets("ÊÝÕíáí ÇáÊÔÛíáÇÊ").Range("BK4:BK600") If cl = T And cl.Offset(0, 3) = TT Then Workbooks®.Sheets("ÇáÈÍË Úä ÇáÊÔÛíáÇÊ").Range("H15") = cl.Offset(0, -2) Workbooks®.Sheets("ÇáÈÍË Úä ÇáÊÔÛíáÇÊ").Range("H16") = cl.Offset(0, -1) End If Next For Each cl In Workbooks(i).Sheets("ÊÝÕíáí ÇáÊÔÛíáÇÊ").Range("BZ4:BZ600") If cl = T And cl.Offset(0, 3) = TT Then Workbooks®.Sheets("ÇáÈÍË Úä ÇáÊÔÛíáÇÊ").Range("I15") = cl.Offset(0, -2) Workbooks®.Sheets("ÇáÈÍË Úä ÇáÊÔÛíáÇÊ").Range("I16") = cl.Offset(0, -1) End If Next For Each cl In Workbooks(i).Sheets("ÊÝÕíáí ÇáÊÔÛíáÇÊ").Range("CO4:CO600") If cl = T And cl.Offset(0, 3) = TT Then Workbooks®.Sheets("ÇáÈÍË Úä ÇáÊÔÛíáÇÊ").Range("J15") = cl.Offset(0, -2) Workbooks®.Sheets("ÇáÈÍË Úä ÇáÊÔÛíáÇÊ").Range("J16") = cl.Offset(0, -1) End If Next ActiveWorkbook.Save ActiveWindow.Close Next Application.ScreenUpdating = True End Sub هل من شرح لهذا الكود الرائع ، إخواني الكرام ؟

السلام عليكم ورحمة الله وبركاته ،،، جزى الله أخانا الحبيب أبا تامر على ما قدم ، وجزى الله القائمين على هذا المنتدى خير الجزاء فكم استفدت من علمكم الرائع النافع ، ولي طلب ليت أخي الحبيب عبد الله المجرب يفعله وهو أن يجعل البحث في دالة vlook2all عن قيمتين وليست قيمة واحدة .

السلام عليكم ورحمة الله ،،، جزى الله أخانا وأستاذنا الفاضل رجب جاويش خير الجزاء على ما قدمه من مجهود وعلم نافع ورائع ، وأرجوا منك أستاذي الفاضل تطبيق فكرة استدعاء البيانات من أكثر من WORKBOOKS كما فعلت مع أخينا المدريدي على مثالي في صفحة البث عن التشغيلات أريد أن أبحث عن الحرف والرقم من عدة WORKBOOK ،، وجزاكم الله الفردوس الأعلى