احمدزمان

استاذ / كريم حل مبتكر و رائع جدا لك منا كل تحية وتقدير زادك الله نورا و علما

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

للرفع

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

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

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

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

تم ارسال الملف المطلوب مع تحياتي

السلام عليكم اخي الكريم مرفق مثال وبة الشرح في ورقة 2 _________.rar

من Sheets("sheet1").[A1] = TextBox1.Value Sheets("sheet1").[A2] = TextBox2.Value

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

تكملة واختصارا للوقت ممكن تضغط Ctrl+K و ممكن وممكن عن طريق الكود التالي Sub auto_open() 'اختيار صفحة البداية Sheets("رئيس").Select End Sub

استاذي ابو تامر الف الف الف شكر لك وجزاك الله خير

السلام عليكم ان افضل ما استخدمتة انا هو هذا الكود المرفق مع شرحة للأستاذ القدير ابو تامر معالجة المشكة بأستخدام ( التصفية المتقدمة ) ولكن ليس من خلال قوائم الاكسيل المتاحة فى شريط قوائم العمل - من قائمة (بيانات / تصفية / تصفية متقدمة ) ولكن من خلال التصفية المتقدمة بأستخدام اوامر الفجوال بيسك - لتخطى العقبات والعراقيل التى تم وضعها فى قاعدة البيانات الشرح : الكود المستخدم : كود Range("input").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "output"), CopyToRange:=Range("order"), Unique:=False ويتم تمرر ثلاث نطاقات إلى هذا الكود ويجب إن تحتوى هذه النطاقات ضمنيا على السطر الأول ذو عناوين الحقول : النطاق اول وهو نطاق قاعدة البيانات : 1 - يتم تسمية نطاق قاعد البيان بأسم (db) ( اذا لم تكن تعرف معنى تسمية النطاق يوجد بالمنتدى الكثير من المشاركات تشرح ذلك ) النطاق الثانى وهو نطاق الشروط : 2 - يتم تسمية نطاق الشروط بأسم (MyCri) النطاق الثالث وهو نطاق استخراج البيانات : 3 - يتم تسمية نطاق استخراج البيانات بأسم (Des) ومن المفروض عمل زر لتشغيل هذا الكود فى الورقة ولكنى فضلت ان تتم الفلترة بمجرد ادخال اى شرط او زيادة عدد الشروط لأكثر من شرط واحد حتى تكون ذو تأثير مرئ جيد . لعلى اكون قد وفقت فى الشرح

ممكن تعطيني اي ميلك وارسلك الملفات على الميل

للرفع

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

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

السلام عليكم لتحديد المنطقة المكتوبة فقط و طباعتها Sub Prnt() ' Columns("B:J").Select Selection.CurrentRegion.Select Selection.PrintOut Copies:=1, Preview:=True, Collate:=True End Sub Sub Prnt() ' Columns("B:J").Select Selection.CurrentRegion.Select Selection.PrintOut Copies:=1, Preview:=True, Collate:=True End Sub

تم بحمدالله ارسال البريد

استاذ عمر اذا سمحت ممكن يكون العمل بالصيغ او المعادلات بدون كود فيجول بيزك

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

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

السلام عليكم الأخ اكسس مرفق لك الملف الذي استخدمة وفية 1- ورقة مسير الرواتب يتم التعديل عليها شهريا كماتريد - ثم بالضغط على زر طباعة 2 يتم بدأهمل الماكرو والذي يقوم ب 2- ادراج ورقة جديدة 3- نسخ البيانات من ورقة مسير الرواتب الى الورقة الجديدة بدون عمليات حسابية ارقام ونتائج العمليات الحسابية فقط بحيث تفضل ثابتة 4- نسخ التنسيقات من الورقة السابقة 5- فرز وترتيب البيانات 6- الغاء الصفوف التي لايوجد بهاموظفين 7- الدخول على اعداد الصفحة وتحويل الطباعة من طولية الى عرضية مع اضافة رئوس و تذييل للورقة يتناسب مع عناوين الورقة - مع اضافة اماكن لتواقيع مدير شئون الموظفين و المدير العام 8- يتم تعديل جميع الخلايا في الورقة الجديدة بحيث لايمكن التعديل على الورقة الجديدة حتى لا تتغير المعلومات الموجودة بها وحماية الورقة لتفضل البيانات ثابتة 9- اظهار رسالة توضح ضرورة تغيير اسم الورقة - وحفظ الملف آمل ان تستفيد منه و ان ينفعك مع التحية _________2007.rar

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