نجوم المشاركات

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

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

السلام عليكم ملف مرفق به ما ذكر في العنوان نسأل الله لنا ولكم دوام الصحة والعافية ترحيل البيانات بدون تكرار للاسماء.rar

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

السلام عليكم ورحمة الله وبركاته أخى الحبيب الغالى زيزو البسكرى أنا بخير والحمد لله يعلم الله أنك وحشتنى بجد من عدة أيام أنا منتظر ظهورك كيفك ؟ وكيف حالك ؟ لعلك بخير لك منى كل تحية وتقدير أما أنت يا أبو العربى وحشتنى شقاوتك يا غلباوى عامل ايه كل سنة وأنت طيب . أستاذى الغالى ياسر خليل أشكر لك مرورك ولا حرمنا منك ولا من مرورك الغالى الغالى جدا على قلبى أخى أبو أدهم أشكرك على مرورك الرقيق الطيب كل سنة وأنت طيب مع خالص التقدير والاحترام أخى الزيارى أشكرك على مرورك الرقيق الطيب كل سنة وأنت طيب مع خالص التقدير والاحترام أخوتى الأفاضل لو السهم مش مظبوط يبقى الصورة تحركت من مكانها والحل : 1 - اما ترجع الصورة مكانها زى ما قال أبو العربى 2- تظبط احداثيات المنطقة بالزيادة أو النقصان مع خالص تحياتى للجميع

نعم أخي و أستاذي رمهان شكرا على الملاحظة فهذا الكود لا يفي بالمطلوب فأنا جربته و لم يحقق الهدف. فالكود الصحيح هو كالتالي: Do While Me.l.ListCount <> 0 Me.l.RemoveItem 0 Loop آسف لأني طلعت الكود الخطأ شكرا جزيلا أخي و صديقي رمهان list box.rar

هل تقصد هكذا Sub CopyRows() Dim LR As Long, I As Long, X As Long LR = Sheets("Sheet1").Cells(Rows.Count, "g").End(xlUp).Row X = 5 Application.ScreenUpdating = False Sheets("Sheet2").Rows("5:1000").ClearContents For I = 6 To LR If Cells(I, "g").Value < 90 And Cells(I, "g").Value >= 1 Then Rows(I).Copy Sheets("Sheet2").Range("A" & X): X = X + 1 Next I Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

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

السلام عليكم ورحمة الله تعالى وبركاته عدنا اليكم من جديد اتفرج يا عم السيد على التحديثات اللى هنا معلش انا خففت الاسماء عن ذى قبل لعدم التكرار ولكن لم اكمل الباقى لانى اراجع الاسماء اسم اسم لم اكمل بعد ولكن انظر الى -الية ادخال البيانات وفصل الاسم والترجمة حاجه كده مش عارف اقول لك ايه منتظر ردك لما عجبنى الشغل حبيت اشارككم بيه translation_name.rar تعمدت عمل القاعدة على فورمات 2003 حتى يتثنى للكل الاستفادة من التطبيق المرفق

بارك الله فيك أخي الغالي مختار ولا حرمنا الله من روائعك

