samycalls

()Sub Macro7 Sheets("بيانات2").Range("B6:Q666:AQ666:R6:U666").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("D3:D4"), CopyToRange:=Range("B6:V6"), Unique:=False End Sub هذا الكود للبحث فى ورقة عمل عن اسماء أو قيم وللبحث عن اسماء لابد من كتابة الاسم كاملا .. أو كتابة القيمة كاملة .. فهل يمكن تعديله ليكتفى بأول كلمة فى الأسم وبأول أرقام فى القيمة.. أفيدونى أكرمكم الله ..

مشكور يا أخى على جهدك .. ولكن ليس هذا ما أقصدة ..

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

الى خبراء الأكواد المطلوب تعديل الكود لتكون نتيجة التصفية فى ورقة 2كود للبحث بدلالة خلية أخرى.rar

كيفية عمل زر للإنتقال الى كلمة فى ورقة اكسيل انتقال.rar

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

أخى الكريم أبو نصار كلما اقتربنا من نهاية الأمر تتركنى بلا جواب ..

أخى الفاضل ابو نصار .. السلام عليكم .. هل وصلتك مشاركتى رقم 28 ..

أخى الفاضل الكريم أبو نصار .. حمداً لله على سلامتك .. كان الله فى عونك .. الملف المرسل فى غاية الروعة .. وأود أن تقوم بتعديل خمسة أشياء موضحة بالمرفق . حتى أتمكن من بداية العمل .. وحتى يصلنى ردك أعلمنى بوصول رسالتى إليك .. أرجو الرد فى أقرب وقت .. أقرب وقت .. وشكراً لسعة الصدر .. samycalls.rar

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

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

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

أخى الفاضل الكريم نسخت الكود داخل المديول ولكنه لايعمل .. ارجو التوضيح

هذا الكود المراد أن ينسخ ما فى الورقة بيانات الى الورقة استعلام وهذا الكود يقوم بعمله وينسخ بالفعل ولكن بنفس ماهو موجود فى ورقة بيانات ، وورقة بيانات تحتوى على بيانات جميعها واردة بالمعادلات من ملف أخر ولذلك المطلوب أن ينسخ ما فى الورقة بيانات الى الورقة استعلام كقيم فقط موجودة كناتج فى خلايا ورقة بيانات وليس بنسخها كما هى معادلات . Sub macro2() On Error Resume Next Application.ScreenUpdating = False Dim S_ALI As Worksheet Dim X_ALI& Dim R_ALI As Range ("بيانات") Set S_ALI = Sheets ActiveSheet.Range(Cells(7, 2), Cells(Rows.Count, 9)).Clear With S_ALI X_ALI = .Cells(Rows.Count, "R").End(xlUp).Row Set R_ALI = .Range("B7:R" & X_ALI) R_ALI.Copy ActiveSheet.[b7] Application.CutCopyMode = False End With Application.ScreenUpdating = True UserForm1.Show 0 End Sub

الأخ الفاضل ابو نصار انتظرتك طويلا على أمل أن يصلنى منك رد .. لكن لا أعلم لماذا تجاهلتنى كل هذا الوقت .. أرجو لك الخير ..

جميع الردود من الأخوة والأساتذة الكرام ممتازة وتؤدى الغرض .. خالص شكرى وامتنانى ..

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

الأخ الكريم أبو نصار .. السلام عليكم .. 1 - إلى أين وصلت . هل من جديد ؟ 2 - خطرت لى فكرة بخصوص زيادة عدد الأعمدة فى listbox . هل من الممكن أن نجعل عمو د listbox يضم ( وليس يجمع ) قيم عمودين أو ثلاثة فى كل صف من صفوفة من أعمدة ورقة الأكسيل .. هل فهمت ما أقصد ! أرجو الرد على 1 ، 2 إن تكرمت ..

أخى الفاضل أحمد زمان شكرى على اهتمامك ولكنى أود عمل طلبى على الفورم .. بارك الله فيك

الأخوة الكرام هل من افادة وتعديل على المرفق لزيادة عدد الأعمدة فى listbox حتى 20 عموداَ مع اضافة ترقيم تلقائى على نتيجة البحث ( رقم مسلسل ) فى العمود الأول فى نتيجة البحث مع عمل قائمة منسدله يمكن من خلالها البحث إما باسم الشخص وإما بكود الشخص وإما شئ ثالث ( أى البحث بمعارين أو ثلاثة ) على أن تكون نتيجة البحث فى كل الحالات بنفس الشكل أى الرقم المسلسل ثم الاسم ثم الكود وهكذا .. مع شكرى وتقديرى لأخى أبو نصار ..

نشاط تجارى.rarالأخوة الكرام هل من افادة وتعديل على المرفق لزيادة عدد الأعمدة فى listbox حتى 20 عموداَ مع اضافة ترقيم تلقائى على نتيجة البحث ( رقم مسلسل ) فى العمود الأول فى نتيجة البحث مع عمل قائمة منسدله يمكن من خلالها البحث إما باسم الشخص وإما بكود الشخص وإما شئ ثالث على أن تكون نتيجة البحث فى كل الحالات بنفس الشكل أى الرقم المسلسل ثم الاسم ثم الكود وهكذا ..

أخى ابو نصار أنا فى أنتظار ردك .. أن كنت معى .. فأبلغنى .. حتى انتظر لو كنت مازلت تقوم بالتعديل الأخير المطلوب للملف

أخى الفاضل ابو نصار الرجاء الأطلاع عل المرفق وافادتى أن أمكنك .. وبارك الله فيك التعديل الأخير.rar

أعتقد أننى أثقلت عليك أكثر من اللازم .. كل شكرى .. وأعتذر

الله يبارك فيك يتبقى عدد الأعمدة 20 فى الفورم وفى صف الجمع ( كما طلبت سالفاً )