M07AMED

تسلم بارك الله فيك استاذنا الحبيب

السلام عليكم بعد اذن الاساتذه الكرام عايز كود يحسب عدد الصفوف الموجوده في الليست بوكس شاكر تعاونكم سلفاً

جزاك الله الف خير ... مشكور اخي جعلها الله في ميزان حسناتك

االسلام عليكم بعد اذن الاساتذه الكرام انا استخدم هذ الكود للصق بعض البيانات من ملفات اخرى SHEET1.Range("H9:Q10000" & Cells(Rows.Count, "H").End(xlUp).Row).PasteSpecial لكن المشكله انه الكود يقوم باللصق من خليه H9 حتى لو موجود بيانات فيها انا اريد يكون اللصق من اخر خليه مكتوبه شاكر تعاونكم ...

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

صحيح وهذه المشكله الي ماقدرت اصل لحل لها .. وبوركت جهودك استاذنا الغالي اليوم جربت افتح الملف تشغيل كمسؤول بيحفظ عادي ...لكن لما افتحه بالنقر نقرتين مايحفظ ولما ادخل على الماكرو واحفظ بتطلع رساله انه الملف للقراءه فقط

شكرا على ردك استاذ محمد بالنسبه لكود الحفظ انا عامل هذا الكود وفي اكثر من امر ThisWorkbook.Save والتثبيت حسب الطريقه الموجوده في المنتدى وهو بحفظ عادي لما احوله لملف تنفيذي لكن بعد التثبيت بتلتغي خاصيه الحفظ التلقائي

السلام عليكم بعد اذن الاساتذه الكرام انا عندي ملف حولته لملف تنفيذي وبعدها قمت بتسطيبه وبعد التسطيب الملف صار مايحفظ تلقائي مع اني عامل كود الحفظ التلقائي وايضا كان يحفظ قبل التسطيب شاكر ومقدر تعاونكم

بارك الله فيك استاذ محمد صالح وجزاك الله الف خير

السلام عليكم الاساتذه الكرام ...انا عندي استفسار بعد اذنكم...طبعا هذه داله الفرق بين تاريخين بالايام انا استخدمها في اليوز فروم [R10] = DateDiff("d", [K4], [K10]) لكن انا اريد احدد من R10 الى R1000 ,ومن K10الى K 1000 وهكذا .. مالذي اضيفه على الداله وشكراً