ياسر خليل أبو البراء

تفضل الملف التالي لعله يفيدك Hossam UDF.rar

شاهد الفيديو التالي لعله يفيدك إن شاء الله

وعليكم السلام ورحمة الله وبركاته جرب الكود التالي عله يفي بالغرض إن شاء الله Sub TransferBankDetails() 'YasserKhalil *** 06-06-2017 '--------------------------- Dim ws As Worksheet Dim sh As Worksheet Dim fn As Variant Dim lr As Long Application.ScreenUpdating = False Set sh = ThisWorkbook.Sheets("الشيكات المنصرفة") For Each ws In ThisWorkbook.Worksheets If Left(ws.Name, 5) = "البنك" Then fn = Application.Match("شيكات " & ws.Name, sh.Rows(1), 0) If Not IsError(fn) Then lr = sh.Cells(Rows.Count, fn).End(xlUp).Row + 1 sh.Cells(lr, fn).Value = ws.Range("B2").Value sh.Cells(lr, fn + 1).Value = ws.Range("D7").Value sh.Cells(lr, fn + 2).Value = ws.Range("A8").Value sh.Cells(lr, fn + 4).Value = ws.Range("F10").Value End If End If Next ws Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub

بل أنت معلمنا وأستاذنا أخي الحبيب خالد ولكم استفدت كثيراً مما تقدمه وتعرضه .. بارك الله فيك وجزاك الله خير الجزاء في الدنيا والآخرة وكل عام وأنت بخير .. تقبل الله منا ومنكم صالح الأعمال

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

وعليكم السلام أخي الغالي خالد .. حلك أبسط وأجمل وأيسر .. بارك الله فيك وجزاك الله خيراً

وجزيت خيراً أخي العزيز أبو عبد الواجد وكل عام وأنت بخير

ولمن يريد الصورة مجمعة في ملف واحد يمكن تحميله من الرابط التالي من هنا

أخي الكريم ارفق الملف الذي لا يعمل معك للإطلاع عليه .. ومحاولة معرفة السبب

حاولت في طلبك ولكن لم أجد طريقة في الواقع وسأحاول مجدداً في أقرب وقت إن شاء العلي القدير ، وننتظر مساهمات الأخوة الأعضاء ولو بفكرة

وعليكم السلام نسيت أن أذكر لك أن هذا من عيوب تحريك النص حيث أن ذلك يعيق التعامل مع الملف بشكل كبير .. لذا يوجد في الكود سطر أنه إذا كان التحديد لأي خلية أخرى لا يتم تفعيل الكود إنما يتم تفعيله بعد اختيار الخلية المحددة ولإيقاف الكود يجب الدخول لمحرر الأكواد وجرب تعديل السطر بالشكل التالي If Target.Address <> "$C$12:$K$12" Then End: Exit Sub

السلام عليكم أخي العزيز ناصر قم بتسجيل ماكرو بالخطوات المطلوب لتنسيق الخلايا وستحصل على الكود .. الكود فكرته بسيطة عبارة عن نسخ ثم لصق خاص ثم تختار التنسيقات من الخيارات المتاحة تقبل الله منا ومنكم صالح الأعمال

اعمل كليك يمين على ورقة العمل واختر View Code وضع الكود في حدث ورقة العمل وليس داخل موديول كما هو مرفق لديك راجع الملف الذي أرفقته ستجد الكود في حدث ورقة العمل كما يوجد كود آخر في حدث المصنف ThisWorkbook

تفضل أخي الكريم (ولو أردت دعمي قم بتحميل الملف من الموقع الذي أرفع عليه ملفاتي فالأمر لا يستغرق أكثر من دقيقة واحدة) Marquee Movable Text In Worksheet Selection Change YasserKhalil Officena.rar

السلام عليكم إليك طلبك في الملف التالي أخي الكريم من هنا

وعليكم السلام أهلاً بك أخي الكريم في المنتدى ونورت بين إخوانك وكل عام وأنت بخير قم بإرفاق ملف ليتمكن الأخوة الكرام من تقديم المساعدة المطلوبة .. أعتقد أن مشكلتك حلها استخدام دالة البحث VLOOKUP

وعليكم السلام إليك الملف التالي فيه ما تريد إن شاء الله من هنا

وعليكم السلام هل بعد الحفظ مطلوب أن يكون التعديل على الملف بكلمة سر أم أنك تريد أن تمر الفترة الزمنية المحددة أولاً ثم المطالبة بكلمة سر أم أنك تريد أن تمر الفترة الزمنية المحددة ثم يسمح للمستخدم بعملية الإدخال مرة أخرى وهل سيظل الملف مفتوحاً أم سيغلق بعد أول عملية حفظ الطلب غريب نوعاً ما لذا لابد من كافة التفاصيل ليساعدك إخوانك بالمنتدى

وعليكم السلام ضع السطر التالي Range("a" & x + 1).Value = Range("a" & x + 1).Row - 1 بعد السطر التالي x = Range("b" & Rows.Count).End(xlUp).Row في كود زر الأمر CommandButton1 Private Sub CommandButton1_Click()

وعليكم السلام في كود الفورم المسمى UserForm1 يوجد السطر التالي Do Until ورقة1.Cells(mm, "A").Text = "" وورقة1 لس لها وجود .. حيث أن ورقة1 اسم برمجي لورقة عمل يفترض وجودها .. غير ورقة1 إلى الاسم البرمجي للورقة المطلوبة وإن شاء الله تحل المشكلة

ممكن ترفق نموذج مصغر من الملف الذي تعمل عليه

السلام عليكم جرب محاولة عمل إصلاح لنسخة الأوفيس Repair .. لربما حدث تلف بالنسخة (مجرد احتمال)

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

إذاً حاول نقل الملف للمسار الأصلي الذي كان فيه قبل ذلك لترى هل ستحل المشكلة أم لا ما هي نسخة الأوفس التي تعمل عليها؟

السلام عليكم قد يكون حدث تلف في برنامج مشغل ملفات الـ PDF .. لذا جرب إعادة تنصيب البرنامج Adobe Acrobat Reader مرة أخرى تقبل تحياتي