بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد وشرح جديد من شروحات الترحيل فى الاكسل Excel VBA
الترحيل من البيوزرفورم الى ملف اكسل اخر محدد مغلق
كيف ذلك
لاتمام عملية الترحيل من اليورزفورم الى ملف عمل اخر يجب ان يمر بعدة خطوات
- اول خطوة تحديد مسار ملف العمل
- فتح ملف العمل
- تحديد الشيت او ورقة العمل المراد الترحيل اليها
- ترحيل البيانات الى الملف الجديد
- حفظ البيانات فى الملف المرحل الية
- غلق ملف العمل بعد الترحيل
طب واحد هيقولى ازاى اعمل كل الخطوات دى
كل دة هنعملة من خلال كود Excel VBA فى ثانية او ثانيتين بالظبط
فين الكود دة
Dim
wb As Workbook
Dim
lr As Integer
Set
wb = Workbooks.Open("C:\Users\emad ghazi\Desktop\masterhh.xlsx")
wb.Activate
Sheets("daily").Select
lr
= Sheets("daily").Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("a"
& lr).Value = Me.TextBox1.Value
Range("b"
& lr).Value = Me.TextBox2.Value
Range("c"
& lr).Value = Me.TextBox3.Value
wb.Save
wb.Close
True
TextBox1.Value
= ""
TextBox2.Value
= ""
TextBox3.Value
= ""
MsgBox
"تم الترحيل بنجاح"
Application.ScreenUpdating
= True
كود سهل وبسيط ياريت يعجبكم ويفيدكم فى شغلكم
لتحميل ملف العمل
السلام و عليكم.. شكر الله سعيكم وجهود كبيرة ربي يتقبل منكم صالح الأعمال ويزيدكم بسطة في العلم اريد ترحيل عدة بيانات من يوزر فورم الي الشست العمل اريد المساعدة
ردحذف