السلام عليكم ورحمة الله وبركاتة كلنا نعرف دالة الاكسيل المشهورة ( VLOOKUP ) التى تبحث فى العمود الاول فقط من جدول وتستخرج النتيجة من عمود اخر دالتنا اليوم واسمها ( VLOOKAnyCol ) هى مثل دالة الاكسيل المشهورة ( VLOOKUP ) تماما وتمتاز عنها بعدم اشتراط البحث فى العمود الاول فقط فهى تبحث فى اى عمود ولا يشترط ان يكون العمود الاول وتستخرج النتيجة من عمود اخر - ولا تشترط ترتيب جدول البيانات وهى طبعا عربية بأيدى عربية شرح وبناء دالة ( VLOOKAnyCol ) :: دالة VLOOKAnyCol لها اربع مدخلات او باراميترات هم على التوالى :: جدول_البيانات / قيمة_البحث / عمود_البحث / عمود_النتيجة المدخل الأول :: جدول_البيانات :: جدول المعلومات الذي يتم البحث فيه عن البيانات ( قيمة_البحث ) فى اى عمود منه استخدم أحد المراجع لأحد النطاقات أو أحد أسماء النطاقات، مثل MyRng المدخل الثانى :: قيمة_البحث :: القيمة التي سيتم البحث عنها في العمود الذى تحدده ب ( عمود_البحث ) من جدول_البيانات يمكن أن تكون قيمة_البحث قيمة أو مرجع أو سلسلة نصية المدخل الثالث :: عمود_البحث :: هو رقم عمود الجدول الذى سيتم البحث فيه عن قيمة_البحث من جدول_البيانات المدخل الرابع :: عمود_النتيجة :: هو رقم عمود الجدول الذى سيتم استخراج النتيجة منه المقابلة ل قيمة_البحث والى لقاء قريب بإذن الله فى سلسلة الدوال العربية بالمرفقات الشرح مع مثال : VLOOKAnyCol.rar المرفق التالى عبارة عن ملف قيديو يبين كيفية نقل كود الدالة الى ملقك لتعمل الدالة به Omar_1.rar

ربما يكون الحل في هذا الملف القائمة المنسدلة مطاطة ولا تذكر المكرر الا مرة واحدة tarhil.rar

اكتب هذا الكود في حدث الصفحة(يعمل في كل الحالات) Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static Salim As Range If Not Salim Is Nothing Then Salim.FormatConditions.Delete Set Salim = Target With Salim.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE") .Interior.PatternColorIndex = xlAutomatic .Interior.ColorIndex = 6 End With End Sub اليك الملف كنموذج format _target keep the original.rar

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

ممكن يكون ذلك من خلال معادلة صفيف (Ctrl+Shift+Enter) =SUM(IF($B$2:$B$5=$F$2,$C$2:$D$5,"")) او هذه معادلة عادية =SUMPRODUCT(--($B$2:$B$5=$F$2)*$C$2:$D$5)

الاخ الكريم احمد الصباحى اسف على التاخير لانى كنت مرتيط بشغل ضرورى اليك الملف المرفق واتمنى يكون المطلوب ملاحظة على الماشى الملف مفيهوش اسماء اى اصناف او مخازن او مستلمين او موردين ودى البيانات الاساسية اللى انت لازم هاتدخلها فى الاول قبل ما تشتغل عليه ومهم جدا انك هاتدخل الارصدة بتاعت كل صنف فى اول تاريخ العمل بالملف مطلوب عمل يوزر فورم.rar

اثراءً للموضوع هذا الكود (ربما اسرع قليلاً) Sub Filter_Me() Sheets("Sheet2").Range("a:a").ClearContents With Sheets("Sheet1") .Activate .AutoFilterMode = False lrg = .Cells(Rows.Count, "g").End(3).Row .Range("g6").AutoFilter Field:=1, Criteria1:=">=1", _ Operator:=xlAnd, Criteria2:="<=90" .Range("g6:g" & lrg).Copy Sheets("sheet2").Range("a5") .AutoFilterMode = False Application.CutCopyMode = False End With End Sub

رووووعة بمعنى الكلمة.. بارك الله فيك

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

مختار حسين محمود اخى الفاضل تحياتى

انا استخدم اوفيس 2007 ويعطينى خطأ فى السطر Sheets("Mydata").Range("Bِ1:F32").AdvancedFilter xlFilterCopy, myrange1, myrange2 شكرا لكم على هذا التعليم الممتاز تم التنفيذ اخى ياسر وتحيا ياسر وتحيا مصر

السّلام عليكم و رحمة الله و بركاته أخي الغالي قبل أستاذي الفاضل " ياسر العربي " منوّر بوجودك .. راجيًا من المولى القدير أن تكون بتمام الخير و الصحّة و العافية وكل من تُحب يا رب بارك الله فيك و لك و زادك من علمه و فضله .. فعلاً قمت بمثل ما أشرت و حرّكت الصورة و أصبح كل شيء تمام التّمام و لله الحمد فائق محبّتي و احترامي

