محمد مصطفى ابو حمزة

شرف كبير ردك استاذى وطلبى فى الاخص يرتبط بالادخال بدلا من نظام الازرار الذى اتبعه وهو نظام جامد يحتاج مجهود لاضافة بند جديد فهل ممكن الاضافة من command bar به قوائم منسدلة يمكن تغيرها بسهولة ولكن تدخل القيمة فى الثلاث خلايا النشطة دفعة واحدة او طريقة اخرى بدلا من كود النسخ واللصق الذى اتبعه فى module 10 والطلب الثانى فى صفحة القيد اذا قمتم باظهار الاعمدة المخفية تجدون كود تصفية متقدمة لكل نوع مصروفات وذلك للحصول على بنود هذا النوع فيما يخص رقم القيد بدون تكرار وهو كود بدائى جدا يستلزم اضافة كود جديد بالكامل لكل نوع مصروفات وذلك فقط للوصول للبنود بدون تكرارا حيث تقوم معادلة sum product بتجميع قيمة ما يخص العنصر وتكرار كود الترحيل المتفرد فى عناصره هذا يؤدى الى اخطاء بالجملة وانا متاكد لوجود حلول اكثر نفعا ومرونة وكثرة هذة الاكواد يؤدى الى بطىء القيد عموما وبارك الله فيكم جميعا وعذراً للإطالة

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

شرح رائع جدا جدا ولكن استاذى ان سمحت لى من المفترض وقود رصيد ما قبل التاريخ الاول حتى يكون الحساب بشكل صحيح فان طلبت حساب العميل عباس مثلا من 10 /1 الى 31 /1 يجب اضافة رصيد ماقبل 10/1 الى الكشف ليكون الحساب صحيح والا سيصبح بيان تعامل فى فترة وليس كشف حساب

هل لى فى الطمع من اخوانى واساتذتى فى المنتدى بتقييم الملف وابداء الرأى واجراء التعديلات ان امكن لتعم الفائدة علىُ وعلى الجميع وهو ملف للمصروفات وتصفية العهد على مخازن مختلفة ويقوم بانشاء قيد وعند الطباعة يقوم بطباعة تفصيلى مصروفات على مراكز التكلفة ان وجدت وهى السيارات فى هذه الحالة ويقوم باخراج تقارير مختلفة اجمالية وتفصيلية بال pivot table ولكن طريقة الاكواد به بدائية جدا لانى من صنعها وبه الكثير من درر المنتدى ستجدو ازرار للادخال فى الخلايا النشطة فى ال quick access tolbar ارجو الافادة بالراى فيه او حتى تغيره بالكامل المهم ان نصل الى برنامج مصروفات متكامل وشكرا لكم mars 2013.rar

هل لى فى الطمع من اخوانى واساتذتى فى المنتدى بتقييم الملف وابداء الرأى وهو ملف للمصروفات وتصفية العهد على مخازن مختلفة ويقوم بانشاء قيد وعند الطباعة يقوم بطباعة تفصيلى مصروفات على مراكز التكلفة وهى السيارات فى هذه الحالة mars 2013.rar

والله ليت الملف توقف من زمن لاشرف بردك على يا استاذنا الكبير و والله ما قلت هو ماحدث بارك الله لنا فيك وفى تلاميذك النجباء امثال اخى khhanna

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

ارجو المساعدة فى فتح الملف حيث فجاة توقف فعند فتحه يطلب كلمة السر ثم لا يفتح وعند الدخول على نافذة الكود اجد اسماء كل الشيتات والاكواد ولكن لا استطيع رؤية البيانات كلمة السر :4567891 وشكرا مقدما لاساتذتى الكرام وارجو لمن يحل المشكلة ان يشرح الحل بارك الله فيكم mars 2013.rar

انا لله وانا اليه راجعون اللهم ارحمها واغفر لها وللمسلمين

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

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

http://www.msofficegurus.com

اخى من قاعدة التحقق من الصحة من قائمة بيانات اختارمخصص واكتب هذه المعادلة COUNTIF($A$1:$A$111;A4)=1= على افتراض ان العمود المراد منع التكرار به هو العمود a ويمكنك فتح المدى الى ما تشاء بدلا من a111

شكرا استاذنا على الرد وساحاول مع الكود لفهم الخطا

اخى جرب البحث فى هذ المنتدى الملىء بالكنوز وهذا ان شاء الله ما تريد للاستاذ احمد زمان منع_تكرار_ادخال_في_عمود.rar قائمة منسدلة دون تكرار.rar

الخطا فى هذه الجملة ib = UBound(filter(Array(MySrch), MyFind)) + 1 وذلك عند نقل الفورم الى ملف عندى وليس فى ملفكم الاصلى جزاكم الله خيرا عنا ونفع بكم الامة

استاذنا الكبير اعزر لى جهلى ولكن يعطى الكود عندى خطا عند استخدام البحث Private Sub ButtonSerach_Click() Dim tb1 As Boolean, ib As Boolean Dim R As Long, c As Integer Dim MyFind, MySrch, MyVelue '''''''''''''''''''''' Me.ListFind.Clear If Len(Trim(Me.TextFind)) = 0 Then Exit Sub ''''''''''''''''''''' c = Me.BoxFind.ListIndex + 1 'tb1 = CBool(Me.CheckFindDate.Value = True And IsDate(Me.TextFind)) tb1 = CBool(Me.CheckFindDate.Value = True) If tb1 Then If Not IsDate(Me.TextFind) Then kh_SetDate Me.TextFind MyFind = CDbl(CDate(Me.TextFind)) Else MyFind = Me.TextFind.Value End If ''''''''''''''''''''''' With MyRngdate.Cells(2, Ar(c)) For R = 1 To ContRow If Len(Trim(.Cells(R, 1))) Then If tb1 Then MySrch = .Cells(R, 1).Value2 Else MySrch = .Cells(R, 1).Value ib = UBound(filter(Array(MySrch), MyFind)) + 1 If ib Then MyVelue = IIf(IsDate(.Cells(R, 1)), Format(.Cells(R, 1), DtF), .Cells(R, 1)) Me.ListFind.AddItem MyVelue Me.ListFind.List(Me.ListFind.ListCount - 1, 1) = R End If End If Next End With ''''''''''''''''''''''''' End Sub

كل سنة وحضرتك طيب وشكراً على احلى عيدية

اللهم اغفر له وارحمه واكرم نزله وادخله الجنة

بارك الله فيك ونفع بك المسلمين

بارك الله لكم

بارك الله لنا فيك يا استاذ ALIDROOS ( أبو نصار ) وحش فى الاكسيل والله والشكر ممتد لعالى المقام استاذنا عبدالله بقشير

ما تطلب يحدث بالفع عند النقر مرتين على اى خلية بها معادلة excel2007

شاهد المرفق اخى CONCATENATE correction.rar

بورك في الموهوبة و شكرتم الواهب و بلغت أشدها و رزقتم برها - و يارب تشوف اولادها وتفرح بيها