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

ضراحة أنا بدأت أتوه منك جرب تغير العلامة < إلى العكس في السطر الأول .. شوف هتظبط معاك زي ما إنت عايز أو لا .. لأني والله حاسس إني بوادي وإنت بوادي ..

ذكرت لك رقم السطر (الخامس من تحت) عموما جرب Private Sub Workbook_Open() If Date < CDate("30/06/2016") Then If InputBox("انتهاء صلاحية البرنامج لاعادة التفعيل أدخل كلمة السر ") <> "123" Then MsgBox "كلمة المرور خطائة " ThisWorkbook.Close If CloseMode = vbFormControlMenu Then Cancel = True MsgBox " !!! سوف يتم اغلاق البرنامج نهائياً " Application.DisplayAlerts = False Application.Quit End If Else MsgBox "تفضل بالدخول كلمة المرور صحيحة " UserForm2.Show Sheet3.Select Range("B1").Select Exit Sub End If Else Sheet3.Select Range("B1").Select End If End Sub

أستاذي وحبيبي في الله جمال عوداً أحمد ..أو عوداً جمال .. لكم يسعدني أن أرى مشاركاتك في المنتدى (بس يا ريت متطولش غيابك عننا) وبعدين : إذا حضر الماء بطل التيمم ، وأنت ملك المعادلات بلا منازع .. فيه طلب لي في هذا الرابط أرجو الاهتمام به http://www.officena.net/ib/index.php?showtopic=59651

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

جرب شيل السطر الخماس من تحت .. UserForm2.Show ليعمل بشكل طبيعي إذا كان التاريخ الحالي أكبر من التاريخ المسجل بالكود

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

جرب الملف التالي .. Translator Arabic-French.rar

طيب إمبارح كان الجمعة وعذرناكم .. يا ترى هتعبرونا بالرد إمتى ؟ ولا مفيش مشرفين بالمنتدى اليومين دول ..(صحيح الكرسي بيغير النفوس)

أخي الفاضل نور (اللي مش وحيد) .. إن كان حبيبك ياسر غلس عليه براحتك ، وكله كله (جناس تام) إليك الشرح لعله يفيدك Sub Tarhil() 'تعريف المتغيرات Dim LR As Long Dim X, Y, Z, I As Long Dim WS As Worksheet, SHSales As Worksheet, SHPurchases As Worksheet 'لورقة العمل المسماة الفاتورة[WS]تعيين المتغير المسمى 'لورقة العمل المسماة المبيعات[SHSales]تعيين المتغير المسمى 'لورقة العمل المسماة المشتروات[SHPurchases]تعيين المتغير المسمى Set WS = Sheets("الفاتورة"): Set SHSales = Sheets("المبيعات"): Set SHPurchases = Sheets("المشتروات") 'في حالة حدوث خطأ في سطر ما ينتقل للسطر التالي On Error Resume Next 'تعيين آخر صف به بيانات في ورقة العمل المسماة الفاتورة في العمود الثاني LR = WS.Cells(Rows.Count, 2).End(xlUp).Row 'قيمتها تساوي كلمة مبيعات يتم تنفيذ الأسطر التالية[G1]إذا كانت الخلية If WS.Range("G1").Value = "مبيعات" Then 'رسالة تفيد بأن عملية الترحيل ستتم لورقة العمل المبيعات MsgBox "سيتم الترحيل إلى ورقة العمل مبيعات" 'حلقة تكرارية من الصف رقم 3 إلى آخر صف For I = 3 To LR 'يحمل رقم عملية البحث عن العميل الموجود اسمه في العمود السابع ، ويتم البحث في الصف الأول من ورقة المبيعات[X]المتغير X = Application.WorksheetFunction.Match(WS.Cells(I, 7).Value, SHSales.Rows(1), 0) 'يحدد آخر صف به بيانات في ورقة العمل المبيعات تبعاً للعمود الموافق لعملية البحث[Y]المتغير Y = SHSales.Cells(Rows.Count, X).End(xlUp).Row + 1 'نسخ العمود الأول من ورقة الفاتورة لورقة المبيعات WS.Cells(I, 1).Copy SHSales.Cells(Y, X) 'نسخ الأعمدة بداية من العمود رقم 3 إلى العمود رقم 8 في الفاتورة إلى ورقة المبيعات WS.Range(Cells(I, 3), Cells(I, 8)).Copy SHSales.Cells(Y, X + 1) Next I 'أما إذا كانت الخلية قيمتها كلمة مشتروات يتم تنفيذ الأسطر التالية ElseIf WS.Range("G1").Value = "مشتروات" Then 'رسالة تفيد بأن عملية الترحيل ستتم لورقة العمل المشتروات MsgBox "سيتم الترحيل إلى ورقة العمل مشتروات" 'حلقة تكرارية من الصف رقم 3 إلى آخر صف For I = 3 To LR 'يحدد آخر صف به بيانات في ورقة العمل المشتروات في العمود الأول + 1[Z]المتغير Z = SHPurchases.Cells(Rows.Count, 1).End(xlUp).Row + 1 'نسخ العمود الأول من ورقة الفاتورة لورقة المشتروات WS.Cells(I, 1).Copy SHPurchases.Cells(Z, 1) 'نسخ الأعمدة بداية من العمود رقم 3 إلى العمود رقم 8 في الفاتورة إلى ورقة المشتروات WS.Range(Cells(I, 3), Cells(I, 8)).Copy SHPurchases.Cells(Z, 2) Next I End If 'مسح النطاق الذي يحتوي على بيانات الفاتورة WS.Range("B3:H100").ClearContents End Sub

