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

[فضل حسين]

الى خبراء واعضاء منتداى العزيز والعظيم

سلام الله عليكم ورحمته وبركاته

مرفق ملف موضح به المطلوب وجزاكم الله كل خير

كود لنسخ البيانات المفلترة.rar

[أبو حنــــين]

السلام عليكم

تفضل اخي

كود لنسخ البيانات المفلترة.rar

[عبدالله المجرب]

السلام عليكم

ان كان كود اخونا ابو حنين يفي بالغرض فهذا اختصار له

Private Sub CommandButton1_Click()

Range("A1:C100").Copy ورقة2.Cells(1, 1)

	 ورقة2.Select

	 Application.CutCopyMode = False

End Sub

[رجب جاويش]

الأخ الفاضل / أبو حنين

الأخ الحبيب / عبد الله المجرب

بارك الله فيكما

[رجب جاويش]

اثراءا للموضوع

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

كود لنسخ البيانات المفلترة.rar

[الخالدي]

السلام عليكم ورحمة الله وبركاته

بارك الله في الأخوة الكرام

ولإثراء الموضوع

الكود التالي يقوم بنسخ الفلتر بصرف النظر عن موقعة في الورقة

 Sheets("Sheet1").AutoFilter.Range.Copy Sheets("Sheet2").Range("A1") 

في الملف المرفق

حل باستخدام المعادلات

نسخ البيانات المفلترة بالمعادلات.rar

[عبدالله المجرب]

الاستاذ الفاضل / الخالدي

حل مميز بالمعادلات ودليل تمكن من تطويع المعادلات

زادك الله من علمه ونفع بك

[فضل حسين]

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

للاخوة الاساتذة الكبار

الاستاذ الفاضل / ابو حنين

حبيب قلبى المايسترو

نجم الاكسل رجب جاويش

ساحر الاكسل الخالدى باشا

واود ان استئذن اخى الخالدى باشا فى ملحوظة وهى ان الحل بالمعادلات لايعمل بشكل صحيح ولاادرى ماهى المشكلة او سبب عدم ظهور النتائج بالمعادلات .

تم تعديل أبريل 14, 2012 بواسطه فضل 1

[الخالدي]

السلام عليكم ورحمة الله وبركاته

الأستاذ الفاضل / عبدالله المجرب

شكرا على الثناء الطيب ونسال الله لكم دوام التميز علما وخلقا

الأخ الفاضل / فضل

شكرا على الإطراء لأخونك

وأما عن مشكلة المعادلات فلا اعلم السبب

جرب الملف المرفق بعد تعديل المعادلات , والمعادلة تحتوي على جزء معرف باسم xxx

في امأن الله

نسخ البيانات المفلترة بالمعادلات2.rar

[فضل حسين]

ساحر الاكسل ......... الخالدى باشا

سلام الله عليكم ورحمته وبركاته

اعلم ومقدر تماما بمدى انشغالاتك وبضيق وقتك متمنيا لك التوفيق فى اعمالك وأرجو الا اكون بثقل عليك فالمعادلة للاسف لاتعمل معى

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

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

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

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

انا بالحقيقة جربت النسخ بالمعادلات وغيرت النطاق وعملت بشكل جيد مجرد رغبت ان انوه على سؤال الاخ العزيز فضل 1

ودمتم برعاية الله وحفظه

[فضل حسين]

الاخ الفاضل / عباس السماوى

سلام الله عليكم ورحمته وبركاته

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

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

[احمد فضيله]

جزاكم الله كل خير

[احمد فضيله]

بعد اذن كل الاخوه الكرام

فقط لاثراء الموضوع

الاخ الاستاذ / فضل

تفضل هذا المرفق و ان شاء الله يكون به حل يضاف لحلول الاخوة و الاساتذه الفضلاء

و السلام عليكم و رحمة الله و بركاته

كود لنسخ البيانات المفلترة FADILA.rar

[فضل حسين]

اخى العزيز / احمد فضيلة

سلام الله عليكم ورحمته وبركاته

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

سلام ياحبيبى ونتقابل فى مشاركات اخرى .

[hesham_khadr200]

اخواني طاب يومكم

لو ممكن لصق الفلتره في شيت موجود بالفعل وله اسم

[أبو ردينة]

بسم الله ماشاء الله

ما أروعكم يا شباب و ما أجمل ما تقدمونه لنا جميعا بصفة مستمرة

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

[احمد فضيله]

اخى العزيز / احمد فضيلة

سلام الله عليكم ورحمته وبركاته

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

سلام ياحبيبى ونتقابل فى مشاركات اخرى .

و عليكم السلام عليكم و رحمة الله و بركاته

اخي الحبيب الاستاذ / فضل

عفواً يا اخي

و الله الموفق و المستعان

[احمد فضيله]

اخواني طاب يومكم

لو ممكن لصق الفلتره في شيت موجود بالفعل وله اسم

السلام عليكم و رحمة الله و بركاته

الاخ الاستاذ / هشام

بالنسبة للحل المرفق في المشاركه رقم 14

Sub Button6_Click()

a = 1

Do Until Cells(a, "a").Value = ""

a = a + 1

Loop

Range(Cells(1, "a"), Cells(a - 1, "c")).Select

Selection.Copy

Sheet2.Activate

Sheet2.Cells(1, 1).Select

ActiveSheet.Paste

Application.CutCopyMode = False


End Sub

فقط قم بتغيير اسم الشيت الذ ي تريده في الكود في الجزء التالي :

Sheet2.Activate

و الله المستعان

[احمد فضيله]

او قم بارفاق ملف

و ان شاء الله نقوم بعمل ما تريد

[hesham_khadr200]

شكرا جزيلا لك يا لخي الحبيب وجزاك الله كل خير

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

اخي العزيز فضل1 حفظك الله ورعاك ارفق لك الملف حسب طلبك وفيه التعديل لغاية 15 C ويمكن الاضافة وجربتها قبل ان ارفعها وهي تعمل بشكل جيد ودعواتي لك بالصحة والعافية

والسلام عليكم ورحمة الله وبركاته

نسخ البيانات المفلترة بالمعادلات21.rar

[Ahmed Elbhiry]

الاخ عباس

تحية طيبة احسنت ما معنى (xxx) فى المعادلات للدلالة على القيمة

ياريت تشرح معادلة من هذه المعادلات

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

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

وتقبل دعواتي لك بالصحة والعافية ودمتم في حفظ الله ورعايته

والسلام عليكم ورحمة الله وبركاته

[Ahmed Elbhiry]

مشكور اخى عباس

نتظر الاخ الخادى لتوضيح