يحيى حسين

السلام عليكم و رحمة الله أخي جرب هذه المعادلة في الخلية F10 =SMALL(IF(ISNA(MATCH(ROW(INDIRECT("1:"&ROWS($E$10:$E$30))),$E$10:$E$30,0)),ROW($E$10:$E$30)-ROW($E$10)+1),ROW(1:1)) و هي معادلة صفيف لا تنسى أن تضغط Ctrl+Shift+Enter ثم اسحب المعادلة للأسفل

السلام عليكم و رحمة الله إضافة لحلول الأخوة جرب هذه المعادلة =EDATE(A5,B5)

السسلام عليكم و رحمة الله ما شاء الله ابداعات جميلة و موضوع مهم جدا جزاكم الله كل خير و جعلها في ميزان حسناتكم

السلام عليكم و رحمة الله بنفس طريقة الاخ هشام و لكن بمدمجهما في معادلة واحدة =SUM(AA:DD!A1,AA:DD!C1) =============== دمتم في حفظ الله

السلام عليكم و رحمة الله أخي طلبك بسيط يمكنك استخدام دالة البحث Vlookup فلو فرضنا ان قمت بإضافة صفحة جديدة و وضعت في الخلية B3 رقم الصنف القديم و تريد في الخلية C3 ان يظهر الرقم الجديد ضع المعادلة التالية داخل الخلية C3 =VLOOKUP(B3,Sheet1!$A$2:$B$13,2,0) =============== طلبك الثاني غير واضح اخي ارجو توضيحه اكثر دمتم في حفظ الله

السلام عليكم و رحمة الله أخي تفضل هذا كود لنسخ القيم و لصقها لصق خاص Sub CopyAndPaste() Dim LastR As Long, NLastR As Long, ws As Worksheet, Nws As Worksheet Set ws = Sheets("sheet1") Set Nws = Sheets("sheet2") LastR = ws.Range("a" & Rows.Count).End(xlUp).Row NLastR = Nws.Range("a" & Rows.Count).End(xlUp).Row ws.Range("a1:d" & LastR).Copy Nws.Range("a" & NLastR + 1).PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub

السلام عليكم و رحمة الله و بركاته أخي لوفرضنا ان البيانات موجدودة لديك في الصفحة الاولى في الأعمدة من a الى d و اردنا نسخها الى اخر خلية فارغة في العمود A من الصفحة الثانية استخدم الكود التالي : Sub CopyAndPaste() Dim LastR As Long, NLastR As Long, ws As Worksheet, Nws As Worksheet Set ws = Sheets("sheet1") Set Nws = Sheets("sheet2") LastR = ws.Range("a" & Rows.Count).End(xlUp).Row NLastR = Nws.Range("a" & Rows.Count).End(xlUp).Row ws.Range("a1:d" & LastR).Copy Nws.Range("a" & NLastR + 1) End Sub ============== اما بخصوص طلبك الثاني لو بحثت في المنتدى ستجد اكثر من موضوع عن طلبك و اعتقد ان الاخ ابو تامر له موضوع مستقل في ذلك ============== دمتم في حفظ الله

السلام عليكم و رحمة الله اخي قصي ملفك في المشاركة 191 محمي تأكد من ذلك

السلام عليكم و رحمة الله اخي خالد لكي تعم الفائدة هذه طريقة اخرى للحل khalidplayer.rar

السلام عليكم و رحمة الله شاهد الرابط اخي http://www.officena.net/ib/index.php?showtopic=29255

السلام عليكم و رحمة الله أخي جرب هذا الكود حيث سيقوم بوضع كلمة سر لجميع الصفحات yahya Sub ProtectMe() Dim ws As Worksheet For Each ws In Sheets ws.Protect "yahya" Next ws End Sub

السلام عليكم و رحمة الله اخي قصي لقد استخدمت اسم المستخدم :hosami ولقد استخدمت كلمة السر : 123 في مشاركتك رقم 191 و لم يفتح معي الملف

السلام عليكم و رحمة الله اهلا و سهلا بك اخي مصطفى دعواكم

السلام عليكم و رحمة الله اخواني هذه الأقواس يقوم الإكسيل بوضعها تلقائياً في معادلات الصفيف و هو نمط خاص في المعادلات بالاكسيل و لمعرفة المزيد عنه http://office.microsoft.com/ar-sa/excel-help/HA010228458.aspx?pid=CH100648411025

السلام عليكم و رحمة الله قم بوضع الكود التالي في الفورم Private Sub UserForm_Initialize() Me.TextBox1.Value = Date End Sub و كلما يفتح الفورم سيتم وضع التاريخ تلقائياً في التكست بوكس 1

السلام علكيم و رحمة الله اخي في فورم الحذف فقط عدل الكود التالي Range("c" & Inum).Resize(, 17).Delete shift:=xlUp

السلام عليكم و رحمة الله اخي مصطفى شاهد المرفق mostaf.rar

السلام عليكم و رحمة الله شاهد هذا الرابط اخي جمال http://www.officena.net/ib/index.php?showtopic=28618

السلام عليكم و رحمة الله و بركاته أخي رحال جرب هذا الكود وسيقوم بحذ القيم المكررة في العمود الاول من كل صفحة في المجلد مهم كان عدد الصفحات Sub DelteDuplicateInMultiPages() Dim LastR As Long, i As Integer, ws As Worksheet For Each ws In Sheets LastR = ws.Range("a" & Rows.Count).End(xlUp).Row For i = LastR To 1 Step -1 If WorksheetFunction.CountIf(ws.Range("a1:a" & i), ws.Range("a" & i).Value) > 1 Then ws.Range("a" & i).Delete shift:=xlUp End If Next i Next ws End Sub اتمنى ان تلبي طلبك دعواكم

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

السلام عليكم و رحمة الله و بركاته أخي معادلاتي تفي بطلبك

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

السلام عليكم و رحمة الله و بركاته اضافة لحل الاخوين عادل و ايسم جزاهما الله كل خير هذا حل اخر رديف لطريقة الاخ ايسم Sub PrintAYSAM() If MsgBox("هل ترغب في الطباعة الان ", vbYesNo) = vbYes Then Range("C11:H131").Select 'etc Range("A1").Select End If End Sub

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

السلام عليكم و رحمة الله أخي أحمد إضافة لحلول الأخوة الحسامي و عادل و لإثراء الموضوع جرب هذا الكود Sub Excel4Us() Dim LastR As Long LastR = Columns(8).Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows, LookIn:=xlValues).Row With ActiveSheet .PageSetup.PrintArea = "a1:L" & LastR .PrintOut End With End Sub ===================== دمتم في حفظ الله