هانى محمد

أحسنت استاذ عمر وأحسن الله اليك ... شكراً جزيلاً لجهود سيادتكم ولكن تظهر معى رسالة خطأ عند ادخال نفس الفندق أكثر من مرة , فهل هناك حل لذلك ..فكما أخبرت حضرتك سلفاً ان هذا طبعاً وارد فربما يتم ادخال نفس اسم الفندق أكثر من 1000 مرة ؟!!وبناءاً لظهور هذه الرسالة يتوقف الكود عن العمل ولا يقوم بالمهمة المكلف بها حتى عند ادخال اسم فندق جديد لأول مرة لا يقوم بفتح صفحة له

بارك الله فيك استاذ عمر هذه الصفحة للإدخلات طوال العام وطبيعى ان يتكر اسم الفندق او وجود العديد من الحجوزات لنفس الفندق انا اريد فتح صفحة واحدة لهذا الفندق .بمعنى فتح صفحة للفندق فقط عند الإدخال لأول مرة بغض النظر عن تكرار ادخال هذا الفندق مستقبلاً وبالمعادلات سيتم ترحيل بيانات الفندق الى صفحته كما بصفحة Aqua Park HRG ,,, ولكم جزيل الشكر على ردكم

السلام عليكم أحبائى واساتذتى الكرام .. وكل عام وانتم بخير ,,, أتمنى منكم التكرم على مساعدتى لعمل كود لفتح شيت جديد تلقائياً كلما تم ادخال اسم فندق جديد بالعمود C بصفحة Rooming List على ان تأخذ هذه الصفحة نفس تنسيقات صفحة Aqua Park HRG بأن يكون اسم الفندق بالخلية K2 للصفحة الجديدة ... ولكم جزيل الشكر وبارك الله فيكم <<<وهذا نموذج مصغر للملف الأصلى الذى قد يتعدى 4000 صف Summer 2022 .xlsb

شكراً لكم جميعاً ...ولكن لم يتغير شيء ومازالت المشكلة قائمة ..فهل هذا بسبب ان هناك بيانات فى الأعمدة التى تسبق العمود K أم ماذا ؟!!!!! توصلت الى الحل بإضافة هذا الجزء من الكود ... فشكراً لكم جميعاً على جهودكم ومساعدتكم iRow = ws.Cells(Rows.Count, 11) _ .End(xlUp).Offset(1, 0).Row

بارك الله فيك استاذ محمد , أحسنت تم بفضلكم ضبط هذه الجزئية من الكود أما بالنسبة للجزئية الثانية فمازالت المشكلة قائمة وهى عند الترحيل من الفورم الى الشيت أريد أن يبدأ الترحيل بداية من الخلية K2 الى العمود N وان يكون الترحيل تحت بعض وليس بفراغات كما يظهر لسيادتكم بالصورة ولكم جزيل الشكر ووسع الله فى أرزاقكم ورحم الله والديكم Forme.xlsb Forme.xlsb

السلام عليكم أساتذتى الأفاضل ... أرجو التكرم على مساعدتى فى ضبط وتعديل كود الترحيل من الفورم الى صفحة 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

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

السلام عليكم احبائى الكرام بمنتدى أوفيسنا الحبيب ... أرجو التكرم والتعطف من سيادتكم على مساعدتى فى تعديل هذان الكودان لكى يعملا على نطاق معين وهو 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

تفضل طبعاً بعد اذن استاذنا الكريم lionheart .. فالأمر سهل جداً ولكن لابد من الضغط على الإعجاب 💙 من طرفكم لما قدمه لكم استاذنا الكبير lionheart الاباء1.xlsm

أحسنت استاذ عمر وهذا بالفعل هو المطلوب .. بفضل مجهوداتكم بارك الله فيك وزادك الله من فضله ووسع الله فى رزقك

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

تفضل 46.xlsx

تفضل seddiki_adz .. ولكن هذه مسألة بسيطة جداً وكان عليك وضع الكود بالملف بنفسك .. وطالما انك تريد حل مشكلتك بالأكواد فكان عليك من باب أولى رفع الملف بإمتداد يقيل اضافة الأكواد من البداية مثل Xlsm والشكر موصول لأستاذنا الكبير lionheart ولكن بكل بساطة لإضافة الكود بالملف عليك بالضغط على Alt+F11 ثم بعد ذلك الضغط على قائمة Insert واختيار Module ستفتح لك نافذة جديدة عليك بلصق الكود بها وشكراً BINOME2223.xlsm

كل عام وحضرتك بخير ... أحسنت وأحسن الله اليك ممتاز وهذا فعلاً المطلوب جعله الله فى ميزان حسناتك ووسع الله فى رزقك وأكرمك الله فى الدارين ..لك الشكر كله جزاك الله خير الثواب

بارك الله فيك استاذ عمر وكل عام وانتم بخير طبعا كما أوضحت سابقاً شهور السنة كلها بنفس الأعمدة والتنسيقات ... والسؤال الثانى طبعاً اذا تكرر اسم المورد برحلتين مختلفتين , نعم يعتبرا اسمين مختلفين أما بالنسبة للسؤال الثالث بخصوص جمع المبالغ يكون بداية من العمود G حتى العمود N من صفحات الشهور , نعم اجمالى المبالغ لإسم المورد مع الرحلة هناك صفحة فقط أخرى مخفية تسمى Setting

وعليكم السلام-جرب هذا الفيديو

السلام عليكم أساتذتى الكرام ... رجاءاً من حضراتكم مساعدتى فى ايجاد حل لمشكلتى , أريد من سيادتكم تجميع جميع شهور السنة بصفحة Summary , مع العلم ان كل صفحة من صفحات الملف تشمل شهر كامل وسيتم اضافة باقى شهور السنة مستقبلا وذلك طبعاً بدون تكرار اسم المورد الموجود بالعمود B مقترناً بإسم الرحلة الموجود بالعمود C على ان يذكرا مرة واحدة ولكن بإجمالى المبالغ... وسأضع مثال فعلى للنتيجة المطلوبة بصفحة Summary ولكم جزيل الشكر وبارك الله فى جهودكم Total Suppliers Invoice - Copy.xlsm

لأ طبعاً لا يمكن ذلك !!!

كيف تقول ذلك ؟!!! وما هذا اذن !!!!!!!!!!

تفضل ... كما يمكنك الإستعانة بهذا الرابط How To Create A Searchable Drop Down List In Excel? قائمة منسدلة1.xlsx

من الأفضل دائما لضمان حسن عمل الكود ... عليك بتغيير اسم الصفحة باللغة الإنجليزية .... او عليك بضبط اعدادات اللغة العربية لديك وقد تكرر هذا الموضوع كثير جداً فكان عليك استخدام خاصية البحث بالمنتدى -تفضل مشكلة في اللغة العربية

لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب !!!

وعليكم السلام-- انتبه من فضلك فكان عليك استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك فطلبك تكرر كثيراً -تفضل Kutools

وعليكم السلام وكيف تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب ؟!!!