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

خطأ بالترحيل


إذهب إلى أفضل إجابة 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

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

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