سعيد 1428

أيها الإخوة السلام عليكم في الملف المرفق أريد عرض البيانات في الشيت DATA من خلال LISTBOX وإجراء التعديل على هذه الببانات من خلالها وشكرا listBox.xlsm

السلام عليكم في الملف المرفق اريد ترحيل البيانات من شيت rez إلى شيت data أريد تعديل الماكرو بحيث لا يتم ترحيل ( رقم الحجز واسم العميل ) إلا بعدد الصفوف التي فيها بيانات في المربع الخاص بتفاصيل الحجز وشكرا TARHIL.xlsm

عند تنفيذ امر الترحيل يعطي الراسالة التالية Type mismach

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

الإخوة الكرام السلام عليكم ورحمة الله في الملف المرفق اريد المساعدة في ترحيل البيانات من شيت إدخال الحجز إلى شيت DATA ومن ثم يتم حذف البيانات في شيت الحجز ملاحظة : تم وضع إطار ملون على البيانات المراد ترحيلها وشكرا TARHIL.xlsx

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

أحسن الله إليكم أخي علي محمد علي

أيها الإخوة السلام عليكم ورحمة الله أرجو المساعدة في الملف المرفق حيث أريد أن اتحكم في الصفوف التي سيتم جمع قيمها من خلال عنصر تحكم كما هو موضح في الملف وشكرا جمع صفوف محددة.xlsx

شكرا لكم أخي الكريم على المساعدة إلا أن المطلوب أن يبقى مغيار الفرز في نفس العمود المقابل لعمود العملاء ما ذا لم تغير تصنيف أي عميل من 1إلى 2 وشكرا مرة أخرى

الإخوة الأكارم السلام عليكم ورحمة الله في الملف المرفق عندي ورقة بأسماء العملاء وأمام كل عميل معيار تصنيف لهذا العميل 1 أو 2 وفي الورقة الثانية أريد إنشاء قائمة منسدلة بأسماء العملاء الموجودين في الورقة السابقة مع إدخال معيار التحكم (1 أو 2) بحيث عند اختيار المعيار 1 تحتوي القائمة على العملاء المصنفين برقم 1 فقط وعند اختيار رقم 2 تظهر القائمة العملاء المصنفين برقم 2 فقط وشكرا قائمة العملاء.xlsx

تمام بارك الله فيكم ونفع بكم

اشكركم الاستاذ/ سليم على الاهتمام الملاحظة 1: القيم في الكومبوبكس 2 متكررة والذي ينبغي ان تكون فريدة الملاحظة 2: القيمة في الكومبوبكس 3 في بعض الحالات ليست صحيحة لاحظ عندما تختار الشهر فبراير واليوم 11 تكون السنة 2018 والموجود في شيت القائمة 2017 الظاهر ان الكود يقرأ اول سنة مقابلة للشهر والاحسن ان يتم ربط قيمة الكومبوبكس 3 بالشهر واليوم معا وشكرا COMB_SALIM.xlsm

أيها الإخوة السلام عليكم في الملف المرفق ثلاث كوم بوبكس الأولى للأشهر والثانية للأيام والثالثة للسنة ما أريده هو : عند اختيار الشهر في الكومبوبكس الأولى يتم استرجاع الايام الموجودة في العمود الثاني من الشيت LIST والمقابلة لهذا الشهر على شكل قائمة منسدلة وبدون تكرار او فراغ في الكومبوبكس الثاني وهكذا بالنسبة للكومبويكس الثالث والذي يخص السنوات . وشكرا COMBOBOX.xlsx

هذا هو المطلوب أخي علي محمد علي احسن الله إليك

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

الإحوة الافاضل السلام عليكم ورحمة الله في المثال التالي تم إدراج اسماء اوراق العمل في الكومبو بكس إلا أنه يلاحظ ان اسم الورقة النشطة داخل من ضمن هذا القائمة فكيف يمكن تعديل الكود بحيث ينم استبعاد اسم الورقة النشطة من قائمة الكومبو بكس وشكرا Excel_VBA_ActiveX_ComboBox_Navigation_XelPlus.xlsm

بارك الله فيكم أخي الكريم الذي اقصده هو إخفاء الخافة العلوية لملف اكسيل (التي تضم علامة الاكسيل - زر التصغير -زر الاستعادة -زر الاعلاق كما في الصورة التالية و شكرا على الاهتمام

ايها الإخوة السلام عليكم هل من طريقة لإخفاء الحافة العلوية في الاكسيل ( التي تحتوي على علامة الإغلاف والتصغير ...) وذلك عن طريق الكود وشكرا

للرفع

أحى الفاضل بعد إلغاء السطر لا يتم تحديث قيمة التعليق إلى إذا تم وضع مؤشر الماوس في الخلية c12 ومن ثم الضغط على مفتاح الإدخال فيرجا المعالجة لهذه المشكلة ومن ناحية أخرى كيف يمكن تطبيق الكود على نطاقة من الخلايا خلايا ادراج التعليق الخلايا المتغيرة g1 h1 g2 h2 g3 h3 g4 h4 g5 h5 g6 h6 g7 h7 g8 h8 g9 h9 g10 h10 g11 h11 COMM.xlsm

للرفع

بارك الله فيكم

قم أخى بتحديد الرقم 1 و2 ومن ثم سحب علامة + للاسفل

أخي العزيز لا بد من حفظ الملف بصيغة الماكرو عند ظهور الرسالة اضغط على لا يفتح لك مربع حوار حفظ ملف اختر حفظ الملف بصيغة excel macro enable

أيها الإخوة السلام عليكم ورحمة الله أثناء البحث في احد المواقع الاجنبية وجدت الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) Dim sResult As String If Union(Target, Range("C11")).Address = Target.Address Then Application.EnableEvents = False Application.ScreenUpdating = False sResult = Target.Value Target.ClearContents With Range("F15") .ClearComments .AddComment .Comment.Text Text:=sResult End With Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub الكود يقوم بعرض قيمة الخلية c11 كتعليق عند الخلية F15 وعند تجربة الكود لاحظت أنه يقوم بحف القيمة المدخلة في الخليه C11 سواء كانت معادلة أو قيمة ثابتة وعليه آمل منكم تعديل الكود بشكل يسمح ببقاء المعادلة في الخلية C11 وشكرا COMM.xlsm