عمر ضاحى

ايه الابداع ده بجد الله يبارك فيك

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

افضل حاجه ان تكون النماذج عندك تكون غير منضمه ويكون التسجيل بالاكواد كده هتضمن عدم تسجيل اى شئ حتى الضغط على مفتاح حفظ هذا طبعا وجة نظري ال ملهاش اى تلاتين لزمه ( لانى مبتدأ ) 😅 واكيد هنا هتلاقى طريق اكثر لا اعرفها واكثر احترافيه انا فقط لسه مبتدأ

اذا كنت اخطأت الطلب او هناك شئ خاطئ بعد اذنكم توضيح ام انى استعجلت فى طلبي ؟

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

الف الف شكر لحضرتك وجارى التجربة

اسف . بس ما فى اى جديد اخى الكريم

هل يمكن لهذا الكود تطويره بحيث يظهر ايضا فى القائمة الصفحات المخفيه ؟ والصفحات المخفيه تظهر مثلا بشكل مائل بحيث تكون مميزه عن الصفحات الظاهره

اها تقصد ان رقم الفاتورة هتكون ف عمود a واسم المخزن هيكون فى عمود B ? ما فى مشكله توكل على الله وابدأ

مش فاهم حضرتك يعنى ايه هيعاد ترتيب شكل التقرير اعطينى مثال حتى استطيع ان افهم قصد حضرتك

ما فى جديد اخى الكريم فى بقية النقاط ؟

الف الف شكر لحضرتك واسف انى تعبت حضرتك وربنا يوسع عليك ويجزيك عنا كل خير

هو ممكن يقصد انك تعمل تصدير لحركة البصمه وتحفظها فى ملف اكسيل طبعا انا بعمل كده عادي لكن ايضا ال اقدر احاول استنبط من سؤالك انك عاوز الحركه دى تحدث اليا دون تدخل منك وتعرض امامك على الاكسيل مظبوط ؟؟ اعتقد والله اعلم لا يمكن بسبب ان برامج الخاصه بالبصمه بتكون مرتبطه بقواعد بيانات وعند تصديرها للاكسيل بيتم استخراجها من قواعد البيانات ممكن يكون كلامي خطأ كليا او جزءيا وانا اتمني ان تكون هناك طريقه لان بكده التعامل مع البصمه هيكون اسهل من برامجه

الف شكر لك شغال تمام انا شايف هذا الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim R As Long On Error GoTo 1 If Not Intersect(Target.Cells(1, 1), Range("q11").Resize(Me.UsedRange.Rows.Count)) Is Nothing Then If IsNumeric(CStr(Target.Cells(1, 1))) Then R = Target.Cells(1, 1) Cancel = True With Sheets(TEAK - WOOD) ' Worksheets("البحث في المكتبة") .Select .Cells(R, "A").Select End With End If End If 1: End Sub وايضا هذا الكود Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'حدث النقر المزدوج On Error GoTo 1 Application.ScreenUpdating = False 'True ListBox3.Enabled = True ListBox2.SetFocus 'تنشيط الست بوكس 2 ListBox3.SetFocus 'تنشيط الست بوكس 3 For I = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(I) = True Then 'اذا تم تحديد في الست بكس الاولى ListBox2.Selected(I) = True 'فإنه يتم تحديدنفس المكان في الست بكس الثانية ListBox3.Selected(I) = True vas = ListBox2.Value 'وهنا يعطينا قيمة الصف لما تم تحديدة في الست بكس End If Next I If ListBox3.ListIndex > -1 Then Sheets(ListBox3.Value).Activate ' كود تحديد الشيت End If Application.Goto Range(Cells(vas, 2), Cells(vas, 9)), True 'كود تحديد مكان صف البحث 1: ListBox3.Enabled = False Application.ScreenUpdating = True End Sub فهل لهم فائدة فى استفسارى ؟ وايضا كان نفسي حضرتك تعمل فيديو شرح لالية العمل هذا الكود وكيف جعلت الشرط يتحقق فى الثلاث حالات حتى يستفاد غيرى من هذه الاعمال الرائعه جزاك الله عنا كل خير حضرتك واستاذى احمد

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

بالنسبه للصورة اضافة تلقائى لما ربطة حسابى بالفيس وبالنسبه لهذه القيود انا معك فيها ولك كل الحق فى اتخاذ هذه الاجراءات كلن مثلا انا مشترك من 2016 وبكلامك هذا يجعل الواحد يفكر بطرق الاسبام لحل هذه المشكله وطبعا انا ضد هذه المشكله حيث انا ايضا مشرف فى منتدي ما واعاني من مثل هذه التصرفات لهذا لو قبلت هذا ( الطلب) بحيث تزيل عني هذه القيوم اذا امكن وفى حال ثبت انى قمت باستغلال هذه الامور لك كل الحق فى ازالتها مني مره اخرى ارجوا ان تنظر للامر وشاكر لك سعة صدرك

استاذ عبدالرحمن اولا اشكر حضرتك على مجهودك ولى استفسار اخر انا دلوقتى حضرتك حطيت الكود ده If QQ = ("وارد") Then Q4 = ("وارد") Else Q4 = ("") End If علشان تنفذ الشرط وهو شغال تمام لكن لما باختار من القائمة الكل (ال هو الوارد والمنصرف) بيجبلى فقط المنصرف يعنى فى حالة اني عاوز الاثنين محتاج اعمل ايه ؟

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

شرط التاريخ زى ما هو (لانه هو الاصل فى الاستعلام ) فقط بدل ما يظهرلى الجميع يظهرلى الوارد فقط

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

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

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

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

جزاك الله كل خير عنا واعانك الله على جميع مشاغل ويسر لك الله امورك كلها

اولا الف الف شكر لرد حضرتك ثانيا لو امكن ممكن حضرتك تعطينى وسيلة اتصال بك فى حالة محتاج امر ضرورى (هذا اذا امكن وحدود المسموح به) ثالثا انا عملت موضوع جديد كنت محتاج رد حضرتك عليه واخيرا الف الف شكر لك