سعيد 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 ومن ثم الضغط على مفتاح الإدخال 

فيرجا المعالجة لهذه المشكلة 

ومن ناحية أخرى كيف يمكن تطبيق الكود على نطاقة من الخلايا 

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