۩◊۩ أبو حنين ۩◊۩

للرفع

السلام عليكم اخى الحبيب ياسر حمدا لله على السلامة منور المنتدى كود رئع .. جزاك الله كل الخير الاخ الصقر... جزاك الله كل الخير

السلام عليكم شرح رائع ووافى جدا جزاكم الله خيرا

السلام عليكم ارجو المساعده فى اضافه على كود للاخ الفاضل ياسر حليل الكود يقوم بالترحيل الى اسم الشيت المتواجد فى الخليه A3 المطلوب بلاضافه ان الكود بقوم بالترحيل الى اسم الشيت فى الخليه A3 اريد لن يتم الترحيل ايضا الى الشيت المسمى general اى لو محتوى الخليه A3 هو Medi. Kha يتم الترحيل الى شيت Medi. Kha وشيت general فى نفس الوقت او بتم الترحيل الى محتوى الخليه A3 والخليه D3 Sub Transfer() Application.ScreenUpdating = False On Error Resume Next Dim Cell As Range, T As String, LR As Long, LRT As Long Dim WS As Worksheet, Answer As Long Set WS = Sheets("1") LR = WS.Cells(35, 3).End(xlUp).Row nR = 6 10 If Cells(nR, "H").Value = "تم الترحيل" Then nR = nR + 1: GoTo 10 If nR > LR Then MsgBox "لن يتم الترحيل : برجاء ضبط العمود إتش": Exit Sub T = WS.Range("A3").Value Application.ScreenUpdating = False WS.Unprotect "2191612" If Not IsEmpty(WS.Range("C6")) Then With Sheets(T) .Unprotect "2191612" LRT = .Cells(Rows.Count, 3).End(xlUp).Row + 1 WS.Range("B" & nR & ":G" & LR).Copy .Cells(LRT, 2).PasteSpecial xlPasteValues .Protect "2191612" End With WS.[H6].Value = "تم الترحيل" WS.Range("H6:H" & LR).FillDown Sheets("1").Select ActiveWindow.SmallScroll Down:=-12 Range("A3,C6").Select Else MsgBox "الخلية المحددة فارغة لذا لن يتم تنفيذ الكود": Exit Sub End If WS.Protect "2191612" Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

السلام عليكم الاخ الكريم عبد الله رمشانطريم عليك وعلى جميع المسلمين اخى الحبيب تم تجربه الكود والملف الزى تم تحويله الى PDF به صفحه واحده على الرغم من وجود شيتات الخلية A1 بها كلمة printing مرفق ملف PDF ahmed 5.rar

للرفع

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

اولا جزاك الله كل الخير اخى الحبيب ياسر .. على التوجيهات والملاحظات ولاكنى مع الاسف لم اصل للحل الصحيح

ارجو المساعده فى معرفة مكمن الخطاء فى كود AHM_PDF حيث انه يقوم بحفظ الملف بصيغه PDF ويتم اختيار الشيتات التى محتوى الخلية A1 كلمة printing اقتباس هذا الكود من كود طباعه حيث يقوم بطباعه بشرط If sama = vbYes Then For Each Sh In Worksheets If Sh.[A1] = "printing" Then Sh.PrintOut Copies:=1 جزاكم الله خيرا PDF1.rar

للرفع للرفع للرفع

السلام عليكم الاخوة الكرام لقد وجت كود لاخوة مختار حسين والاخ ياسر خليل وتم الحفظ فعلا بدلالة الخليتين ويبقى الطلب الثانى 2- ان يقوم بحفظ الشيتات التى محتوى الخليه A1 فيها كلمه ( printing ) مرفق الملف PDF.rar

السلام عليكم اولا.... رمضان الخير لجميع المسلمين اسال الله ان يجعل رمضان بدايه خير لكل المسلمين بدايه للقربة الى الله والعمل بما يرضيه الاخوة الكرام هلى يمكن عمل كود حفظ pdf بشرطين 1- يتم حفظ الملف باسم ..... الاسم بدلالة خليتين A5 +D5 فى المسمى 1 حيث ان A5 اسم متغير على اساس معادلات و D5 هو رقم متغير ايضا وهو تسلسل 2- ان يقوم بحفظ الشيتات التى محتوى الخليه A1 (printing ) ليس اكثر مرفق الملف جزاكم الله كل الخير PDF.rar

السلام عليكم اخى الحبيب لعلة المطلوب http://www.officena.net/ib/index.php?showtopic=41718&hl=

السلام عليكم الملف كتاب عن الإضافات في الإكسل Excel Addins 3 الإضافات في الإكسل Excel Addins .part3.rar

السلام عليكم الملف كتاب عن الإضافات في الإكسل Excel Addins 2 الإضافات في الإكسل Excel Addins .part2.rar

السلام عليكم الملف كتاب عن الإضافات في الإكسل Excel Addins 1 الإضافات في الإكسل Excel Addins .part1.rar

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

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

السلام عليكم اخى العزيز على الشيخ جزاك الله كل الخير على المشاركه الا ان المطلوب عدم تكرار عمليه الترحيل لان المرحل علاج ومتعلقات ماليه لاشخاص والاكيد ان الاشخاص يكرر له علاج ومستحقات لا يمكن جعل الشرط رقم العامل ... فكره الاخ طارق هى المطلوبه لانها توضح لى ان البيانات تم ترحيلها طالما فى العمود H كلمه تم الترحيل جزاك الله خيرا

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

السلام عليكم .. واسال الله ان يقضى وقت طيب مع الاهل رمضان كريم

للرفع للرفع للرفع

السلام عليكم الاخ الكريم طارق جزاك الله كل الخير سلمت يداك

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

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