ترحيل بيانات الصف الذي تقف عليه وتعبئة النموذج به

[علي السحيب]

المرفق يحتوي على طريقة جديدة لترحيل البيانات .. وهي ترحيل بيانات الصف الذي تقف عليه ..

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

بعض ما يحتوي عليه المرفق،

1. تلوين جميع بيانات الصف الذي تقف عليه.

2. تعبئة نموذج موجود في نفس ورقة العمل بمجرد الوقوف على أي صف يحتوي على بيانات.

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

4. خروج رسالة لتأكيد ترحيل البيانات.

5. بعد الترحيل يتم تحديث الترقيم التسلسلي لكل من البيانات في الصفحة الرئيسية والبيانات في الصفحة الفرعية.

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

7. تعبئة نموذج آخر موجود في ورقة عمل أخرى ببيانات الصف الذي تقف عليه حالياً.

8. التنبيه في حالة كون الصف الذي تقف عليه غير داخل ضمن نطاق البيانات المُعدة للترحيل.

9. التنبيه في حالة كون الصف الذي تقف عليه خالياً من البيانات.

أتمنى أن يستفيد الجميع من هذه الإضافة،

__________________________________________________.rar

تم تعديل أكتوبر 11, 2006 بواسطه علي السحيب

[omar elhosseini]

بسم الله الرحمن الرحيم

الاستاذ علي السحيب

تحياتى لك

مثل ما تعودنا منك ابداع رائع وجميل

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

بارك الله فيك

تحياتى

[الجزيرة]

ما شاء الله

ابدااااااااااااااع يا بو حسين كالعاده :)

[علي السحيب]

تم وضع تعديل نهائي للملف .. أتمنى أن يحوز على إستحسانكم ..

وآمن من الأعضاء الكرام تحميل المرفق من جديد للإطلاع على التعديلات التي جرت عليه،

[halwim]

بسم الله الرحمن الرحيم

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

ماشاء الله تبارك الله ..... أستاذ على السحيب

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

تحياتي

[علي السحيب]

شكراً لكم جميعاً على الإطراء.

[ahmedamer2005]

عندى برنامج واريد تطبيق هذا الابتكار عليه

ولكنه يعطى خطأ عن اجراءوه برجاء النظر اليه وشكرا

test.rar

[علي السحيب]

شاهد المرفق،

test.rar

[gamalin]

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

ومن يسهم في انجاحه

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

[ahmedamer2005]

انا اشكرك جدا على الاستجابة السريعة لتسأؤلى جعله الله فى ميزان حسناتك

ولكنى عندما نقلت اوراق العمل الى مصنف اخر لم يعمل مع الكود

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

وشاكر جدا

SALLAY.rar

[نزار سليمان عيد]

الاخ ابا حسين صباح الخير

بخصوص نفس النموذج الرائع الذي عملته ممكن نعمل تعديل بسيط وهو

عند الوقوف على السطر ويتم ظهوره بالنموذج ممكن تعديل بسيط بحيث عند الوقوف على A5 مثلا من sheet1

ياتي ببيانات موجودة من sheet2 من A6 الى D100 وعند الابتعاد عن A5 تختفي البيانات مع العلم لو وجد اصلا بيانات في

Sheet1 على نفس المدى تبقى موجودة مثلا

sheet1 كان يوجد بيانات كالاتي

A6 =1

A7=s

b6=a

c6=6

المطلوب هذه البيانات مثلا لاتنحذف عند عمل الاستعلام اما يتم اخفاؤها واظهارها او عمل نسخ ولص في مكان اخر وبعد الانتهاء من الاستعلام تعود لمكانها الاصلي

ارجو ان اكون وضحت المطلوب

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

[علي السحيب]

انا اشكرك جدا على الاستجابة السريعة لتسأؤلى جعله الله فى ميزان حسناتك

ولكنى عندما نقلت اوراق العمل الى مصنف اخر لم يعمل مع الكود

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

وشاكر جدا

شاهد المرفق،

CopyCurrentRecord.rar

تم تعديل أكتوبر 10, 2006 بواسطه علي السحيب

[علي السحيب]

الاخ ابا حسين صباح الخير

بخصوص نفس النموذج الرائع الذي عملته ممكن نعمل تعديل بسيط وهو

