تحميل مجانى شيت اكسل المخازن ( وارد – منصرف – مرتجعات – اهلاك – تقارير)

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

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

درس جديد وشرح جديد من شروحات الترحيل فى الاكسل 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

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

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