نسخ البيانات باستخدام الفورم Copy Data By UserForm

[khaled_1960]

ألسادة / اعضاء المنتدي الكرام

أرجو منكم السماح لى بأعادة طرح هذا الموضوع من جديد

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

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

و أتمني ان يعمل الملف عند الجميع بشكل جيد

 

المرفقات

==========   

 

Copy And Paste 2015.rar

 

========== 

 

[khaled_1960]

السادة أعضاء المنتدي الكرام

أرجو من جميع الاعضاء عند مشاهدة الملف

القيام بوضع ملاحظاتهم لكي اتمكن من تطوير الملف

و اذا عمل الملف بشكل جيد معه أن يكتب ذلك

لكم جزيل الشكر

[ياسر خليل أبو البراء]

أخي الحبيب خالد

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

لا أدري صراحة سبب عدم عمل الملفات التي تقوم برفعها عندي .

ما هي الديناميكية التي تعمل بها ؟ ما هي الأدوات التي تستخدمها ؟ ما هي نسخة الأوفيس لديك ؟

هل تقوم بإضافة مكتبات محددة أو تقوم بتنصيب إضافات معينة ؟

أسئلة كثيرة لابد من الإجابة عليها لمعرفة السبب وراء عدم عمل تلك الملفات

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

عموماً ..حاول أن تضع القواعد التي تعمل بها

أنا متأكد أن أعمالك رائعة ...

تقبل تحياتي

[ياسر خليل أبو البراء]

أول رسالة عند فتح الملف ..

Couldn't load some objects because they are not available on your machine

معنى الكلام إن فيه بعض الكائنات مش موجودة عندي على جهازي .. طيب ايه هي طبيعة الكائنات ..

هل هناك إضافة يجب إضافتها أو مرجع Reference ؟

[ياسر خليل أبو البراء]

فيه رسالة خطأ في هذا السطر

Sheet(1).Select

أعتقد يجب أن يكون

Sheets(1).Select

[ياسر خليل أبو البراء]

في هذا السطر

Me.txt_Copy

method or data member not found

أعتقد أن المشكلة الآن متعلقة بالكائن المستخدم في الفورم ..

يرجى الإفادة

[khaled_1960]

 

فيه رسالة خطأ في هذا السطر

Sheet(1).Select

أعتقد يجب أن يكون

Sheets(1).Select

صحيح

[khaled_1960]

في هذا السطر

Me.txt_Copy

method or data member not found

أعتقد أن المشكلة الآن متعلقة بالكائن المستخدم في الفورم ..

يرجى الإفادة

Me.txt_Copy = txtxbox

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

[khaled_1960]

السادة الكرام

 

 

 

 

هذا كل ما استخدمة

ثاني صورة هي استكمال للصفحة الاولي

تم تعديل أبريل 17, 2015 بواسطه khaled_1960

[khaled_1960]

الاخ ياسر المحترم

فكرة الملف كما يلي

انشاء UserForm بأسم Copy_Paste

انشاء عدد (2 )    -             Text Box

TextBox1 Name = txt_Copy

TextBox2 Name = txt_Paste

أنشاء عدد (3)  -                        CommandButtom

CommandButton1 Name = cmdCopy

commandButton2 = cmdClear

CommandButton3 Name = cmdExit

 

أنشاء عدد 6         -    CheckBox

ChekBox1 Name = ch_Value

CheckBox2 Nmae = ch_Cl_Width

CheckBox3 Nmae = ch_Skip_Blanks

CheckBox4 Name = ch_Formals

CheckBox5 Name = ch_Transpose

CheckBox6 Name = ch_Copy_All

 

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

لا تنسي اضافة عدد 3   -   Label

أرجو أن تخبرني بالنتيجة وأرسال الملف لي 

[khaled_1960]

في هذا السطر

Me.txt_Copy

method or data member not found

أعتقد أن المشكلة الآن متعلقة بالكائن المستخدم في الفورم ..

يرجى الإفادة

الاخ ياسر وضعت طريقة تنفيذ الملف أرجو منك تنفيذها و ارسال الملف الذي تقوم بعملة لي للمراجعة