مشكور على مرورك العطر أبا إسماعيل بارك الله فيك وجزيت خيراً على دعائك الطيب

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

جرب الكود بهذا الشكل ويرجى تجربة التواريخ المختلفة لموافاتنا بالنتائج ، مش تيجي بعد ما نسيت الموضوع ترجع تقولي مش عارف ايه (بهزر معاك ..براحتك يا عم .. في أي وقت) Private Sub Workbook_Open() If Date < CDate("30/06/2016") Then If InputBox("انتهاء صلاحية البرنامج لاعادة التفعيل أدخل كلمة السر ") <> "123" Then MsgBox "كلمة المرور خطائة " ThisWorkbook.Close If CloseMode = vbFormControlMenu Then Cancel = True MsgBox " !!! سوف يتم اغلاق البرنامج نهائياً " Application.DisplayAlerts = False Application.Quit End If Else MsgBox "تفضل بالدخول كلمة المرور صحيحة " UserForm2.Show Sheet3.Select Range("B1").Select Exit Sub End If Else UserForm2.Show Sheet3.Select Range("B1").Select End If End Sub

تفضل أخي الحبيب Sub TransferData() Dim WS As Worksheet, SH As Worksheet Set WS = Sheets("tax"): Set SH = Sheets("tax41") Application.ScreenUpdating = False 'العمود الأول WS.Range("A2:A15").Copy SH.Range("A2").PasteSpecial xlPasteValues 'العمود الثاني WS.Range("B2:B15").Copy SH.Range("H2").PasteSpecial xlPasteValues 'العمود الثالث WS.Range("C2:C15").Copy SH.Range("G2").PasteSpecial xlPasteValues 'العمود الرابع WS.Range("D2:D15").Copy SH.Range("F2").PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = True End Sub exeg.rar

الاخ حمود .. أديك عرفت النظام .. واللي إنت عملته كدا تمام التمام .. ربنا يخليك على طاعته والسلام .. ومشكور على اهتمامك يا همام والسلام مسك الختام !! طلعت شاعر وأنا مش واخد بالي (واحد قرا مش على إنه المش اللي بيتاكل ..مقبولة منك يا اللي قريتها كدا)

