yasser_w_2010

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

الف الف شكر لحضرتك ولمجهودك و الكود الرائع ... الف شكر منتدي اوفسينا اضافة كود منع الترحيل اذا كانت الخلية فارغة الاساتذه الكرام .. هل ممكن اضافة الى هذا الكود للاستاذ احمد زمان بحيث عند خلو الخلايا المظللة بالون الاسود لا تتم عملية الترحيل , وتظهر رسالة اكمل البيانات ... شاكر لكم جدا المصنف1.xlsm

اسف لحضرتك ولاكن عندالترحيل لا يرحل اسفل كل خليه فارغه اوقات بيرحل في نفس الصف واوقات بيرحل تحته وبيسيب صف فاضي

الاساتذه الكرام رجو عمل كود ترحيل بيانات من خلايا كثيره واعمدة متفرقه الى اخر صف به بيانات شاكر لكم جدا على مجهودكم معي وشاكر لموقع اوفسينا الممتاذ المصنف1.xlsm

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

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

مرفق ملف المطلوب فيه ايجاد دلة بحث عند كتابة رقم موجود في الجدول ياتي باسم موجود في عامود المصنف2.xlsx

=Combine(Q6:DL6) هذا الكود بكتبه في الخليه وهوه نفس الكود المكتوب فوق وعند حذف الصف الكود بيجيب خطاء هل من حل اكتبه في الخليه بحيث يعمل تنشيط للمعادلة عند حذف الصف

Sub Macro1() ' Macro1 ماكرو' Sheets("data").Range("A3:DM150").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("P3:P4"), CopyToRange:=Range("A5:DM5"), Unique:= _ False End Sub هل يمكن عمل هذا الكود بحيث ريحل البيانات كل مره في اخر صف فيه بيانات بدون مسح البيانات المرحله مسبقا

ارجو المساعدة من الاساتذه الكرام عند عمل ترحيل للصفوف بناء على عامود ( منتهي ) الكود في عامود ارقام الغرف لا يعمل ارجو التعديل على الكود بحيث عند ترحيل الصفوف يعمل في شيت data و شيت save هوه ده الكود عند ترحيل الصف لا يعمل Function Combine(WorkRng As Range, Optional Sign As String = "~") As String Dim Rng As Range Dim OutStr As String For Each Rng In WorkRng If Rng.Text <> " " Then OutStr = OutStr & Rng.Text & Sign End If Next Combine = Left(OutStr, Len(OutStr) - 1) End Function 1.xlsm

الاساتذه الكرام ارجو منكم المساعده في التالي 1 - نقل الصف بالكامل المكتوب في خليه كلمة ( منتهي ) الى الشيت الاخر في اخر صف فارغ الذي يسبقه بيانات 2 - حذف الصف كامل بعد الترحيل شاكر لكم جدا .... تـــم تعديل رفع الملف بدون حماية 11.xlsm

الف الف شكر

السلام عليكم ورحمة الله اريد ان اعرف كيف يتم اخفاء علمة الانزلاق

الساده الاساتذه الكرام ارجو منكم ايجاد دلة بحث باكثر من شرط بحيث طول ما في ايام متبقيه يبحث عن اسم الشركه بناء على رقم الغرفه\ الموجود في الحجز شكرا لكم حجز.xlsm

Hالف شكر يا استاذ سليم و هحاول اشوفي في الموقع الاكسيس

الف شكر استاذ سليم هوه نفس المطلوب بالضبط ربنا ما يحرمنا منك طلب اخير عند اضافة قيد اخر واعمل ادارج بيفضل يروح على كل الشيتات وبياخد وقت كبير نظرا لان ممكن اعمل اكثر من 6000 الف قيد لجميع الاصناف فهذا بياخد وقت كبير جدا ...هل يوجد حل لهذه المشكلة؟ , وعند عمل الترحيل يتم تكرار عملية الترحيل واسف لو بطيل على حضرتك استاذنا الكبير yasser_w Format (11).xlsm

اسف استاذ سليم لو بتاقل على حضرتك ممكن يبقي الترحيل من عمود A الى العمود K فقط و ترك العمود L بدون ترحيل وهل ممكن يتم الترحيل بنفس الاولوان و اتنسيق شكرا اوي اوي اخي الكريم استاذ سليم yasser_w (3).xlsm

الف الف شكر استاذ سليم على كل مجهوداتك معي

الف شكر اخي الكريم عن التجربه كل لما اجي ارجل البيانات يتم تكرارها وكذلك يتم الترحيل في شيتات رقم 1 و 2 و 3 من اول A9 يتم الترحيل من اول A12 الى K12 فقط بدون تكرار البيانات في كل عملية ترحيل شكرا لك استاذنا الكريم على تعبك ومجهودك

السلام عليكم و رحمة الله وبركاته الاساتذه الكرام ارجو منكم المساعده بعمل ماكرو ترحيل بينات حسب الكود مثلا : اكتب كود رقم 1 و املاء بيانات الصف يرحل الى الشيت رقم 1 اكتب كود رقم 2 و املاء بيانات الصف يرحل الى الشيت رقم 2 وهاكذا شاكر لكم جدا وجزيل الشكر لاستاذنا سليم ترحيل بيانات.xlsm

شكرا لحضرتك استاذنا الفاضل

الف الف شكر لحضرتك يا استاذ سليم حاصبيا

الاساتذه الكرام ارجو من حضراتكم المساعده في عمل ترحيل من القيد اليومي الى الشيتات المختلفة حسب رقم العميل بدون ماكرو او VBA عن طريق الدوال1__.xlsm

الف الف شكر استاذنا الكريم على مجهودك و تعبك

لا يا استاذنا الفاضل واسف جدا لو بزعج حضرتك وتم استخدام المكرو بتاع حضرتك وفيه كود لو امكن تقدر تعدلي عليه بحيث يمنع اظهار الاعمدة و الصفوف المخفية لو امكن وشاكر لك جدا Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect Password:="Salim" If Target.HasFormula Then With Target .Locked = True .FormulaHidden = True End With ActiveSheet.Protect Password:="Salim" End If End Sub ممكن اضافة كود عدم اظهار الاعمدة و الصفوف المخفية بدون ميكرو