عمر ضاحى

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

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

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

الف شكر لك شغال تمام انا شايف هذا الكود 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 علشان تنفذ الشرط وهو شغال تمام لكن لما باختار من القائمة الكل (ال هو الوارد والمنصرف) بيجبلى فقط المنصرف يعنى فى حالة اني عاوز الاثنين محتاج اعمل ايه ؟

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

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

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

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

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

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

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

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

السلام عليكم اساتذتى الكرام تحية طيبه للجميع وبعد؛ بعد اذن حضراتكم انا كنت عملت موضوع بعنوان (( إنشاء استعلام عن قيم ونصوص معينه تحت شرط معين )) ولله الحمد اجابنى استاذى الفاضل احمدزمان وكان لى استفسارات اخرى لكن للاسف لم يستطع احد ان يجيب عن استفساراتى فى الموضوع السابق وانا اليوم بعد اذنكم كنت محتاج اطور الكود ده بالاتى 1- كيف ادمج بين مفتاح الاستعلام بالشروط فى عمليت الفلتره 2- كيف عمل قائمة استطيع ان اختار منها اسم مخزن (المخزن هنا هو اسم الشيت) او عدة مخازن لتحقيق شرط معين يأتى تاليا 3- كيف استعلم بين تاريخين عن جميع الارصده بمعني ( عند وضع تاريخين يقوم البرنامج بالبحث لى عن جميع الفواتير فى جميع المخازن اذا لم اقوم بتحديد مخازن معينه ) 4- وعندما اريد ان اطبع النتائج اريد ان تظهر لى النتائج بصورة معينه دون طباعة صف الادوات ويظهر لى كتقرير ويتم وضع شعار وابيانات اريد وضعها فيما بعد اسف ان طلباتي كثير لكن هنا عمالقة الاكسيل لا يصعب عليهم شئ من هذا وشكرا للجميع مقدما TEST2.xlsm

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

up

UP

UP

هل ممكن تحديث البرنامج بحيث يعمل الكود على اوفيس 2016 لانه بيظهر لى خطأ عند تشغيله

up

up

up

up