اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

alaa111

عضو جديد 01
  • Content Count

    11
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 Neutral

عن العضو alaa111

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    acc

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. المصنف03.xlsx Sub ÇÓÊÏÚÇÁ() On Error Resume Next If [B4] = "" And [C4] = "" And [E4] = "" Then MsgBox "íÌÈ ÇÎÊíÇÑ ÍÓÇÈ ÈÏáÇáÉ ÇáÍÇáÉ Çæ ÇÓã ÇáäÒíá Çæ ÇÎÊÇÑ ÑÞã ÇáÛÑÝÉ", vbInformation + vbMsgBoxRight, "ÊäÈíå" Else [B9:H200].ClearContents [B6] = "" & [K1] Application.ScreenUpdating = False For x = 9 To Sheets.Count MySheets = Sheets(x).Name If Sheets(MySheets).Name = "Search" Then Exit For For R = 3 To Sheets(MySheets).[c1500].End(xlUp).Row If (Sheets(MySheets).Cells(R, 5) = [B4] Or Sheets(MySheets).Cells(R, 10) = [C4] Or Sheets(MySheets).Cells(R, 1) = [E4]) And (Sheets(MySheets).Cells(R, 2) >= [G4] And Sheets(MySheets).Cells(R, 4) <= [H4]) Then With Sheets("ÇáÞíæÏ").[B200].End(xlUp) .Offset(1, 0) = Sheets(MySheets).Cells(R, 1) .Offset(1, 1) = Sheets(MySheets).Cells(R, 10) .Offset(1, 2) = Sheets(MySheets).Cells(R, 2) .Offset(1, 3) = Sheets(MySheets).Cells(R, 3) .Offset(1, 4) = Sheets(MySheets).Cells(R, 4) .Offset(1, 5) = Sheets(MySheets).Cells(R, 5) .Offset(1, 6) = Sheets(MySheets).Cells(R, 6) End With End If Next R Next x Application.ScreenUpdating = True MsgBox "!Êã ÇÓÊÎÑÇÌ ÇáßÔÝ ÇáãØáæÈ ÈäÌÇÍ", vbInformation + vbMsgBoxRight, "Êã ÇáÇÓÊÎÑÇÌ" [B4:E4].ClearContents End If End Sub اريد ضبط الكود حتى يعمل بشكل صحيح اريد الاستعلام حالة الوصول او الاسم او برقم الغرفة
  2. الف شكر لك استاذى الكريم Ali Mohamed Ali ولكن انا مبتدا واحاول التعلم من حضرتك والاساتذة الافاضل بالمنتدى ولكن حضرتك فى استعلام بصفحة Reservation عندما يتم عمل Check in للغرفة يتم تحويلها الى صفحة Check in ارجو من حضرتك ان تفيدنى فى ذلك ولحضرتك جزيل الشكر والتقدير الف شكر لحضرتك تعبتك معايا وربنا يجعل كل هذا فى ميزان حسناتك وربنا يزيدك من علمة الف شكر يا استاذ على
  3. شكرا لحضرتك وربنا يجعل هذا فى ميزان حسناتك اريد عمل استعلام اخر لو سمحت حضرتك شكرا لحضرتك استعلام.xlsm
  4. السلام عليكم اساتذتى الكرام ,أرجو التكرم على مساعدتى فى عمل استعلام وجلب بيانات بين تواريخ مختلفة بارك الله فيكم جميعا تم تحديث الملف النهائى هنا استعلام.xlsm
×
×
  • اضف...