[ياسر خليل أبو البراء]

الأخ الغالي خالد

المكتبات التي في الصور ليست موجودة عندي ..هل هي خاصة بإصدار أحدث أم أنه يمكن تنصيبها على أي إصدار؟؟

أرجو الإفادة

[khaled_1960]

أنا استخدم برنامج

Microsofft 2010

[ياسر خليل أبو البراء]

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

عموما ننتظر أيضاً ردود الأخوة الذين لديهم نفس الإصدار ليقرروا إذا ما كان الملف يعمل أم لا

[صلاح الصغير]

انا عندى اوفيس 2013

و الملف لا يعمل عندى ايضا

المراجع هى نفسها عندى اعتقد المشكلة ممكتن تكون فى ال additional controls  لانها موجودة عندى و لكن لا تستجيب

علما بان نفس ال dll دى موجودة عندى فى نفس الفولدر و لكن من داخل الاوفيس عند الظغط على additional controls لا يستجيب

و اعتقد ان مشكلة additional controls اثيرت قبل ذلك

 

و الله اعلم

[khaled_1960]

انا عندى اوفيس 2013

و الملف لا يعمل عندى ايضا

المراجع هى نفسها عندى اعتقد المشكلة ممكتن تكون فى ال additional controls  لانها موجودة عندى و لكن لا تستجيب

علما بان نفس ال dll دى موجودة عندى فى نفس الفولدر و لكن من داخل الاوفيس عند الظغط على additional controls لا يستجيب

و اعتقد ان مشكلة additional controls اثيرت قبل ذلك

 

و الله اعلم

http://davaohandymom.blogspot.com/2013/05/solution-to-missing-not-showing.html

[khaled_1960]

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

عموما ننتظر أيضاً ردود الأخوة الذين لديهم نفس الإصدار ليقرروا إذا ما كان الملف يعمل أم لا

شاهد هذه الصفحة 

http://davaohandymom.blogspot.com/2013/05/solution-to-missing-not-showing.html

[khaled_1960]

الاخ صلاح الصغير

الاخ ياسر

حفظهم الله

لقد قمت بأزالة الاوفس من الجهاز عندي و تحميل اوفس 2013 بروفيشنل

و الملف يعمل ايضا بشكل جيد مع العلم بأن أيضا additional controls  لا تستجيب عندي

 

 

 

 

 

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

لكي اشاهدة و اتابع معكم

 

[ياسر خليل أبو البراء]

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

فيه إضافة بتنصبها ؟؟

[صلاح الصغير]

????????????

[khaled_1960]

الاخ صلاح و الاخ ياسر

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

و فعلا هي مشكلة في additional controls نتيجة تحديث معين في الاوفس

وانا الان احاول الوصول لحل لها

ولكن قمت ببعض التعديلات و بالفعل تم تنفيذ الملف على جهاز صديقي بدون مشاكل

أرجو أن يعمل لديكم و لدي باقي أعضاء المنتدي

والحل كان في استبدال TextBox  باستخدام ComboBox

و استبدال CheckBox باستخدام OptionButton

الملف المعدل اتمني أن يعمل لديكم الملف

New Copy And Paste 2015.rar

 

[khaled_1960]

أول رسالة عند فتح الملف ..

Couldn't load some objects because they are not available on your machine

معنى الكلام إن فيه بعض الكائنات مش موجودة عندي على جهازي .. طيب ايه هي طبيعة الكائنات ..

هل هناك إضافة يجب إضافتها أو مرجع Reference ؟

أرجو منك مشاهدة الملف الاخير و اعطائي النتيجة لو سمحت ولك جزيل الشكر

[khaled_1960]

????????????

أرجو منك مشاهدة الملف المعدل و اعطائى النتيجة لو سمحت و لك الشكر

[رشراش علي]

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

[khaled_1960]

أخي العزيز رشراش علي

تفضل الملف على أكسل 2007

 

Excel 2007 Copy And Paste 2015.rar

 

أرجو منك تجريب الملف و أعطائي النتيجة أنا في أنتظار رد منك للاهمية