اذهب الي المحتوي
أوفيسنا

خطأ بالترحيل


إذهب إلى أفضل إجابة Solved by الأستاذ / محمد الدسوقى,

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

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

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

في المرفق الفورم موجود على 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
رابط هذا التعليق
شارك

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

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

 

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

الكود

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

 

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

VER EX.rar

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information