أبو عبد الملك السوفي

السلام عليكم بوركت استاذ ياسر الكود يعمل بشكل ممتاز جزاك الله خيرا

السلام عليكم اولا بارك الله فيك استاذ ياسر ثانيا التعديل يظهر خطأ في كلمة WS.Range ويصبح عنوان الكود اصفر اين المشكل

السلام عليكم اساتذتنا الكرام عندي كود ترحيل اريد تعديله والكود يقوم بترحيل البيانات من صفحة قاعدة البيانات الى مجمع النتائج الفصلية وبعد الترحيل يخيرك هل تريد مسح البيانات من صفحة قاعدة البيات ام لا وهنا يأتي التعديل اريد من الكود ان يستثني بعض الاعمدة من المسح وهي m -q - r - t Sub TransferDataMonth() Dim WS As Worksheet, SH As Worksheet Dim LR_WS As Long, LR_SH As Long Dim Answer As Long, X As Long Set WS = Sheets("ÝÇÚÏÉ ÇáÈíÇäÇÊ"): Set SH = Sheets("ãÌãÚ ÇáäÊÇÆÌ ÇáÝÕáíÉ") LR_WS = WS.Cells(Rows.Count, 1).End(3).Row LR_SH = SH.Cells(Rows.Count, 1).End(3).Row + 3 X = LR_WS - 1 Application.ScreenUpdating = False Answer = MsgBox("åá ÃäÊ ãÊÃßÏ ãä ÊÑÍíá ÇáÈíÇäÇÊ ãä æÑÞÉ ÇáÊÞÑíÑ ÇáÔåÑí Åáì æÑÞÉ ãÌãÚ ÇáäÊÇÆÌ ÇáÔåÑíÉ¿", vbInformation + vbMsgBoxRight + vbYesNo) If Answer = vbYes Then If LR_WS = 1 Then MsgBox "æÑÞÉ ÇáÊÞÑíÑ ÇáÔåÑí áíÓ ÈåÇ ÈíÇäÇÊ ááÊÑÍíá", vbInformation + vbMsgBoxRight: Exit Sub WS.Range("A5:aa" & LR_WS).Copy SH.Range("A" & LR_SH) Answer = MsgBox("ÇáÍãÏ ááå Êã ÇáÊÑÍíá ÈäÌÇÍ" & vbNewLine & "åá ÊÑíÏ ãÓÍ ÇáÈíÇäÇÊ Ýí æÑÞÉ ÇáÊÞÑíÑ ÇáÔåÑí¿", vbInformation + vbMsgBoxRight + vbYesNo) If Answer = vbYes Then WS.Range("h5:aa" & LR_WS).ClearContents Else: End If Else MsgBox "áÞÏ Êã ÅáÛÇÁ ÚãáíÉ ÇáÊÑÍíá", vbInformation + vbMsgBoxRight End If Application.CutCopyMode = False Application.ScreenUpdating = True End Sub برنامج المتابعة.rar

ممتاز هذا هو المطلوب جزيت خيرا اخي الفاضل

السلام عليكم أحبابنا في منتدى اوفيسنا أسال الله ان يكون الجميع بخير وعافية ان شاء الله في هذا الموضوع اود طلب كود يقوم باخفاء الاعمدة من H الى M عدى العمود المحدد في الخلية B2 مثلا اذا كانت الخلية B2 مكتوب فيها رياضيات تختفي الاعمدة من H الى M الا العمود H لانه مكتوب به رياضيات وهكذا لواخترت مادة اخرى في الخلية B2 ستختفي كل الاعمدة ما عدا العمود الذي به تلك المادة اخفاء العمود بشرط خلية.rar

السلام عليكم هل حل الاخ زيزو هو المطلوب

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

ألا يوجد حل استاذ العيدروس كاستبدال الكود بآخر او فصله عن كود الاستاذ ياسر

اعذرني لم افهم ماذا تقصد

لم تنجح العملية

السلام عليكم ساجرب واخبرك بالنتيجة

هذا هو الفديو 1.rar

السلام عليكم أستاذ ياسر لا مانع من عمل كود منفصل لكم ما سبب عدم عمله على 2010 استاذ العيدروس صانصب البرنامج جزاكم الله كل خير وابعد عنكم كل شر

السلام عليكم ارجوا ممن يطلع على ه>ا الموضوع ويملك اوفيس 2007 ان يجرب هذا الملف فيدخل لصفحة التقرير الشهري ويضغط ايقونة run ويخبرني هل العمودين m l تم استدعاؤهما ام لا ويحبذا لو يرفق صورة للنتيجة لاني اعمل مع الاستاذ القدير العيدروس على كود لكنه الظاهر انه يعمل في اوفيس 2007 ولا يعمل في 2010 ولم نعرف السبب هذا رابط الملف http://www.up-00.com/?nQVL وهذا رابط الموضوع لمن اراد المشاركة في الحل http://www.officena.net/ib/topic/64859-%D8%AA%D8%B9%D8%AF%D9%8A%D9%84-%D9%83%D9%88%D8%AF-%D8%A7%D9%84%D8%A3%D8%B3%D8%AA%D8%A7%D8%B0-%D9%8A%D8%A7%D8%B3%D8%B1/?page=2#comment-423947 جزاكم الله كل خير

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

لكن كيف

استاذي هل لغة الاكسل تؤثر في البرمجة فانا لغة البرمجة فيه فرنسية مثلا في دوال التاريخ تجد السنة année وليست year

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

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

عملت الشيئن معا ولم يعمل المشكل في الاضافة التي اضفتها هي فقط التي تعمل

2010

الظاهر من التسجيل انه يعمل بشكل ممتاز لكنه لم يعمل عندي جلب كل البيانات الا البيانات المطلوبة في العودين m l

هل المشكلة في الاكسل عندي لكن الكود القديم للاستاذ ياسر يعمل بشكل ممتاز

للاسف لم ينجح أضن اني اكثر شخص يزعج اساتذة هذا المنتدى

لم يعمل لا ادري مالسبب