اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

وعليكم السلام ورحمة الله تعالى وبركاته 

اخي الفاضل تم عمل المطلوب 

لاكن سوف اشرح لك الخطوات للاستفادة   لنتمكن من عدم اظهار الغرف الساكنة على Combobox لابد اولا من الحصول على قائمة باسماءالغرف الفارغة (Avalable )

 بما انني لاحظت انك واضع معادلة في شيت 1 لاستخراج  (Room Statuse)  بشرط التاريخ سوف نعتمد عليها ودالك باظافة عمود مساعد نضع فيه المعادلة التالية  وليكن مثلا عمود ("X")  لاستخراج الغرف الفارغة .

=IF(E2="Available ";A2;"")

بمعنى غند التحقق من الغرفة فارغة يتم استخراج اسمها في العمود المساعد وادا كانت محجوزة (Booked) نحصل على فراغ .وهكدا  تتولد لدينا قائمة باسماء جميع الغرف الفارغة 

الخطوة الثانية والمهمة لابد من استبدال كود جلب البيانات بالكود التالي ليتم تعيئة الكومبوبوكس بالقيم المحصل عليها بدون فراغات 

Dim MH As Integer
Dim Plage As Range
'جلب الغرف الفارغة
 With Sheets("sheet1")
For MH = 2 To .Range("X" & .Rows.Count).End(xlUp).row
 If .Range("X" & MH) <> "" Then
   cmbroom.AddItem .Range("X" & MH)
   End If
 Next MH
End With
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'تم إستبدال كود كومبو بوكس البحث بالكود التالي  
With Sheets("Database")
    Set Plage = .Range("b2:b" & .Range("b65536").End(xlUp).row)
End With
ComboBox1.List = Plage.Value

بالتوفيق 

Reservation Form_V2.xlsm

تم تعديل بواسطه Mohamed Hicham
  • Like 4

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information