التصفية وترحيل البيانات

[Omar_Kreem]

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

لدى شيت به بيانات تعتمد فى التصفية على قيم العمود d3 حتى d38.

أريد التصفية أن تكون تلقائية بحيث : إذا كان العمود d = 01 تنقل بيانات الصفوف التى تشتمل على القيمة "01"الى الشيت المسمى 1.

وإذا كان العمود d = 02 تنقل البيانات الى الشيت 2..

وإذا كان العمود d = 03 تنقل البيانات الى الشيت 3.

وهكذا حتى الشيت 12.

Test.zip

[سالم شباني]

السلام عليكم

تفضل أخي هذا الحل ، قد يفي بالغرض

Test.zip

[Omar_Kreem]

أشكرك أخى سالم جزيل الشكر .. كود جميل من رجل رائع.. بارك الله فيك

معذرة إن أثقلت عليك ..

أخى هل من الممكن أن نترك بين كل صف وأخر أربعة صفوف خالية.. بمعنى عند إدراج التصفية فى الشيت (1) يترك أربعة صفوف بدون بيانات بين كل سجل وأخر وهكذا فى باقية الشيتات.

تم تعديل يونيو 26, 2010 بواسطه omar19-3

[هشام شلبى]

السلام عليكم

==========

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

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

الاخ omar19-3

هذا طلبك وبين كل سجلين اربع فراغات

Test1.rar

[حسين شاكر]

الاخ الحبيب هشام

اية الجمال والابداع دة اكواد جميلة اكرمك الله

[الحسامي]

السلام عليكم

اخي سالم واخي هشام بارك الله بكم ولاثراء الموضوع هنا حل اخر

ترحيل بيانات.rar

[الحسامي]

السلام عليكم

اخي هشام بارك الله فيك على هذه الحلول

ولاثراء الموضوع من جديد ولطرح اكبر قدر من الحلول

هنا تعديل على كود اخي هشام كونه استعمل اسلوب نسخ البيانات

لكن تم تعديل الكود باستخدام التكرارات

للفائدة

Test1.rar

[Omar_Kreem]

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

شكرا لكم أخوايا: (هشام شلبى، الحسامى).. حلول أكثر من رائعة جزاكم الله خيراً.. والشكر موصول كذلك لأخى سالم شبانى بارك الله فيكم جميعا..

[Omar_Kreem]

معذرة أساتذتى الأفاضل إن أثقلت عليكم..

هل يمكن دمج خلية الاسم والخلايا الفارغة أسفله ..

مع مراعاة .. أنه سيتم إجراء التصفية فى الشهر القادم مثلا .. فلا يحدث الدمج مشاكل عند التصفية مرة أخرى.

[قصي]

Sub Macro5()

' Macro recorded 27/06/2010 by hosami

Application.ScreenUpdating = False

For j = 1 To 12

Sheets(j).Range("a4:d100").ClearContents

z = 1

For i = 4 To Application.CountA(Sheets("All").Range("a4:a1000")) + 10

If Sheets("All").Cells(i, "d") = j Then

For k = 1 To 4

Sheets(j).Cells(z, k) = Sheets("All").Cells(i, k)

Next k

z = z + 5

End If

Next i

Next j

End Sub

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

هذا الكود مفيد ويمكن استخدامه في استخراج شيتات الناجحين والدور التاني

اذا تم الغاء الاربغ اسطر الفارغه

واذا تم جعل خلية التصغيه خارج الجدول

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

معذره للتداخل

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

تم تعديل يونيو 27, 2010 بواسطه قصي

[سالم شباني]

السلام عليكم

أكواد رائعة من أناس هم أكثر روعة

أخي هشام ، أخي عماد جزاكما الله خيرا وزادكما رفعة

[Omar_Kreem]

معذرة أساتذتى الأفاضل إن أثقلت عليكم..

هل يمكن دمج خلية الاسم والخلايا الفارغة أسفله ..

مع مراعاة .. أنه سيتم إجراء التصفية فى الشهر القادم مثلا .. فلا يحدث الدمج مشاكل عند التصفية مرة أخرى.