-->

سلسلة شروحات الترحيل | الترحيل من البيوزرفورم الى ملف اكسل اخر محدد مغلق Excel VBA Transfer Data

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

 اهلا بكم متابعى موقع عالم الاوفيس

درس جديد وشرح جديد من شروحات الترحيل فى الاكسل Excel VBA 

 الترحيل من البيوزرفورم الى ملف اكسل اخر محدد مغلق



كيف ذلك 

لاتمام عملية الترحيل من اليورزفورم الى ملف عمل اخر يجب ان يمر بعدة خطوات 

  1. اول خطوة تحديد مسار ملف العمل 
  2. فتح ملف العمل
  3. تحديد الشيت او ورقة العمل المراد الترحيل اليها
  4. ترحيل البيانات الى الملف الجديد
  5. حفظ البيانات فى الملف المرحل الية
  6. غلق ملف العمل بعد الترحيل

طب واحد هيقولى ازاى اعمل كل الخطوات دى

كل دة هنعملة من خلال كود  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

كود سهل وبسيط ياريت يعجبكم ويفيدكم فى شغلكم 

لتحميل ملف العمل 


 

 

Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق