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

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

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

 

تم ارفاق المشاركه من الفاضل _ أ /  أحمد بكر

 

 

 

مع الكود

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

 

مع الشرح

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

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

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

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

 

 

قم بتسمية

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

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

 

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

 

 

ثم

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

 

 

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

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

اصدار 2003

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

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

اصدار 2007

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

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

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

 

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

 

 

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

 

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

 

 

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

 

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

 

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

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

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

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

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

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

 

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

 

 

 و لا تنسونا من صالح الدعاء

ترحيل بين ورقتين_احمد بكر.rar

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

تم تعديل أكتوبر 10, 2016 بواسطه دغيدى