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

أخي الكريم أبو عبد الملك يكفي لهذا الموضوع هذه المشاركة الأخيرة إليك الملف التالي عله يفي بالغرض Sub TransferData() 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 + 1 X = LR_WS - 1 Application.ScreenUpdating = False Answer = MsgBox("هل أنت متأكد من ترحيل البيانات من ورقة التقرير الشهري إلى ورقة مجمع النتائج الشهرية؟", vbInformation + vbMsgBoxRight + vbYesNo) If Answer = vbYes Then If Application.WorksheetFunction.CountA(WS.Range("A2:V" & LR_WS)) < (22 * X) Then MsgBox "المعطيات ناقصة ويجب إكمالها قبل مواصلة عملية الترحيل", vbInformation + vbMsgBoxRight: Exit Sub WS.Range("A2:W" & LR_WS).Copy SH.Range("A" & LR_SH) With SH.Range("A2:A" & SH.Cells(Rows.Count, 1).End(3).Row) .Formula = "=ROW()-1": .Value = .Value End With Else MsgBox "لقد تم إلغاء عملية الترحيل", vbInformation + vbMsgBoxRight End If Application.CutCopyMode = False Application.ScreenUpdating = True End Sub قم بتجربة الكود أكثر من مرة .. وقم بمسح ولو خلية واحدة في ورقة العمل المسماة "التقرير الشهري" وشاهد النتائج بنفسك .. لابد من أن تكون كل الخلايا لحد العمود V بها بيانات وإلا لن ينفذ كود الترحيل .. أتركك مع الملف للتجربة Quran School V8.rar

ما هي المعطيات الناقصة في ورقة العمل "التقرير الشهري" ..؟ لأن هناك بعض الأعمدة لم يتم العمل عليها بعد ..حدد المعطيات بكل دقة واعذرني لأنني يبدو أنني لن أكمل معك حيث أنني سأسافر لبضعة أسابيع إن شاء الله أحد الاخوة يكمل معك المشوار .. الحمد لله وصلنا لمرحلة لا بأس بها .. أعتقد تعدت نسبة الـ 50% تقبل تحياتي

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

أخي الكريم أهلاً ومرحباً بك في المنتدى ونورت يا فورو يرجى الإطلاع على رابط التوجيهات لتتعلم كيفية التعامل مع المنتدى يرجى تغيير اسم الظهور للغة العربية يرجى في موضوعات أخرى أن ترفق ملف للعمل عليه إليك الملف التالي عله يكون المطلوب بإذن العلي الكبير لا تنسى أن تحدد أفضل إجابة عن طريق الضغط على كلمة "تحديد كأفضل إجابة" ؛ ليظهر الموضوع مجاب ومنتهي ، وان تضغط كلمة "أعجبني هذا" إذا أعجبك الحل تقبل تحياتي Quantity & Priice.rar

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

أخي الكريم قصي جرب الرابط التالي http://up.top4top.net/downloadf-top4top_d9321132191-rar.html

أخي أبو عبد الملك تعرف أن التوضيح هااااام جداً حتى لا يطول الكلام وتطول المحاولات ويضيع الوقت إليك الملف المرفق ورجاءً الدقة في التوضيح ..لأن كل كلمة تكتبها أقرأها أكثر من مرة للتأكيد قبل العمل حجم الملف 107 كيلو بايت Quran School V7.rar

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

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

راجع المدخلات في العمود L و M المجادلة 1 المرسلات 5 الناس 2 الحديد 20 الإخلاص 1 النبأ 1 الحشر 14 المجادلة 1 المجادلة 1 الحشر 14 هل هذه هي النتائج المتوقعة أم لا؟ المجادلة 22 الانسان 28 الكوثر 3 الواقعة 48 الفيل 3 النبأ 40 المجادلة 11 المجادلة 22 المجادلة 22 المجادلة 11 أرجو التأكد قبل العمل

أخي الكريم أبو عبد الملك عذراً للتأخر بالنسبة للمثال الأول : مثلا طالب بدأ من المجادلة 1 واذا رجعنا الى صفحة المنهج نجد رقمها في الجدول 221 فاذا حسبنا 10 اسطر انطلاقا من السطر 221 فسنقف في السطر رقم 230 اي الحديد3 (اي ان الطالب كان يفترض به ان يحفظ من المجادلة 1 الى الحديد 3 ). لما راجعت المثال الثاني والثالث وجدت اختلاف إذاً المثال الأول غير دقيق في وصه حيث يجب ان تكون السورة هي المجادلة 22 في الصف رقم 230 يرجى التأكيد على ما فهمته

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