أخى العزيز عمر الحسينى بالفعل انت تثبت دائما ان المنتدى بة عمالقة قادرون على حل اى مشكلة تقابل اخوانهم بالمنتدى الذين يسعون الى التعلم من الأساتذة الكبار بالمنتدى الكود الذى ارفقتة بالفعل يقوم بحل المشكلة المطلوبة تماما لكنى اطمع فى عمل اضافة علية حتى يكون مفيد تماما لى و لجميع الزملاء الذين يحتاجون الى مطابقة جداول بشكل دائم فى اعمالهم اولا : فالكود يقوم بمضاهاة العمودين C و H و فى بعض الأحيان يكون المطلوب هو مطابقة عمودين اخرين لذلك المطلوب ان يكون هناك امكانية لتحديد العمودين المطلوب المطابقة بينهما ثانيا : الكود الحالى يقوم بالعمل على اربعة اعمدة فى كل جدول و فى بعض الأحيان يكون عدد الأعمدة فى الجدول اكثر او اقل من ذلك , لذلك المطلوب ايضا ان يكون هناك امكانية لتحديد عدد الصفوف المكون منها الجدول انا عارف ان طلباتى كثيرة لكن عشمى كبير فى عباقرة المنتدى اما فيما يخص الأستاذ الكبير ياسر خليل فأنا اشكرة جزيل الشكر على مجهودة الجبار فى المنتدى و فى مساعدة جميع الأعضاء و اعطاؤة معظم وقتة لحل مشاكل الأعضاء و البحث فى جميع المصادر لأيجاد الحلول المثلى فالعلم بحر كبير و دائما الشخص يسعى للأستذادة من العلم , فلة كل التقدير و الشكر و يكفى اننى مدين لة بمساعدتى على عمل برنامج حسابات كامل يتم بة ادارة شركة بحجم معلومات هائل و بنجاح رائع فلكما كل الشكر و التقدير

تفضل اخي الكريم نصيحة : حاول استخدام اللغة الانكليزية في تسمية الحقول و الجداول و النماذج فهي تجنبك الاخطاء البرمجية كثيرا مثال مربع السرد1.rar

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

المرفق الذي ارسله اخينا عبد الله يعمل و بدون اي مشاكل !!!!!!!!!!!!! جربت كل النماذج والاستعلامات وهي تعمل 100 % اخي الكريم هل لك ان تحدد اين تظهر المشكلة بالضبط هل تظهر المشكلة في نموذج معين او استعلام معين وماهو اصدار الاوفيس الذي تستخدمه

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

انت تستاهل وزنك ذهب يا اخ ياسر

اولا معذرة اخي سليم لم ارى اجابتك ثانيا تفضل اخي احمد المعادلة التالية =IF(SUBTOTAL(3;$B$3:$B$12)=COUNTA($B$3:$B$12);"";SUBTOTAL(109;$B$3:$B$12))

اثراءً للموضوع حل آخر Color_cel Keeping The Origenal Color.rar

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

وهذه محاولة أخرى Sub Test() Dim arr, X, I As Long arr = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).Resize(, 4).Value On Error Resume Next For I = LBound(arr, 1) To UBound(arr, 1) X = Split(arr(I, 1), "$") arr(I, 2) = X(0) arr(I, 3) = Replace(X(1), "–", "") arr(I, 4) = X(2) Next I Range("B2").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr End Sub

أشكرك أخى ياسر بالفعل أخى بعد كتابة الكود تذكر ت ماذا لو كان هناك خلايا ملونة بالفعل وظللت أفكر فى طريقة لارجاع اللون الاساسى للخلية قبل التحديد الى أن وجدت مشاركتك السابقة و أشكرك مرة تانية على الرابط المرفق تطبيق لكودك مع خالص تحياتى Highlight ActiveCell Only Using C. F.rar

شوف هذا >> مع تحياتي الفاتورة1.rar

السلام عليكم جرب المرفق التالي ففيه الحل ان شاء الله الفاتورة1.rar

العفو منك استاذنا محمد ايمن لم انجح في تطبيق المثال الذي جبت فهذا المثال لدي في المرفق وانا اشكرك لاهتمامك جزاك الله خير الجزاء مثال مربع السرد.rar

