الصـقر

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

انا ارى من الافضل عمل شيت لتسجيل مشتريات العميل وشيت اخر يتم تسجيل ما دفعه العميل وبكشف الحساب يظهر ما اشترى العميل من بضاعه بالجانب المدين ( المديونية ) ويظهر ما دفعه العميل من كاش بجانب الدائن انفذ الملف على هذه الفكرة

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

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

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

الاخت الفاضله / ام بسمة للاسف حجم الملف 3.85 ميجا بايت ودا سبب ثقل الملف والسبب ان حضرتك فى شيت المبيعات عملتى نسخ للمعادلات حتى 60.000 صف لازم تعرفى ان كل 1000 صف به معادلات يزيد حجم الملف الى 100KB الحل انو يتم الغاء المعادلات والتعويض عنها بالكود بالنسبة للوقت ظاهر فى العمود I ولكن مخفى انا قمت بحذف المعادلات من بعد الصف 1000 فوصل حجم الملف الى 292 KB فقط ويارب يكون دا المطلوب ان شاء الله الاخير.zip

هذا العمل من اعمال المبدع الرائع الاستاذ رجب جاويش بعد اذن استاذى رجب جاويش / قمت بالتعديل علية بما يتناسب مع عملى بالضغط دبل كليل على الخليه التى تريد استبدال الاسم بها يظهر لك النموزج قم بتغيير اسم العميل رقم 1 ( محمد ) لاحظ ما يتم ستجد التغير يشمل العميل رقم 2 لمجرد انه يحتوى على محمد فمن غير المنطقى ان يقوم بتعديل اسم العميل رقم 2 انا اريد يقوم بتغير اسم العميل مطابقه تامة وليس لمجرد انه يحتوى على اسم منه اريد ان يقوم التغير بالصفحه النشطه وصفحه رقم 3 فقط ولا يظهر التعديل باى شيت اخر حتى وان كان يوجد به نفس الاسم يسمح للمستخدم كتابة اسم عميل جديد ولكن بعد الكتابة لا يمكن تعديل اسم العميل الا من خلال الفورم اريد ان عند الضغط على دبل كليك باى خليه بالعمود B يظهر الفورم ولا يظهر الفورم عند الضغط على اى خليه بعمود اخر فورم لاستبدال كلمات فى صفحات محددة.zip

اسم الملف: فورم استبدال كلمه بكل الصفحات مرسل الملف: حسام عيسى ارسل الملف في: 19 يونيو 2014 تصنيف الملف: قسم الإكسيل هذا العمل الرائع من اعمال العالم رجب جاويش بعد اذن الاستاذ رجب قمت بالتعديل عليه ليكون اكثر فائده اضغط هنا لتحميل هذا الملف

استاذى الجليل / رجب جاويش اولاً / اشكرك على هذا العمل الرائع ولكن لى ملاحظة بسيطة عند تغيير الاسم وليكن عندى عدد 2 عملاء 1- رجب جاويش محمد 2- رجب جاويش فلو فرضنا اريد تغيير رجب جاويش (العميل رقم 2) واستبداله ب محمد جاويش فان الفورم يقوم بالبحث عن كل ما هو رجب ويقوم باستبداله فيصبح العميل رقم 1 محمد جاويش محمد والعميل ؤقم 2- محمد جاويش فمن غير المنطقى ان يقوم بتعديل اسم العميل رقم 1 المفروض ان يبحث عن محتوى الخليه مطابقه كامله وليس جزء منها ويقوم بالاستبدال واسف جدا للازعاج

استاذى الجليل / رجب جاويش اولاً / اشكرك على هذا العمل الرائع ولكن لى ملاحظة بسيطة عند تغيير الاسم وليكن عندى عدد 2 عملاء 1- رجب جاويش محمد 2- رجب جاويش فلو فرضنا اريد تغيير رجب جاويش (العميل رقم 2) واستبداله ب محمد جاويش فان الفورم يقوم بالبحث عن كل ما هو رجب ويقوم باستبداله فيصبح العميل رقم 1 محمد جاويش محمد والعميل ؤقم 2- محمد جاويش فمن غير المنطقى ان يقوم بتعديل اسم العميل رقم 1 المفروض ان يبحث عن محتوى الخليه مطابقه كامله وليس جزء منها ويقوم بالاستبدال واسف جدا للازعاج

استاذى الجليل / رجب جاويش اولاً / اشكرك على هذا العمل الرائع ولكن لى ملاحظة بسيطة عند تغيير الاسم وليكن عندى عدد 2 عملاء 1- رجب جاويش محمد 2- رجب جاويش فلو فرضنا اريد تغيير رجب جاويش (العميل رقم 2) واستبداله ب محمد جاويش فان الفورم يقوم بالبحث عن كل ما هو رجب ويقوم باستبداله فيصبح العميل رقم 1 محمد جاويش محمد والعميل ؤقم 2- محمد جاويش فمن غير المنطقى ان يقوم بتعديل اسم العميل رقم 1 المفروض ان يبحث عن محتوى الخليه مطابقه كامله وليس جزء منها ويقوم بالاستبدال واسف جدا للازعاج

اخى الحبيب / حسين العربى حضرتك ممكن تسجل ماكرو من قائمة عرض اختار تسجيل ماكرو ثم قم بعمل فلترة على الجدول ثم قم بايقاف الماكرو اضغط ALT + F11 وشوف كود الفترة كيف تم تسجيله جرب وقولى وانا معاك انا عايزك تتعمل بنفسك وتستكشف

استاذى / عبدالله باقشير العلامه اسال عن كيفية اخفاء شريط الشيتات والتحرك من خلال الهيبر لينك / ومنع المستخدم من اظهر الشريط من خيارات اكسيل وشكرا

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

بارك الله فيك يا اخى مشكور على هذا الجهد الرائع

Sub trheel2() If Range("G4") <> ("H4") = 1 Then MsgBox "ãÌãæÚ ÇáãÏíä áÇ íÓÇæì ÇáÏÇÆä" Else Dim LR As Integer LR = [c1000].End(xlUp).Row Range("A6:i" & LR).Copy Sheets("ÚÇã").Range("B" & Sheets("ÚÇã").[b10000].End(xlUp).Row + 1).PasteSpecial xlPasteValues Application.CutCopyMode = False Range("C6:H" & LR).ClearContents MsgBox "Êã ÇáÊÑÍíá ÈäÌÇÍ", vbOKOnly, "ÊäÈíÉ" End If End Sub هذا كود ترحيل بيانات من شيت الى اخر بالبدايه يرحل البيانات المطلوبه بشكل صحيح وفجاء وبدون اى تعيدل على الكود يرحل البيانات المطلوبه بشكل خاطى فما السبب ارجوا الافاده وشكرا

Sub trheel2() If Range("G4") <> ("H4") = 1 Then MsgBox "ãÌãæÚ ÇáãÏíä áÇ íÓÇæì ÇáÏÇÆä" Else Dim LR As Integer LR = [c1000].End(xlUp).Row Range("A6:i" & LR).Copy Sheets("ÚÇã").Range("B" & Sheets("ÚÇã").[b10000].End(xlUp).Row + 1).PasteSpecial xlPasteValues Application.CutCopyMode = False Range("C6:H" & LR).ClearContents MsgBox "Êã ÇáÊÑÍíá ÈäÌÇÍ", vbOKOnly, "ÊäÈíÉ" End If End Sub