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

هانى محمد

04 عضو فضي
  • Posts

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

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

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

272 Excellent

عن العضو هانى محمد

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

  • Gender (Ar)
    ذكر
  • Job Title
    محاسب
  • البلد
    مصر
  • الإهتمامات
    الإكسيل والأكسيس

اخر الزوار

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

  1. السلام عليكم اساتذتى الكرام ..أرجو من حضراتكم مساعدتى فى الأتى : منع إدخال البيانات من ورقة Input في الخلية D10 و D12 لنفس اسم الفندق الذي يتم إدخاله في الخلية D6 من نفس الورقة إذا كان عدد الغرف أكبر من المخصص لكل ورقة اسم فندق لكل شهر بدءًا من C49: AG49 لشهر مايو 2022 ، C94: AG94 لشهر يونيو 2020 ... إلخ لا أريد رقمًا في صف Picked Up أكبر من صف Allotment لاحظ أنه ستكون هناك صفحة منفصلة لكل فندق وعندما أضع البيانات من ورقة Input ، ستنتقل إلى ورقة Rooming List كانت عبارة عن ورقةInput في النموذج ، أريد منع الإدخال في الخلية D10 و D12 بالخلية D6 لاسم الفندق من هذا النموذج إذا كان صف Picked Up يساوي صف Allotment في الورقة لنفس اسم الفندق لأن الصف الذي تم اختياره يجب أن يكون أصغر من أو على سبيل المثال صف Allotment ليس أكبر منه لأي يوم من أي شهر وكل جدول لشهر في ورقة اسم الفندق ... ولكم جزيل الشكر وبارك الله فى جهودكم Validation1.xlsb
  2. mohamedyousef معقوله ده بعد كل هذا المجهود لم أرى منك اى ضغط على الإعجاب 💙 لمن كان له السبب بعد ربنا فى حل مشكلتك وتفريج كربتك وده أقل ما يقدم له نظير ذلك ؟!!!
  3. والله نبهنا كثير جداً على هذا الأمر ... الذى يؤدى بدوره الى اهدار وقت كل من يطلع على مشاركتك دون جدوى أو أهمية ... فلا يمكن العمل على التخمين كما انه لا يمكن العمل نهائياً بدون ملف مدعوم بشرح كافى عن المطلوب مع وضع شكل النتائج المرجوة!!!!!
  4. وعليكم السلام-كان عليك استخدام خاصية البحث بالمنتدى لتعلم كيفية عنمل القائمة المنسدلة ..أو عليك مشاهدة هذا الفيديو للتعلم
  5. وعليكم السلام-تفضل Microsoft Excel Worksheet .xlsx
  6. أحسنت استاذ محمد بالفعل هذا هو المطلوب بفضل جهودكم بارك الله فيك وجزاك الله خير الثواب وأكرمك الله وأحسن الله اليك ..وكل عام وأنتم بخير
  7. أحسنت استاذ عمر وأحسن الله اليك ... شكراً جزيلاً لجهود سيادتكم ولكن تظهر معى رسالة خطأ عند ادخال نفس الفندق أكثر من مرة , فهل هناك حل لذلك ..فكما أخبرت حضرتك سلفاً ان هذا طبعاً وارد فربما يتم ادخال نفس اسم الفندق أكثر من 1000 مرة ؟!!وبناءاً لظهور هذه الرسالة يتوقف الكود عن العمل ولا يقوم بالمهمة المكلف بها حتى عند ادخال اسم فندق جديد لأول مرة لا يقوم بفتح صفحة له
  8. بارك الله فيك استاذ عمر هذه الصفحة للإدخلات طوال العام وطبيعى ان يتكر اسم الفندق او وجود العديد من الحجوزات لنفس الفندق انا اريد فتح صفحة واحدة لهذا الفندق .بمعنى فتح صفحة للفندق فقط عند الإدخال لأول مرة بغض النظر عن تكرار ادخال هذا الفندق مستقبلاً وبالمعادلات سيتم ترحيل بيانات الفندق الى صفحته كما بصفحة Aqua Park HRG ,,, ولكم جزيل الشكر على ردكم
  9. السلام عليكم أحبائى واساتذتى الكرام .. وكل عام وانتم بخير ,,, أتمنى منكم التكرم على مساعدتى لعمل كود لفتح شيت جديد تلقائياً كلما تم ادخال اسم فندق جديد بالعمود C بصفحة Rooming List على ان تأخذ هذه الصفحة نفس تنسيقات صفحة Aqua Park HRG بأن يكون اسم الفندق بالخلية K2 للصفحة الجديدة ... ولكم جزيل الشكر وبارك الله فيكم <<<وهذا نموذج مصغر للملف الأصلى الذى قد يتعدى 4000 صف Summer 2022 .xlsb
  10. شكراً لكم جميعاً ...ولكن لم يتغير شيء ومازالت المشكلة قائمة ..فهل هذا بسبب ان هناك بيانات فى الأعمدة التى تسبق العمود K أم ماذا ؟!!!!! توصلت الى الحل بإضافة هذا الجزء من الكود ... فشكراً لكم جميعاً على جهودكم ومساعدتكم iRow = ws.Cells(Rows.Count, 11) _ .End(xlUp).Offset(1, 0).Row
  11. بارك الله فيك استاذ محمد , أحسنت تم بفضلكم ضبط هذه الجزئية من الكود أما بالنسبة للجزئية الثانية فمازالت المشكلة قائمة وهى عند الترحيل من الفورم الى الشيت أريد أن يبدأ الترحيل بداية من الخلية K2 الى العمود N وان يكون الترحيل تحت بعض وليس بفراغات كما يظهر لسيادتكم بالصورة ولكم جزيل الشكر ووسع الله فى أرزاقكم ورحم الله والديكم Forme.xlsb Forme.xlsb
  12. السلام عليكم أساتذتى الأفاضل ... أرجو التكرم على مساعدتى فى ضبط وتعديل كود الترحيل من الفورم الى صفحة Setting على ان يكون نطاق الترحيل بداية من الخلية K2 الى العمود N وان يتسلسل الترحيل ولا يترك أى صف فارغ بمعنى ان يكون تحت بعض مع العلم ان هناك سطر بالكود يمنع تكرار الأرقام المرحلة الى العمود K ولكم جزيل الشكر وبارك الله فى جهودكم Option Explicit Private Sub cmdAdd_Click() Dim iRow As Long Dim ws As Worksheet Dim lasts As Integer Set ws = Worksheets("Setting") lasts = Application.WorksheetFunction.CountIf(Sheet10.Range("K2:K10000"), txtPart.Value) If lasts > 0 Then MsgBox "هذا الإسم موجود بالفعل", vbCritical, "تنبيه" End If Exit Sub iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1 If Trim(Me.txtPart.Value) = "" Then Me.txtPart.SetFocus MsgBox "Please enter a part number" Exit Sub End If 'copy the data to the database ws.Cells(iRow, 11).Value = Me.txtPart.Value ws.Cells(iRow, 12).Value = Me.txtLoc.Value ws.Cells(iRow, 13).Value = Me.txtDate.Value ws.Cells(iRow, 14).Value = Me.TextBox1.Value 'clear the data Me.txtPart.Value = "" Me.txtLoc.Value = "" Me.txtDate.Value = "" Me.TextBox1.Value = "" Me.txtPart.SetFocus End Sub Forme.xlsb
  13. أحسنت استاذ محمد وهذا بالفعل المطلوب جعله الله فى ميزان حسناتك ووسع الله فى رزقك وأكرمك الله وفرج الله لك كربات الدنيا والأخرة
  14. السلام عليكم احبائى الكرام بمنتدى أوفيسنا الحبيب ... أرجو التكرم والتعطف من سيادتكم على مساعدتى فى تعديل هذان الكودان لكى يعملا على نطاق معين وهو D3 : M10 وليس على العمود الثانى فقط ولكم جزيل الشكر وبارك الله فى جهودكم جميعاً Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 2 Then Cancel = True Target.Font.Name = "Wingdings" If Target.Value = "" Or Target.Value = "û" Then Target.Value = "ü" Else Target.Value = "û" End If End If End Sub Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 2 Then Cancel = True Target.Font.Name = "Wingdings" If Target.Value = "" Or Target.Value = "ü" Then Target.Value = "û" Else Target.Value = "ü" End If End If End Sub True Or False.xlsb
×
×
  • اضف...

Important Information