بسم الله الرحمن الرحيم مرحبا بك معنا اخى الكريم فى المنتدى ستجد هنا شرح بسيط و سهل للأستاذ / محمد طاهر وصله الموضوع : http://www.officena.net/ib/index.php?showtopic=206 السلام عليكم
بسم الله الرحمن الرحيم
Sub EndRow()
Dim EndRow As Integer
EndRow = Sheets("Sheet1").Cells(1, 1).CurrentRegion.Rows.Count
Sheets("Sheet1").Cells(EndRow, 1).Select
End Sub
مرفق ملف
السلام عليكم
EndRow.rar
بسم الله الرحمن الرحيم فعلا موضوع جميل و مساهمه متواضعه فى هذا الموضوع اليكم برنامج الى صلاتى ليذكركم دائما بالله عز و جل و به مزايا عديده الموضوع على هذا الرابط http://www.officena.net/ib/index.php?showtopic=15601 السلام عليكم
بسم الله الرحمن الرحيم اليكم البرنامج الدينى الى صلاتى به مزايا عديده تظهر على شاشه الحاسب كل فتره أذكار من القراّن _دعاء من السنه_أحاديث من البخارى بالأضافه الى مواعيد الصلاه اتجاه القبله و العديد حمل من هنا حجم الملف 7 ميجا تقريبا السلام عليكم
بسم الله الرحمن الرحيم الاخ الكريم خالد khaledHHH بصراحه عمل عظيم و مرتب اللهم اجعل هذا العمل فى ميزان حسناتك لقد وفر لنا مجهود للرد على المشاركات بأعتبار ان هذه المشاركه سوف تعتبر مرجع ان شاء الله و حيث انك تسأل عن ملاحظات عن هذا العمل انا لا أجد ملاحظات و لكن بعض التعقيبات الأوراق محميه و vb محمى و قد قمت بفك جميع كلمات السر و لذلك أقدر المجهود المبذول و لكنى أفضل ان يكون الملف غير محمى أو ترفق كلمات السر مع الملف حتى يستفيد الجميع من خبرتك . ما فائده الورقه (55) حيث انها تقوم بعرض رساله لم اراها داخل الملف
قمت بأعداد مشاركات سابقه و شرح استغرق منى الساعات الطويله قد تصل الى السهر الى الصباح و........ و لم اجد حتى كلمه شكر و لكنى اعرف ان الله لا يضيع اجر من احسن عمله فتركت اجرى على الله طالما ان النيه صافيه و الغرض هو صدقه جاريه و عمل نافع بقلب خالص فالاجر مضمون ان شاء الله . اما انت فقد اجبت على نفسك فالمشاركه بسم الله ما شاء الله لم عليها سوى يومين وعدد التحميل كما قلت 70 فكم عدد الحسنات التى حصلت و سوف تحصل عليها ان شاء الله ؟ اليس هذا أفضل من رد مشرف قد يكون أقل منك علما أو معرفه ؟ السلام عليكم
بسم الله الرحمن الرحيم مشكور اخى الكريم على هذا الدعاء و للامانه سوف اقول لك ماذا فعلت حتى تعرف المشكله : لقد قمت أنت فى الملف المطلوب تعديله بكتابه المعادلات فى ورقه العمل و استخدمت كلمه IFYes فى المعادله . الأكسيل لا يفهم IFYes لانها داله قام بتقديمها الاخ عمر الحسينى فى مشاركه سابقه بالمنتدى و يجب أدراج هذه الداله فى صفحه vb . و هذا ماقمت أنا بفعله فى مشاركه التعديل السلام عليكم
بسم الله الرحمن الرحيم تستطيع تنفيذ المطلوب بطريقه بسيطه على الملف المرفق بالمشاركه رقم (4) قم بالوقوف على الخليه F3 بعد الكتابه فى ComboBox أضغط مفتاح Esc ستجد انك ذهبت الى الخليه F3 السلام عليكم
بسم الله الرحمن الرحيم
هذا الذى يقصده الاخ عمر من أمس
بصراحــه
تصحيحا لما كتبه الاخ itisoer
اذا ادخلت العلامه العشريه ليس قبلها صفر لا يوجد مشكله كما هو وارد للاقتباس
انما أعتقد المشكله التى يقصدها
عندما يتم ادخال الصفر ثم علامه عشريه ثم الكسر يبدأ بصفر هكذا (0.0245) يتم قبولها لاى عدد للمنازل العشريه
السلام عليكم
بسم الله الرحمن الرحيم الملف شغال ميه ميه و لذلك ارسلت لك المشاركه السابقه لكن المشكله عند جمع العمود سيكون المجموع غيرمطابق لان الخليه Text و يمكن التغلب بتحويل الخلايا الى رقم من العلامه الصفراء "! " بجوار الخليه السلام عليكم
بسم الله الرحمن الرحيم
لك حق لازم تتوه لانى لم الاحظ كلمه workbook الا عندما و جدت ملفان بمرفقاتك
تستطيع التحايل على هذا الامر بادراج و رقه عمل فى ملف (prod_percent_sme) و تسميها ID مثلا ثم تجعل بيناتها تساوى بيانات الملف الثانى ليتم التعديل تلقائيا ثم تقوم بالعمل من خلالها بداله Vlookup
السلام عليكم
بسم الله الرحمن الرحيم استخدم المجال راجع هذه المشاركه الخاصه به هنــــــــــــــــــــــــــا ملحوظه برجاء عد م تكرار السؤال فى مشاركه جديده حتى لا تحذف , و لكن يمكنك التذكير بنفس المشاركه عند عدم الرد السلام عليكم