اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

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

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

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

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

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

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

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

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

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

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

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

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

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

__________________________________________________.rar

تم تعديل بواسطه علي السحيب
قام بنشر

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

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

تحياتى لك

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

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

بارك الله فيك

تحياتى

قام بنشر

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

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

قام بنشر

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

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

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

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

تحياتي

قام بنشر

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

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

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

قام بنشر

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

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

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

وشاكر جدا

SALLAY.rar

قام بنشر

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

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

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

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

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

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

A6 =1

A7=s

b6=a

c6=6

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

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

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

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

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

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

وشاكر جدا

شاهد المرفق،

CopyCurrentRecord.rar

تم تعديل بواسطه علي السحيب
قام بنشر
الاخ ابا حسين صباح الخير

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

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

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

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

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

A6 =1

A7=s

b6=a

c6=6

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

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

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

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

قام بنشر
الاخ ابا حسين صباح الخير

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

عند الوقوف على السطر ويتم ظهوره بالنموذج ممكن تعديل بسيط بحيث عند الوقوف على 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 وهو اسماء هذه القيم ممكن التعديل

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

قام بنشر (معدل)
الاخ الغالي ابا حسين

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

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

تم التعديل،

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

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

شاهد المرفق،

_______________________________________________.rar

تم تعديل بواسطه علي السحيب
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information