عند الوقوف على السطر ويتم ظهوره بالنموذج ممكن تعديل بسيط بحيث عند الوقوف على A5 مثلا من sheet1

ياتي ببيانات موجودة من sheet2 من A6 الى D100 وعند الابتعاد عن A5 تختفي البيانات مع العلم لو وجد اصلا بيانات في

Sheet1 على نفس المدى تبقى موجودة مثلا

sheet1 كان يوجد بيانات كالاتي

A6 =1

A7=s

b6=a

c6=6

المطلوب هذه البيانات مثلا لاتنحذف عند عمل الاستعلام اما يتم اخفاؤها واظهارها او عمل نسخ ولص في مكان اخر وبعد الانتهاء من الاستعلام تعود لمكانها الاصلي

ارجو ان اكون وضحت المطلوب

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

لم أستوعب الفكرة تماماً .. صمم ما تريده بالضبط على ملف وأشرح فيه الفكرة بشكل كامل .. وضعه هنا .. وإن شاء الله يتم تنفيذ كل ما تريد،

[نزار سليمان عيد]

الاخ ابا حسين

مرفق الملف وان شاء الله يكون واضح الشرح في داخل المرفق

ولاتنسانا من صالح الدعاء في العشرة الاواخر

Book3.zip

[ahmedamer2005]

انا مش عارف ارد جميلك ده ازاى ياستاذ على السحيب

جعله الله فى ميزان حسناتك

ورمضان كريم

[علي السحيب]

الاخ ابا حسين صباح الخير

بخصوص نفس النموذج الرائع الذي عملته ممكن نعمل تعديل بسيط وهو

عند الوقوف على السطر ويتم ظهوره بالنموذج ممكن تعديل بسيط بحيث عند الوقوف على A5 مثلا من sheet1

ياتي ببيانات موجودة من sheet2 من A6 الى D100 وعند الابتعاد عن A5 تختفي البيانات مع العلم لو وجد اصلا بيانات في

Sheet1 على نفس المدى تبقى موجودة مثلا

sheet1 كان يوجد بيانات كالاتي

A6 =1

A7=s

b6=a

c6=6

المطلوب هذه البيانات مثلا لاتنحذف عند عمل الاستعلام اما يتم اخفاؤها واظهارها او عمل نسخ ولص في مكان اخر وبعد الانتهاء من الاستعلام تعود لمكانها الاصلي

ارجو ان اكون وضحت المطلوب

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

الكود التالي يقوم بتنفيذ جميع ما طلبت:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Address = "$B$2" Then

For R = 3 To 29
Cells(R, 256) = Cells(R, 2)
Cells(R, 2) = Sheet2.Cells(R, 2)
Next

Else: For R = 3 To 29
Cells(R, 2) = Cells(R, 256)
Next

End If
End Sub

شاهد المرفق .. أتمنى أن يكون هذا فعلاً ما تريد،

_______________________________________________.rar

[نزار سليمان عيد]

الاخ الغالي ابا حسين

الله يعطيك العافية فعلا هذا المطلوب ولكن عند وضع المؤشر ياتي بالقيم ولاياتي بالعمود A وهو اسماء هذه القيم ممكن التعديل

اسال الله العظيم ان يحفظك في مالك واهلك وعملك

[نزار سليمان عيد]

عذرا ابا حسين ايضا هل من الممكن عمل مسح للقيم في R256 بعد وضع المؤشر في خلية اخرى

هذا الحاقا للمطلب السابق وجزاك الله كل خير

[علي السحيب]

الاخ الغالي ابا حسين

الله يعطيك العافية فعلا هذا المطلوب ولكن عند وضع المؤشر ياتي بالقيم ولاياتي بالعمود A وهو اسماء هذه القيم ممكن التعديل

اسال الله العظيم ان يحفظك في مالك واهلك وعملك

تم التعديل،

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

نعم من الممكن عمل ذلك ولكن هذا سوف يؤدي أحياناً إلى مسح البيانات .. وذلك عند الضغط على أي خلية ضغطاً مزدوجاً .. لذا أفضل أن نقوم بإخفاء الأعمدة التي تحتوي على البيانات المؤقتة بدلاً من مسح محتوياتها.

شاهد المرفق،

_______________________________________________.rar

تم تعديل أكتوبر 15, 2006 بواسطه علي السحيب

[نزار سليمان عيد]

الاخ ابا حسين

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