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

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

أبي الحبيب أبو يوسف جرب التعديل التالي عله يفي بالغرض =CONCATENATE([@[نقد/ شيك]]," ",[@المصرف]," ",[@[رقم الشيك]],"-",TEXT([@[تاريخ الشيك]],"yyyy/mm/dd")) تقبل وافر تقديري واحترامي

بارك الله فيك أخي الحبيب سليم ولا حرمنا الله من إبداعاتك المنقطعة النظير تقبل وافر تقديري واحترامي

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

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

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

أخي الحبيب مختار إنت ملكش حل !! مدهش كعادتك دائماً بارك الله فيك وفي وقتك وفي مالك وفي أهلك وأولادك تقبل تحياتي

أخي الكريم يبدو أن الأداة Microsoft Web Bworser لا تعمل في الإصدارات الحديثة هذا والله أعلم

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

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

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

أخي الكريم محمد الزريعي في هذه الحالة ستقوم بضرب 20 * 50 = 1000 .. فوجب التعديل على السطر التالي ReDim ArrOut(0 To 14) ليصبح بهذا الشكل ReDim ArrOut(0 To 999) أرجو أن يكون المطلوب قد تكون المشكلة في أن هناك حد أقصى لعدد القوائم المخصصة ..أعتقد أن الأمر سيحتاج لتناول الموضوع من جديد بوجهة نظر جديدة

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

جزاك الله خيراً أخي الحبيب ياسر يرجى إرفاق ملف مع الموضوع لسهولة متابعة الأخوة (إنت عارف الكسل ...معلش هنتعبك يا عسل)

بارك الله فيك أخي الغالي ياسر على موضوعاتك المميزة

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

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

مشكور على الهدية الرائعة والجميلة أخي الغالي ياسر فتحي بارك الله فيك وجزاك الله خيراً دمت ودامت هداياك الثمينة

أخي الكريم أبو وليد رغم أن الطلب غريب بعض الشيء .. ولكن جرب التعديل التالي عله يفي بالغرض Sub TransferToAllSheets() 'Author : YasserKhalil 'Released : 02 - Dec. - 2015 'Use : The Code Transfers Data In Column B To Its Proper Sheet In A ' If Value Found In The Target Sheet, It Won't Be Transferred. '------------------------------------------------------------------------- Dim Cel As Range Dim LR As Long With Application .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlCalculationManual End With For Each Cel In Sheets("Main").Range("A2:A" & Sheets("Main").Cells(Rows.Count, 1).End(xlUp).Row) If Evaluate("=ISREF('" & Cel.Value & "'!A1)") Then With Sheets("" & Cel.Value & "") LR = .Cells(Rows.Count, 1).End(xlUp).Row + 1 If Application.WorksheetFunction.CountIfs(.Range("A2:A" & LR), Cel.Offset(0, 1), .Range("C2:C" & LR), Cel.Offset(0, 3)) Then GoTo Skipper If LR >= 12 Then LR = 2 .Range("A" & LR).Resize(, 4).Value = Cel.Offset(0, 1).Resize(, 4).Value Cel.Offset(0, 10) = .Range("A" & LR) End With End If Skipper: Next Cel With Application .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlCalculationAutomatic End With End Sub Sub ClearAllSheets() Dim WS As Worksheet For Each WS In ThisWorkbook.Sheets If WS.Name <> "Main" Then WS.Range("A2:D1000").ClearContents Next WS Sheets("Main").Range("K2:K1000").ClearContents End Sub تقبل تحياتي

أخي الكريم عصام جرب الكود التالي عله يكون المطلوب إن شاء الله Sub Wait10Seconds() Application.Calculation = xlManual Application.Wait (Now + TimeValue("0:00:10")) Application.Calculation = xlAutomatic End Sub تقبل تحياتي

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

أخي الكريم وائل حاول تتابع الرود من البداية عشان تقدر تفهم القصة اللي ع المصطبة سمعتهم بيقولوا أدخل أي أرقام مع العلم أنني لم أجرب بعد تنصيب البرنامج ..بتابع من بعيد بس (اصبر عليا يا عربي ..)

اخي الحبيب أبا الحسن والحسين ملف جميل ورائع .. تعجبني أفكارك جزاك الله خير الجزاء

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

أخي الحبيب أبو عيد بارك الله فيك وجزاك الله خيراً إثراءً للموضوع .. هذا كود آخر يفي بالغرض Sub CreateSheets() Dim SH As Worksheet For Each SH In Worksheets SH.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = SH.Name & "N" Next SH End Sub تقبلوا تحياتي