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الف شكر يا استاذ سليم و هحاول اشوفي في الموقع الاكسيس