كود ترحيل البيانات بشكل مميز + شرح مصور

[أحمد بكر]

الموضوع : كود ترحيل البيانات بشكل مميز

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

أ - سأقوم بدرب مثال يفضل ان تنفذة معى لكى تصل لكيفية عمل الكود وتطويعه لما تريد عملة

أبدأ بفنح ملف أكسيل جديد :

قم بتسمية

ورقة العمل الاولى بأسم ادخال بيانات

والورقة الثانية فواتير

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

ثم

تصميم زر فى نفس الصفحة حتى يصبح بنفس الشكل هذا

لم لا يعرف كيفية تصميم زر يمكنة ذلك من خلال :

-----------------------------------------------------

اصدار 2003

من مربع أدوات التحكم > ادارج زر

------------------------------------------------------

اصدار 2007

من المطور > ادراج زر

-------------------------------------------------------

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

نصممها على هذا الشكل

بعد تصميم تسمية الصفحتين والزر فى الصفحة الاولى يمكنك اضافة الكود

من خلال اختيار وضع التصميم

والضغط على الزر الذى سبق تصميمة دبل كليك ايسر على الماوس

ثم نضع الكود التالى وسأقوم بشرحة تفصيليا كما بالصورة (الكود مرفق )

الجزء الاولى من الكود

الجزء الثانى من الكود

الجزء الثالث من الكود

الجزء الرابع من الكود

الجزء الخامس من الكود

الجزء السادس والأخير

ملاحظة : الكود يرحل بترتيب الادخال .

لتحميل الشرح مصور + ملف المثال + الكود

من هنا

فى النهاية

أسالكم الدعاء اذا افادكم ذلك

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

جميل جداً

وطريقة مميزة في العرض وخصوصاً انها المشاركة الاولى

[محمد مصطفى ابو حمزة]

بارك الله فيك يااخى بداية ابداعية لاستاذ واعد

[خالد الشاعر]

استاذ احمد

ملف جميل يدل على بداية موافقة انشاء الله

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

[abouelhassan]

كل الشكر والتقدير وفائق الاحترام من اخيك

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

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

[ابو القبطان]

أخي : أحمد

شرحك وافي ، واكثر من رائع

سلمت يداك

[أبو أنس حاجب]

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

أخي الفاضل أحمد بكر حفظك الله

بداية ولاأروع ويفترض أن يحتذي بها الجميع كلاً وفق أمكانياته.

أعزك الله ورفع قدرك.

أبو أنس

[أبو ردينة]

بارك الله فيك

قوة و بساطة في ذات الوقت

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

[إبراهيم ابوليله]

بارك الله فيك

عمل رائع

وننتظر منك المزيد

حتى كلنا نستفيد

[خالدو]

جزاك الله خيراً ونفعنا وإياك بهذا العمل الرائع

[khaledplayer]

رائع بارك الله فيك

[althaer]

بارك الله فيك أخى الكريم

إذا أردت عدم مسح البيانات و أردت إبقائها ؟ و ماذا لو أردت توسيع نطاق الترحيل ؟

عذرا" للسؤال فهو من مبتدىء

تم تعديل نوفمبر 10, 2012 بواسطه althaer

[سمير هنداوي]

جزاكم الله خيرا على الإفادة و في انتظار جديدكم أخي الكريم

و ماشاء الله بداية قوية من أول مشاركة تقبل تحيتي

[saad abed]

اخى

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

[مجدى يونس]

الاخ / ahmedbakr

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

[أم عبد الله]

أخي العزيز / أحمد

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

[حسين شاكر]

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

[نــــ حلمي ــوّار]

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

[منياوى]

رائع والف شكر وجزاكم الله كل خير

[ahmad shehab]

السلام عليكم 

 

اخواني الكرام 

 

 

 انا اريد ان اكتب البيانات في جدول 1 و اريد ان يصنف لي المبالغ في الجدول 2 تلقائيا عن طريق الأسماء

    أو ان ينقلها لبيانات كاملة تلقائيا عن طريق الاسماء الى جداول  لكل اسم جدول خاص كما في الجدول 3 .

 

    

تم تعديل يوليو 7, 2014 بواسطه ahmad shehab

[ابوصلاح]

 

الموضوع : كود ترحيل البيانات بشكل مميز

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

أ - سأقوم بدرب مثال يفضل ان تنفذة معى لكى تصل لكيفية عمل الكود وتطويعه لما تريد عملة

أبدأ بفنح ملف أكسيل جديد :

قم بتسمية

ورقة العمل الاولى بأسم ادخال بيانات

والورقة الثانية فواتير

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

ثم

تصميم زر فى نفس الصفحة حتى يصبح بنفس الشكل هذا

لم لا يعرف كيفية تصميم زر يمكنة ذلك من خلال :

-----------------------------------------------------

اصدار 2003

من مربع أدوات التحكم > ادارج زر

------------------------------------------------------

اصدار 2007

من المطور > ادراج زر

-------------------------------------------------------

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

نصممها على هذا الشكل

بعد تصميم تسمية الصفحتين والزر فى الصفحة الاولى يمكنك اضافة الكود

من خلال اختيار وضع التصميم

والضغط على الزر الذى سبق تصميمة دبل كليك ايسر على الماوس

ثم نضع الكود التالى وسأقوم بشرحة تفصيليا كما بالصورة (الكود مرفق )

الجزء الاولى من الكود

الجزء الثانى من الكود

الجزء الثالث من الكود

الجزء الرابع من الكود

الجزء الخامس من الكود

الجزء السادس والأخير

ملاحظة : الكود يرحل بترتيب الادخال .

لتحميل الشرح مصور + ملف المثال + الكود

من هنا

فى النهاية

أسالكم الدعاء اذا افادكم ذلك

 

الشرح مميز ورائع ارجو تنزيل الملف مرة اخري لان الملف الموجود غير موجود او تم حذفه

[ا بو سليمان]

احسنت 

 

.

[Xima Alfadni]

الرابط تالف !

[أحمد بكر]

الملف مرة تانية بالمرفقات 

ودا الكود المتسخدم بالشرح

On Error Resume Next
If Range("a3") = "" Or Range("b3") = "" Or Range("c3") = "" Then
MsgBox "bla bla1", vbDefaultButton1, "bla bla1 "
Else

azsh = Sheet2.Range("c50000").End(xlUp).Row + 1
Sheet1.Range("A3:C3").Copy
Sheet2.Cells(azsh, 1).PasteSpecial Paste:=xlPasteValues
MsgBox "bla bla2", vbDefaultButton1, "bla bla2 "
Sheet1.Range("A3:C3") = ""
End If

كود ترحيل البيانات- أوفيسنا.rar