اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

احتاج الى كود ترحيل بيانات من فورم  مصمم على اكسل الى شيت اكسل اخر موجود في مكان اخر  يعني مثلا على المسار 

في المرفق الفورم موجود على Backup  الترحيل الى Backup data

 

مع الشكر

exam.rar

قام بنشر

اتفضل أخى الكريم

تعديل بسيط على الكود الموجود بالملف يوضع فى حدث الضغط على الزر الموجود بالفورم

سيقوم بفتح الملف الآخر Backup data الموجود بنفس المجلد  الموجود به الملف الأول ( شرط اساسى )

وسيقوم بترحيل البيانات ثم حفظه وإغلاقه

الكود

Dim sh As Worksheet, ws As Worksheet
    Dim wkb As Workbook
If TextBox1.Value = "" Or TextBox2.Value = "" Or ListBox1.Value = "" Or ListBox2.Value = "" Or ListBox3.Value = "" Or ListBox4.Value = "" Or ListBox5.Value = "" Then
MsgBox "برجاء اكمال البيانات"
Exit Sub
End If
'=========================================================
   Set wkb = Workbooks.Open(ThisWorkbook.Path & "\Backup data.xls")
    Set ws = Sheets("TAG CALL")
              
ws.Activate
       
'========================================================
LROW = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & LROW + 1).Value = TextBox2.Value
Range("A" & LROW + 1).Offset(0, 1).Value = ListBox2.Value
Range("A" & LROW + 1).Offset(0, 2).Value = ListBox4.Value
Range("A" & LROW + 1).Offset(0, 3).Value = ListBox3.Value
Range("A" & LROW + 1).Offset(0, 4).Value = ListBox5.Value
Range("A" & LROW + 1).Offset(0, 5).Value = ListBox1.Value
Range("A" & LROW + 1).Offset(0, 6).Value = TextBox1.Value
TextBox1.Value = ""
TextBox2.Value = ""
ListBox1.Text = ""
ListBox2.Text = ""
ListBox3.Text = ""
ListBox4.Text = ""
ListBox5.Text = ""
'---------------------------------
wkb.Close SaveChanges:=True

 

  • Like 3
قام بنشر

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

المرفق لملفين احدهما BOOK1  لادخال البيانات والاخر Backup data لترحيل البيانات المدخلة علية

تم وضع الكود وفي كل مره يعطى خطأ 

الرجاء المساعدة

VER EX.rar

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information