عبدالله باقشير

السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري

وعليكم السلام ورحمة الله وبركاته ما رايك لو يضيف لك الاسماء في ملف جديد ولك الخيار في حفظه من عدمه Sub Macro1() Dim wo1 As Workbook, wo2 As Workbook Dim sh As Worksheet Dim r As Long, i As Long, lr As Long Set wo1 = ThisWorkbook Set wo2 = Workbooks.Add i = 2 For Each sh In wo1.Sheets With sh lr = .Cells(.Rows.Count, "p").End(xlUp).Row For r = 17 To lr Step 2 wo2.Sheets(1).Cells(i, "a").Value = .Cells(r, "w").Value wo2.Sheets(1).Cells(i, "b").Value = .Cells(r, "p").Value i = i + 1 Next End With Next Set wo1 = Nothing: Set wo2 = Nothing End Sub اذا تريده في نفس الملف برضه ممكن ولكن في كل ضغطة زر سيضيف صفحة جديدة وستتعدد الاوراق في الملف تحياتي

http://www.officena.net/ib/index.php?showtopic=52357

السلام عليكم ورحمة الله وبركاته اخي الفاضل سعد عابد ............حفظكم الله تقبلوا تحياتي وشكري

السلام عليكم جرب هذا المرفق 2003 حل متابعة عملاء1.rar

السلام عليكم =IF(ISNUMBER(SEARCH("حول الى";D7));1;"") تحياتي

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

السلام عليكم هذا الكود مثلا للفولدر اف Private Sub CommandButton4_Click() ActiveWorkbook.FollowHyperlink "F:\" End Sub تحياتي

السلام عليكم بالنسبة لتاريخ نهاية القرض جرب هذه =CONCATENATE(TEXT(C13;"B2D");"/";TEXT(C13+((C12-1)*29.5);"b2mm/yyyy")) تحياتي

اي طباعة التي على الفورم او التي على الشيت

السلام عليكم جرب هذه =TEXT(A2;"dd/mm/yyyy")&" "&TEXT(B2;"hh:mm") تحياتي

وعليكم السلام هذا المرفق مع اضافة ورقة جديدة للاسم الجديد ترحيل صف الى ورقة معينة حسب خلية معينة.rar

السلام عليكم ورحمة الله وبركاته استاذي الكريم الف شكر لك لردك ومساعدتك الكود يعمل على جميع الاوراق ولا يمسح ماتم ترحيله مسبق لكن اذا تكرمت علي اريد فقط ترحيل الصف الاخير من الورقة والكود يقوم بترحيل كامل البيانات داخل الصفحة المتطابقة داخل الخلية k والمطلوب فقط ترحيل السطر الاخير واذا كان في الامكان الا يقوم بترحيل السطر الاخير اذا كان مرحل سابقا الى مشروع تم ترحيله عليه مثلا تم ترحيل السطر الاخير من مشروع الوليد الى مشروع 147 وبعدها لم يتم اضافة سطر اخر في مشروع الوليد وتم الضغط على كلمة ترحيل لا يسمح بتنفيذ عملية الترحيل السطر الاخير والموجه الى مشروع 147 لان هذه البيانات موجودة مسبقا في نفس المشروع ويسمح بترحيلها اذا تم تغير اسم المشروع المرسل اليه مثلا الى 146 ارجو ان اكون وضحت طلبي وارجو مساعدتي ولك جزيل الشكر مني وعليكم السلامورحمة الله وبركاته استخدم فقط هذا الكود Option Explicit Sub kh_Trheel() Dim NamSheet As String Dim Last As Long ''''''''''''''''''''''' On Error GoTo kh_ExT Last = Cells(Rows.Count, "A").End(xlUp).Row NamSheet = CStr(Cells(Last, "K")) If Not IsError(Evaluate("'" & NamSheet & "'!A1")) Then With Sheets(NamSheet) If CStr(.Cells(Rows.Count, "K").End(xlUp)) = NamSheet Then MsgBox "مكرر": Exit Sub Else Cells(Last, "A").Resize(1, 11).Copy .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) End If End With End If ''''''''''''''''''''''' ''''''''''''''''''''''' kh_ExT: If Err Then MsgBox "Error Number : " & Err.Number Err.Clear Else MsgBox "الحمد لله تم الترحيل" End If ''''''''''''''''''''''' End Sub المرفق 2003 تحياتي ترحيل صف الى ورقة معينة حسب خلية معينة.rar

السلام عليكم ورحمة الله وبركاته اخي الفاضل احمد فؤاد ............حفظكم الله تقبلوا تحياتي وشكري

السلام عليكم ورحمة الله وبركاته اخي الفاضل جلال الجمال ابو ادهم ............حفظكم الله تقبلوا تحياتي وشكري

السلام عليكم ورحمة الله وبركاته اخي الفاضل ابو عصام ............حفظكم الله تقبلوا تحياتي وشكري

السلام عليكم اولا تم تنفيذ الكود لجميع اوراق الملف مع عدم مسح السابق ولكن لا ادري ........هل هذا ما تريده ؟؟ المرفق 2003 12345.rar

وعليكم السلام اخي الحبيب ابو القبطان هذا رابط الفورم مع الصورة وامكانية الطباعة http://www.officena.net/ib/index.php?showtopic=52482 وهذاه صفحة مواضيعي http://www.officena.net/team/khboor/topics1.htm تحياتي

اخي الحبيب ضاحي الغريب ............حفظكم الله ابداع وبالتوفيق ان شاء الله تقبلوا تحياتي وشكري

السلام عليكم في اكسل 2003 من القائمة ملف اعداد الصفحة اختر هوامش غير التذييل والهومش حسب ما تريده تحياتي

السلام عليكم ورحمة الله وبركاته اخي الفاضل عبدالله المجرب ............حفظكم الله تقبلوا تحياتي وشكري

السلام عليكم ورحمة الله وبركاته اخي الفاضل مصطفى كمال متولي ............حفظكم الله تقبلوا تحياتي وشكري

السلام عليكم ورحمة الله وبركاته اخي الفاضل محمد الريفي ............حفظكم الله تقبلوا تحياتي وشكري

السلام عليكم ورحمة الله وبركاته اخي الحبيب رجب جاويش ............حفظكم الله تقبلوا تحياتي وشكري

السلام عليكم ورحمة الله وبركاته اختي الفاضلة أم عبد الله ............حفظكم الله تقبلوا تحياتي وشكري