السلام عليكم ورحمة الله وبركاته أحاول أن أقوم بعملية تنشيط للمنتدى بهذه الموضوعات ، لعل وعسى أن يكون هناك تجاوب من قبل الأعضاء ، ويستفيدوا مما يقدم .. أقدم لكم كود خفيف ما قبل النوم .. الكود بسيط جداً ، وهو ذو فائدة للمبتدئين حتى يتسنى لهم التعامل مع أوراق العمل ، سنتعبرها بداية .. الملف المرفق مكون من 3 أوراق عمل ، الورقة الرئيسية Main وتحتوي على زر الأمر ، وورقة العمل Data المراد نسخ البيانات الموجودة فيها ، وورقة العمل Result المراد لصق البيانات فيها الكود المرفق يقوم بنسخ كامل البيانات من ورقة العمل Data ثم يقوم بتحديد ولصق البيانات المحفوظة في الحافظة Clipboard ويتم لصقها في ورقة العمل Result >> انتهى الكود بهذا الشكل (مع شرح الأسطر في الكود) Sub CopyEntireSheet() 'تعريف المتغير من النوع مصنف Dim WB As Workbook 'تعيين المتغير للمصنف الحالي الذي يحوي أوراق العمل المطلوب العمل عليها Set WB = ActiveWorkbook '[Data]نسخ النطاق المستخدم في ورقة العمل المسماة WB.Sheets("Data").UsedRange.Copy 'ثم لصق البيانات الموجودة في الحافظة[Result]تحديد ورقة العمل المسماة With WB.Sheets("Result") .Select: .Paste End With End Sub أتمنى أن يفيدكم هذا الكود .. هذا الكود عملي ، وربما تحتاج لمثله كثيراً . تقبلوا تحيات أخوكم أبو البراء (تصبحون على خير إخواني الكرام) دمتم في رعاية الله وطاعته .. وطابت أنفسكم .. ونقى الله قلوبكم من الكراهية والبغضاء والحقد والحسد والغل ومن كل أمراض القلوب Copy Entire Data From One Sheet To Another.rar

هذه آخر محاولة مني ..أنا تعبت من الموضوع ، لأنك مش بتوضح من بدري ، وطرحت عليك الكثير من الأسئلة ، وكلما اقرتبنا من الحل ، ابتعدنا مرة أخرى إليك الملف المرفق ، وإن شاء الله ، بإذن الله يؤدي الغرض Copy And Paste V5.1 Final.rar

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

أنا كدا هنجت .. اضغط F5 عشان تعملي ريفريش !!

تفضل الملف المرفق وجرب رغم أنك لم تجب على تساؤلاتي .. Copy And Paste V5.rar

أخي الكريم ياسر .. مشكور على مرورك العطر ، وعلى تشجيعك وما أنا إلا قطرة في محيط المنتدى ، (بس القاطرة دي مش مؤنث ..بل رجل ، لتفكرني قاطرة .. وتاخدني للقطر يعاكسني)

وجزيت خيرا يا با شمهندس ..ومشكور على تشجيعك الدائم لي

أخي الحبيب الصورة أصبحت مشوشة قليلاً أجب عن الآتي : هل التغيير الذي تقصده سيكون في نفس الورقة ؟ هل التغيير في نفس الورقة في العمود D ؟ كيف يكون التغيير في العمود D وهو يحتوي على معادلة ؟ إذا كان الأمر كذلك إذا التغير الذي تقصده في العمود المرتبط بالمعادلة ؟ هل التغيير المطلوب لصف واحد فقط أم لجميع الصفوف التي تحتوي على كلمة Yes مرة واحدة في كل تغيير ؟ كل هذه الأسئلة لا أجد لها جواباً واضحاً

في الخلية E4 ضع هذه المعادلة .. وحاول تكمل باقي المعادلات على نفس المنوال =SUMPRODUCT((منظومة!$W$2:$W$1000=$A4)*(منظومة!$K$2:$K$1000=التقرير!E$2)*(منظومة!$G$2:$G$1000)) وفي الخلية F4 الخاصة بالمبالغ جرب =SUMPRODUCT((منظومة!$W$2:$W$1000=$A4)*(منظومة!$K$2:$K$1000=التقرير!E$2)*(منظومة!$G$2:$G$1000)*(منظومة!$H$2:$H$1000)) .. تقبل تحياتي

جزاك الله خيراً أخي الحبيب خزاني .. مشكور على مرورك العطر ..

موضوع مكرر يرجى حذفه