زوهير

عملت ذلك لكن لم ينجح الامر Kill ThisWorkbook.Path C:\Test.txt Sheets("AMEL").Range("A2:D3").Select ExportToTextFile FName:=ThisWorkbook.Path C:\Test.txt , Sep:=";", SelectionOnly:=True, AppendData:=True هكذا تظهر الاسطر حمراء

اخي ياسر انت في الكود وضعت هذه الصيغة وهي مكان النسخة Path & "\Test.txt لذا اريد تحديد المسار الذي توضع فيه النسخة مثلا في \:c او \ : d ......... وجزاك الله خيرا

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

السلام عليك اخي ياسر ورمضان كريم مجهود كبير منك وجزاك الله خيرا - بعد تجربة الملف عند عمل نسخة ثانية يستغني عن البيانات السابقة وحبذا تحديد مكان النسخة وسامحني في مجهودك

السلام عليك اخي ياسر اليك المرفق وهو عبارة عن مثال فقط للتوضيح ارجوا ان اوفق في تبليغ الفكرة مثال.rar

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

Private Sub UserForm_Initialize() Dim Z As Integer For Z = 4 To Sheets("feuil3").Range("b5000").End(xlUp).Row ComboBox1 = Sheets("feuil3").Range("b" & Z) If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("feuil3").Range("b" & Z) Next Z ComboBox1.ListIndex = 0 End Sub اليك الكود اخي الكريم بعد التعديل ورمضان كريم

()Private Sub UserForm_Initialize Dim Z As Integer هذا السطر يشير الى النطاق الذي تريده ' For Z = 1 To Sheets("feuil2").Range("b5000").End(xlUp).Row ComboBox1 = Range("b" & Z) If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("b" & Z) Next Z ComboBox1.ListIndex = 0 End Sub عذرا الاخ ياسر لم انتبه لوضع الكود داخل الاقواس تم التعديل

فكرة رائعة جزاك الله خيرا وزادك علما

الحمدلله على تمام طلبك

تستطيع تغيير النطاق كما تشاء Private Sub UserForm_Initialize() Dim Z As Integer For Z = 1 To Sheets("feuil2").Range("b5000").End(xlUp).Row ComboBox1 = Range("b" & Z) If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("b" & Z) Next Z ComboBox1.ListIndex = 0 End Sub جرب هذا التعديل من الورقة رقم 2

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

واليك هدا المثال في الفورم بعد اذن الاستاذ طلعت محمد حسن لعله يكون طلبك مثال .rar

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

السلام عليكم ورحمة الله ورمضان كريم اريد كود يقوم بحساب المدة في الفورم والمرفق يوضح الطلب اكثر وجزاكم الله خيرا date.rar

امين يارب العالمين ------------------------------------ جزاك الله خيرا ابو البراء هو المطلوب و نجحت الفكرة تحياتي ورمضان كريم ------------------------------------------------------------ وتقبل الله منا منكم ولسائر الامة الاسلامية ان اشاءالله

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

كل الشكر والتقدير للاخ سليم على مجهوده في بناء المعادلات ولك كل الاحترام والتقدير و اعاد الله عليكم رمضان بالخير والعافية وبلغكم عيد الفطر بالخير ان شاءالله ولكامل الامة الاسلامية -------------------------------------------------------------------------------------------- الاخ ابو البراء هل ممكن بكود يقوم بحماية المعطيات بعد ترحيلها من التعديل

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

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

تم تغيير موقع الاعمدة لكي لا تعطي الخطأ المرفق لعله يكون المطلوب معادله.rar

للرفع هل ممكن مساعدة

السلام عليك اخي الكريم اليك الحل لعله يكون المطلوب شيتvb.rar

السلام عليك اليك هدا الحل ربما يكون هو التاريخSZ.rar

السلام عليكم ورحمة الله رمضان كريم وصوم مقبول ان شاء الله اخوتي هل من حل جزاكم الله اريده بالاكواد ان امكن ذلك