أبو إيمان

الأخ الفاضل راجع الموضوع التالي http://www.officena.net/ib/index.php?showtopic=59435&hl=

أ / محمد عبد الصمد كلمات السر من حقوق الملكية الفكرية الأفضل لصاحب الوضوع التواصل مع صاحب الملف

من الأفضل الرجوع إلى صاحب الملف الأصلي

أخي الفاضل / بعد إذن الاستاذ علي المصري والأستاذ ياسر خليل لك معادلة بسيطة دون الحاجة للشروط المركبة وهي ما كنا نستخدمه قبل ان نتعلم الشروط المركبة =IF(A1="";"";IF(A1>=92;"ممتاز";IF(A1>=82;"جيد جدا";IF(A1>=72;"جيد";IF(A1>=62;"متوسط";IF(A1>=50;"مقبول";"راسب"))))))

كود جميل أستاذنا ياسر ومشكور أخر خزاني على فكرتك أيضا الأخ السائل EMembers-3 هو الاستاذ ياسر خليل والأسماء في المنتدى تظهر أعلى الصورة وليست أسفلها لك مني وافر التحية

جزاكم الله خيرا على التوضيح والإفادة

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

وإليك الموضوع في الرابط التالي قد يفيدك إن شاء الله http://www.officena.net/ib/index.php?showtopic=51423&page=2&hl=%2B%D8%A7%D9%84%D8%B5%D9%81%D9%88%D9%81+%2B%D8%A7%D9%84%D9%81%D8%A7%D8%B1%D8%BA%D8%A9+%2B%D8%B9%D9%86%D8%AF+%2B%D8%A7%D9%84%D8%B7%D8%A8%D8%A7%D8%B9%D8%A9#entry345493

أخي الفاضل بحسب سؤالك إليك هذا الكود الخاص بالأستاذ محمود الشريف Sub Printing() Rows([Row] & ":38").EntireRow.Hidden = True ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False Rows("8:38").EntireRow.Hidden = False End Sub وإليك كود أخر وأعتذر عن تقديم اسم صاحبه With Sheets("كشف 1") With .UsedRange For i = 1 To .Rows.Count If .Cells(i, 1).Value = "" Then .Cells(i, 1).EntireRow.Hidden = True End If Next i End With .PrintOut .Rows.Hidden = False End With ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True

أستاذنا / محمد ما الفرق بين هذة الدوال واستخدام خاصية الفرز والترتيب الموجودة في الاكسيل مع وافر التقدير

الأخ الفاضل / etheer إذا كان الأمر يتعلق بالنسخ واللصق فقط فهناك أبسط من ذلك ولا داعي لعمل حلقة تكرارية Range("bu7:bv200").Copy ''ãßÇä äÓÎ ÇáÈíÇäÇÊ Range("dc7").Select ' ãßÇä áÕÞ ÇáÈíÇäÇÊ ActiveSheet.Paste Range("i7:h200").Copy Range("kf7").Select ActiveSheet.Paste Range("kf7").Select Application.CutCopyMode = False

رأيت فكرة منذ قليل في مشاركة أحد الأعضاء وهو Eng : Yasser Fathi Albanna حيث قام بوضع بيانات التواصل في مكان التوقيع فكرة جميلة يمكن استخادمها هي أيضا

أقتراح جميل جداً لكن العائق أمامنا هو عدم وجود حلقة للتواصل بين الأعضاء (كرقم هاتف أو ما شابه) رغم وجود موضوع للتعارف يمكن تجديد الدعوة للتعارف بأن يضع كل من يرغب رقم هاتفه أو بريده الإلكتروني أو أن يتم زيادة مكان للرقم التليفون في بيانات التواصل الموجودة بالصفحة الشخصية لكل عضو أو أن نتشارك مثلا ملف على الجوجل درايف ونستخدم إمكانيات الأكواد والمعادلات بحيث يتم توضيح فيه كل الأفراد داخل محافظة واحدة مثلا أو في منطقة واحدة فقد تكون زميلي وأنا زميلك والأسماء الحركيه ( التعريفية ) تحول دون تواصنا بشكل مباشر مع وافر شكري وتقديري لادارة المنتدى وكل القائمين عليه وكل شخص هنا

جزاكم الله خيرا أستاذ ياسر ووفقكم الله الاستاذ aafuad وندعوك لتغيير اسم الظهور للغة العربية حتى يسهل التواصل بيننا

أستاذنا الفاضل أ/ سعيد بيرم أنا لم اعلق على عبارة " للرفع " أو على استعجال الموضوع بل قمت بضم صوتي إلى صوتك وكنت أنوي الارسال عن سؤالها قبل أن أرى الموضوع وكان استئذاني منك ومن إدارة المنتدى هو نقل الموضوع فقط مع وافر التقدير

إخواني الأفاضل هذا البرنامج ABBYY FineReader جميل في التحويل وخصوصا اللغة الانجليزية كان يأتى على اسطوانة مع بعض أجهزة الماسح الضوئي القديمة من 12 سنة تقريبا كنت أستخدمه في تحويل الصور إلى نصوص لغة انجليزية وكان ممتاز جدا وعرفت ان له اصدار جديد لكن لم اقم بتجربته إلى الأن

يرجى ارفاق مثال لما تريد للعمل عليه

بعد اذن الاستاذ ياسر أخي الفاضل هذا كود قد قدمه لي الاستاذ القدير رجب جاويش مع بعض التعديلات عليه Sheets("æÑÞÉ1").PageSetup.RightHeader = Sheets("æÑÞÉ5").Range("d5").Value & vbCr & _ Sheets("æÑÞÉ5").Range("d6").Value & vbCr & _ Sheets("æÑÞÉ5").Range("d7").Value قم بوضعه في حدث الورقة أو زر خاص

أخي الفاضل مرحبا بك في مدرستنا بحسب فهمى يكون الكود هكذا ActiveWindow.SelectedSheets.PrintOut From:=[d2].Value, To:=[f2].Value, Copies:=1 ويمكن التطوير بحيث لاتكتب اول واخر صفحة في خلية فقط تدخلها اثناء تنفيد الماكرو

بالإضافة إلى ما قدمه أخونا أبو عيد اقدم لك الروابط التالية http://www.officena.net/ib/index.php?showtopic=59000&hl=%D8%A7%D9%84%D8%A7%D9%86%D8%AD%D8%B1%D8%A7%D9%81#entry377257 http://www.officena.net/ib/index.php?showtopic=53895&hl=%D8%A7%D9%84%D8%A7%D9%86%D8%AD%D8%B1%D8%A7%D9%81 http://www.officena.net/ib/index.php?showtopic=31338&hl=%D8%A7%D9%84%D8%A7%D9%86%D8%AD%D8%B1%D8%A7%D9%81

أقترح 1- بعد إذن الاستاذ سعيد بيرم نقل هذا الموضوع إلى المنتدى الاجتماعي 2- من إدارة المنتدى أن يكون هناك جزء لمتابعة حالة الاعضاء ومن ثم معرفة حالة العضو من حيث التواصل او الانقطاع والاطمئنان عليه في حالة الانقطاع

الاستاذ القدير دغيدي حاولت الارسال لك للاطمئنان عليك والسؤال عن حالك لكنك لاتستقبل على الخاص نتمنى من الله ان تكون بخير

في انتظار ملفك ليقوم احدنا بالحل إن شاء الله

جزاكم الله خيرا وبداية جميلة وموفقة إن شاء الله

فكرة بسيطة وجميلة ونقترح للأخت السائلة أن تقوم بتصميم الشيك نفسه على الاكسيل ومن ثم يسهل التعامل معه