تفضل بطريقة مماثلة بدلا من التجميع في الاستعلام يكون التجميع في الكود njj.rar

تفضل اخي الكريم هذا المثال البسيط قاعدة بيانات1.rar

بعد اذن اخي ابو حنين نفس العمل لكن بالمعادلات ضع هذه المعادلة في الخلية D2 واسحب نزولاً =IF(MAX($D$1:D1)+1>$A$1,"",IF(MOD((ROWS($A$1:A1)-1),3)<>0,"",MAX($D$1:D1)+1)) للتوضيح المرفق في الحالة العامة (المرفق ) يجب وضع هذه المعادلة في الخلية D2 عندها يمكن تغيير القيمتين في A1 & F1 =IF(MAX($D$1:D1)+1>$A$1,"",IF(MOD((ROWS($A$1:A1)-1),$F$1+1)<>0,"",MAX($D$1:D1)+1)) تسلسل الى salim.rar

استعمل هذا الكود Sub MyNmbr() Dim x As Integer, i As Integer x = 1 For i = 2 To Range("a1").Value * 3 Step 3 Cells(i, 3) = x x = x + 1 Next End Sub

السلام عليكم ورحمة الله وبركاته الدالة تم إنشاؤها عن طريق الماكرو ، لذا يجب نسخ الماكرو إلى ملفك - افتح الملف الذي حملته من الموقع - افتح الملف الذي تريد العمل عليه - اضغط ALT + F11 - على اليسار يظهر لك الملفان - قم بنقل MODULE الماكرو إلى ملفك

أليك أخى ماطلبت البحث فى شيتين.rar

السلام عليكم ورحمة الله وبركاته تفضل أخي الملف المرفق قد تجد فيه ضالتك ، مع العلم أن الفورم تم تطويره من طرف أحد أعضاء المنتدى لاتنسى له بالدعاء بظهر الغيب له ولوالديه VLOOKON_With_No_Limitation.rar

بسم الله الرحمن الرحيم ادرج اليكم ملف اكسل عن الإصدار الرابع من اعداد xlfdic و هو بالتأكيد مفيد جدا و إن شاء الله تستفيدوا منه و اردت اضافته و لما به من شرح جميل لعدد كبير من الدوال التي نحتاجها ملحوظه:- قد يكون ادرج في الموقع منذ زمن الإصدار الاول و لكن رأيت اعداد الموضوع لإستفاده الجميع او للتذكير به XLFDIC04.zip

السلام عليكم ورحمة الله وبركاتة تحياتى الى جميع الاخوة اليكم اخوانى دالة ( VLOOKUP ) المعدلة الى دالة ( VLOOKON ) لعلها تحوز رضاكم . وتختلف عن دالة ( VLOOKUP ) فى الاتى : 1 - لا تحتاج الى ترتيب جدول البيانات لأستخراج قيمة مطابقة . 2 - تبحث فى عدة جداول متفرقة بدلا من جدول واحد . 3 - تبحث فى عدة اوراق بدلا من البحث فى ورقة واحدة . وتحتاج الى ثلاثة مدخلات كحد ادنى لها : 1 - المدخل الاول : هو القيمة التى تبحث عنها ( عبارة قيمة أو مرجع أو سلسلة نصية ) . 2 - المخل الثانى : هو رقم العمود الذي يجب إرجاع القيمة المطابقة منه . 3 - المدخل الثالث : هو جدول البيانات الذى يتم فيه البحث ويمكن ان لا يكون جدول بيانات واحد ... ولا يشترط ان تكون الجداول فى ورقة واحدة ... ولكن يشترط ان تكون هذه الجداول ذات اسماء نطاق اى مدى مسمى وليس عنوان مدى . الملف المرفق يحتوى على كود الدالة مع مثال لطريقة عملها وشرح الدالة . VLOOKON_With_No_Limitation.rar اتمنى ان تعجبكم ورجاء من الاخوة محبى التعديل والتنقيح لاتنقح او تعدل اكوادى الخاصة بل ابحث عن فكرة جديدة تفيد الجميع بدلا من ...ذلك . تحياتى للجميع الشرح