خطأ بالترحيل

[ابو العلاء]

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

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

في المرفق الفورم موجود على 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

 

[ابو العلاء]

كل الشكر لأستاذ / محمد الدسوقى الكود مئة بالمئة ...نفع الله بك

طلب اخر اذا سمحت ممكن كود في تكست بوكس الوقت يعطي بشكل تلقائي الوقت الحالي لتسجيل الملاحظة

 

[الأستاذ / محمد الدسوقى]

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

ضع الكود التالى فى حدث الفورم

سيظهر لك التكست بوكس 1 يحتوى على الوقت تلقائيا 

الكود

Private Sub UserForm_Activate()
Me.TextBox1 = Format(Date, "h:mm AM/PM;@")
End Sub

 

[ابو العلاء]

كل الشكر استاذ محمد

[الأستاذ / محمد الدسوقى]

الحمد لله الذى بنعمه تتم الصالحات

[ابو العلاء]

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

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

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

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

VER EX.rar

[ابو العلاء]

السيد الأستاذ / محمد الدسوقى

تم استعمال الكود المرسل من قبلكم ويعطي دائما خطا  ولا اعرف السبب

[ابو العلاء]

للرفع