أخي الغالي محمد الريفي أنا مش هرد عليك ..الملف المرفق هو اللي هيرد ..قم بالإطلاع على عدد الأوراق في المصنف وجرب تضيف أوراق أخرى Test.rar

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

أخي الكريم سمو الشرق إليك الكود التالي فيه المطلوب بإذن الله Sub CreateSheetAsCopyFromtemp() Dim WS As Worksheet: Set WS = Sheet1 Dim LR As Long: LR = WS.Cells(Rows.Count, "I").End(xlUp).Row + 1 Application.ScreenUpdating = False Application.DisplayAlerts = False If blnWorksheetExists(Format(Date, "yyyy-mm-dd")) Then MsgBox "ورقة العمل موجودة من قبل", vbInformation: Exit Sub Else With Sheets("Temp") .Visible = True .Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = Format(Date, "yyyy-mm-dd") With WS .Range("H" & LR).Value = .Range("H" & LR).Row - 4 .Range("I" & LR).Value = ActiveSheet.Name .Range("I" & LR).NumberFormat = "yyyy-mm-dd" .Hyperlinks.Add Anchor:=.Range("I" & LR), Address:="", SubAddress:="'" & Sheets(.Range("I" & LR).Text).Name & "'" & "!A1" End With .Visible = False End With End If WS.Activate Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Function blnWorksheetExists(strWorksheet As String) As Boolean On Error Resume Next blnWorksheetExists = Not (ThisWorkbook.Worksheets(strWorksheet) Is Nothing) On Error GoTo 0 End Function تم تعديل بسيط في ورقة العمل "الواجهة" لالغاء دمج الخلايا ، وتم إدراج صف مخفي ليناسب عمل الكود .. إذا أعجبتك الإجابة يرجى تحديد كأفضل إجابة ، ولا تنسى أن تضغط على كلمة "أعجبني هذا" تقبل تحياتي Create Sheet As Copy From Temp & Rename It By Date.rar

أخي الكريم أبو حنين إليك الملف التالي تم استخدام المعادلة التالية للإشارة إلى اسم الشيت الموجود في الخلية A1 =INDIRECT("'"&$A$1&"'!"&ADDRESS(1,1)&":"&ADDRESS(2,1)) أرجو أن يكون المطلوب لا تنسى التوجيهات .... تقبل تحياتي Validation List Based On Sheet Name.rar

.جرب تروح على التبويب Page Layout ومن الأمر Breaks جرب تدوس Reset All Page Breaks ومن الأمر Print Area انقر Clear Print Area هل نفذت هذه الخطوات؟

أخي محمد الريفي تم رفع الملف في المشاركة رقم 5 مرة أخرى لاكتشافي وجود خطأ أثناء سحب المعادلة بالنسبة للنتائج في ملفك فيما يخص الكسر يجب مراجعتها هل حساب الكسر صحيح أخي الكريم MGS؟ أعتقد أنه يجب أن تكون المعادلة في الخلية E4 في مرفق الأخ محمد بهذا الشكل =(A4-TRUNC(A4,0))*$C$3 تقبلوا تحياتي

العفريت ظهر ..العفريت ظهر كل واحد فيكم يستخبى !! فينك يا مشرفنا الكبير مختفي بقالك فترة .. أكيد كنت بتصيف أو كنت بتصطاد ..طيب ابعت لنا Invitation نقضي معاك يوم ولا اتنين وبلاش تطنش وتعمل Cancel لأحسن أعملك Delete من قلبي

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

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

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

أخي الكريم MGS يرجى الإطلاع على رابط التوجيهات كما يرجى تغيير اسم الظهور للغة العربية .. سؤال : هل إنت من أسبانيا أو عايش في أسبانيا ؟ ولا إنت مخلي إعدادات الويندوز عندك بالأسباني؟ إليك الملف المرفق عله يكون المطلوب تقبل تحياتي aceptar saludos INT & MOD.rar

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

للحصول على الرقم الصحيح استخدام الدالة INT أو ارفق ملف كما أرشدك أخي وحبيبي في الله محمد الريفي