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 

وهكذا .. مالذي اضيفه على الداله وشكراً