ابو العلاء قام بنشر يوليو 9, 2019 مشاركة قام بنشر يوليو 9, 2019 السلام عليكم ورحمة الله وبركاته احتاج الى كود ترحيل بيانات من فورم مصمم على اكسل الى شيت اكسل اخر موجود في مكان اخر يعني مثلا على المسار في المرفق الفورم موجود على Backup الترحيل الى Backup data مع الشكر exam.rar رابط هذا التعليق شارك More sharing options...
الأستاذ / محمد الدسوقى قام بنشر يوليو 9, 2019 مشاركة قام بنشر يوليو 9, 2019 اتفضل أخى الكريم تعديل بسيط على الكود الموجود بالملف يوضع فى حدث الضغط على الزر الموجود بالفورم سيقوم بفتح الملف الآخر 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 3 رابط هذا التعليق شارك More sharing options...
ابو العلاء قام بنشر يوليو 9, 2019 الكاتب مشاركة قام بنشر يوليو 9, 2019 كل الشكر لأستاذ / محمد الدسوقى الكود مئة بالمئة ...نفع الله بك طلب اخر اذا سمحت ممكن كود في تكست بوكس الوقت يعطي بشكل تلقائي الوقت الحالي لتسجيل الملاحظة رابط هذا التعليق شارك More sharing options...
أفضل إجابة الأستاذ / محمد الدسوقى قام بنشر يوليو 9, 2019 أفضل إجابة مشاركة قام بنشر يوليو 9, 2019 اتفضل أخى الكريم ضع الكود التالى فى حدث الفورم سيظهر لك التكست بوكس 1 يحتوى على الوقت تلقائيا الكود Private Sub UserForm_Activate() Me.TextBox1 = Format(Date, "h:mm AM/PM;@") End Sub 2 1 رابط هذا التعليق شارك More sharing options...
ابو العلاء قام بنشر يوليو 12, 2019 الكاتب مشاركة قام بنشر يوليو 12, 2019 كل الشكر استاذ محمد رابط هذا التعليق شارك More sharing options...
الأستاذ / محمد الدسوقى قام بنشر يوليو 12, 2019 مشاركة قام بنشر يوليو 12, 2019 الحمد لله الذى بنعمه تتم الصالحات رابط هذا التعليق شارك More sharing options...
ابو العلاء قام بنشر يوليو 16, 2019 الكاتب مشاركة قام بنشر يوليو 16, 2019 السلام عليكم ورحمة الله وبركاته المرفق لملفين احدهما BOOK1 لادخال البيانات والاخر Backup data لترحيل البيانات المدخلة علية تم وضع الكود وفي كل مره يعطى خطأ الرجاء المساعدة VER EX.rar رابط هذا التعليق شارك More sharing options...
ابو العلاء قام بنشر يوليو 16, 2019 الكاتب مشاركة قام بنشر يوليو 16, 2019 السيد الأستاذ / محمد الدسوقى تم استعمال الكود المرسل من قبلكم ويعطي دائما خطا ولا اعرف السبب رابط هذا التعليق شارك More sharing options...
ابو العلاء قام بنشر يوليو 18, 2019 الكاتب مشاركة قام بنشر يوليو 18, 2019 للرفع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان