أسامة البراوى

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

الإخوة الاعزاء : عبد العزيز البسكري ، زيزو العجوز ، أيمن ابراهيم شكر على مروركم الجميل واتمنى ان تكون المشاركة نافعة للجميع

شكرا يا ابو سليمان على مرورك وسوف انسق مع الناس ( اللى هما انت ) لاستكمال الرد على الموضوع السابق

الأخ الفاضل غسان العبيدى عمل جميل وفكرة جيدة واسمح لى ان اضيف عليها طلب الاخ الفاضل الميسانى وهو نفس الفورم السابقة مع اضافة 1- عنوان ثابت 2- مربع ادخال نص متغير العرض 3- زر تمرير متغير الارتفاع 4- بالاضافة الى تعديل صورة الخلفية 5- ايضا هناك إضافة صغيرة للتحكم فى الحد الادنى لأبعاد الفورم Resize Userform تغيير حجم اليوزرفورم بالماوس.rar

السلام عليكم مرفق نفس الفورم السابقة مع اضافة 1- عنوان ثابت 2- مربع ادخال نص مغير العرض 3- زر تمرير متغير الارتفاع بالاضافة الى تعديل صورة الخلفية ايضا هناك إضافة صغيرة للتحكم فى الحد الادنى لأبعاد الفورم Resize Userform تغيير حجم اليوزرفورم بالماوس.rar

ماشاء الله مجموعة اكواد احترافية جميلة

السلام عليكم كل عام وانتم بخير استكمالا للموضوع الذى بدأه الاستاذ المبدع ياسر خليل فقد قمت ببرمجة نسخة مستقلة من مكتبة الاكواد (ملف تنفيذى لا يحتاج الاكسل) ومزودة بامكانيات اكبر للبحث والتصنيف بواسطة المجموعة او جزء من العنوان او الكود ... وكذلك يقوم بفتح ملفات الأمثلة المرفقة بواسطة زر يتم تفعيله اذا كان هناك ملف مرفق وكنت اتمنى ان استكمل الامثلة والاكواد لكن الوقت لم يسعفنى..... ارجو تجربته واخبارى عن اى اخطاء برمجية وسوف احاول استكمال الامثلة واضافة اكود جديدة ونشرها بعد التعديل رابط التحميل: http://www.bscenter.co/downloads/vbaforexcelcodes.rar

اتفضل التعدبل نسخ صفوف في عده اوراق ..3.rar

السلام عليكم واضح من الملفات انها مصدرة من موبايل بيستعمل تشفير utf-8 للأسماء بالعربى انا ممكن اخد لك اسم الملف مع رقم التليفون واعمل لك قايمة بيهم وده فى المرفق لكن صعب انى ارجعها الى ملف VCF لو فى اللغة العربية انما ممكن بالانجليزية لان وقتها مش هايكون فيه تشفير ياريت تشوف اذا كان ممكن تعمل تصدير بصيغة csv VCF.rar

السلام عليكم هى المشكلة عند قصى ولا عند ابو سليمان ؟ ولو كانت عند قصى: حسب ما فهمت من المشاركة #11 ان الكود اشتغل عنده وكان عنده مشكلة بسيطة

السلام عليكم مرفق الملف شااملا الفورم وطريقة اضافة المستعرض الى الفورم مع تحياتى Form.rar

السلام عليكم مجهود رائع يا استاذ ياسر لكن لي كام اقتراح صغير ارى انه من الأفضل ان يظهر الشرح مع الاكواد فى وقت واحد يمكن إضافة عمود للتجميع (مثلا التعامل مع الخلايا ، التعامل مع الملفات ، التفاعل مع ال user forms .......) , وتحت كل مجموعة عدد ويمكن وضع المجموعات فى كمبو بوكس انا برضة ملاحظ ان اخر تحديث من شهور اخوك أسامة

برجاء ارفاق مجموعة من الملفات لعمل المطلوب

السلام عليكم مرفق اخر لجب البيانات (من جميع الملفات csv) الى ملف اكسل واحد وسهل الاستخدام ... 1- ممكن فى اول استخدام تشيل اى اوراق عمل (شيتات) زائدة عن الحاجة ما عدا الشيت الرئيسى 2- اختار المجلد الذى يحتوى ملفات CSV المطلوب استدعائها 3- يقوم البرنامج باستدعاء بيانات الملفات كل واحد فى شيت منفصل 4- البيانات المتجددة من عمود A حتى J 5- اعمل الدوال والوظئف التى تريدها خارج هذه الاعمدة 6- لتحديث البيانات هناك طريقتين الاولى : بالضغط على المفتاح (جلب البيانات) : بيمسح اى بيانات موجودة فى الشيتات تقع فى الاعمدة A حتى J (وتستدعى اى ملفات جديدة ان وجدت) من المجلد الذى تقوم بتحديده (نغ=فس الخطوات 2 ، 3) الثانية: تستلزم ان تكون الملفات الجديدة فى نفس المجلد القديم ، وتقوم بعمل تحديث تلقائى للبيانات (لو فيه اى ملفات جديدة لن تشملها ) Import From CSV to Excel Rev 02.rar 2جلب البيانات اول مرة

السلام عليكم مرفق حل بسيط لعله يفى بالغرض المصنف1.rar

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

السلام عليكم مرفق ملف يؤدى الغرض المطلوب (جربه بس ياريت تغير اسامى المجلدات اللى انت مستخدمها لو حصل معاك مشكلة ) مع ملاحظة التالى الملفات الاصلية تنسيقها CSV زى مانت باعتها الملفات المستهدفة اللى انت ها تشيل فيها البيانات وتكون عامل فيها المعادلات لازم تكون اكسل البرنامج بيدور على اسامى الملفات الاصلية واذا لم يجدها بيلون الخلية اللى فيها اسم الملف المفقود وكمان بيدور على الهدف مع امكانية نه يعمل لك الملف لو لم يجده او يضع لون اخر على اسمه وده حسب اختيارك الملف غير مقيد انه يكون مع الملفات الاصلية او المستهدفة ..... ولكن لازم يكونوا الاتنين تحت مجلد رئيسى واحد Start Backup From CSV to Excel.rar

السلام عليكم لكى تجعلها قاصرة على هذا الملف وحده يمكنك ربطها بالاحداث Private Sub Workbook_Activate للبداية بدلا من Workbook_open وانهائها بالحدث Private Sub Workbook_WindowDeactivate بدلا من Workbook_BeforeClose هذا رأيي وجربته عندى ويمكنكم تجربته لتأكيد صحته Private Sub Workbook_Activate() Dim NewControl As CommandBarControl On Error Resume Next Application.CommandBars("Cell").Controls("Show Date And Time").Delete On Error GoTo 0 Set NewControl = Application.CommandBars("Cell").Controls.Add With NewControl .Caption = "Show Date and Time" .OnAction = "Module1.DateAndTime" .BeginGroup = False End With End Sub Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) On Error Resume Next Application.CommandBars("Cell").Controls("Show Date and Time").Delete End Sub

يمكنك اضافة السطر ده فى داخل الكود او اضافته فى كود منفصل مع تغيير اسم الشيت (sheet1 ) الى اسم الشيت الذى ترغب فى تنظيفة وتعديل المدى ("a6:ak100") حسب الحاجة Sub Clear_Colour() Sheets("sheet1").Range("a6:ak100").Interior.ColorIndex = 0 End Sub

الله يكرمك يا استاذ ياسر بالمنتدى من هم اقوى منى فى التعامل مع الفورم والاغلب انهم ايضا اكثر موهبة فى الشرح والتفصيل مثل الاستاذ عبدالله قشير والعديد من الأساتذة الخبراء ومثال على اعمالهم ما نقوم الان بشرحه وهو موجود فى http://www.officena.net/ib/index.php?showtopic=53104 وسوف احاول عمل شرح لبعض النماذج ومكونات الفورم قدر ما امكننى ان شاء الله على احد اعمالهم الموجودة بالمنتدى جزءا بجزء

لو عايز شرح حاجة تانى قول

اتفضل ترحيل الدور الثاني-OB4.rar

[السلام عليكم مرفق المطلوب + كود للتنظيف + فورم لو عايز تجهز كل شيت لوحده نسخ صفوف في عده اوراق.rar

السلام عليكم الشيت المرفق به ما تريد لكن ...................... أحذر هناك عيب لهذه الفكرة (عن تجربة شخصية) سوف تفقد اى امكانبة للتراجع عن التغييرات CTRL+Z لان الكود يعمل عندما تتحرك من الخلية وفى هذة الحالة لا يستطيع البرنامج عمل UNDO !!! تلويين السطر الخلية.zip