صلاح الصغير قام بنشر يونيو 13, 2017 مشاركة قام بنشر يونيو 13, 2017 السلام عليكم و رحمة الله و بركاته اعتذر لعدم التواصل نظرا لوجودى خارج البلاد المطلوب بالمرفق ترحيل الى خانات معينة.rar رابط هذا التعليق شارك More sharing options...
صلاح الصغير قام بنشر يونيو 14, 2017 الكاتب مشاركة قام بنشر يونيو 14, 2017 للرفع رابط هذا التعليق شارك More sharing options...
صلاح الصغير قام بنشر يونيو 18, 2017 الكاتب مشاركة قام بنشر يونيو 18, 2017 للرفع رابط هذا التعليق شارك More sharing options...
صلاح الصغير قام بنشر يونيو 20, 2017 الكاتب مشاركة قام بنشر يونيو 20, 2017 للرفع جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر يونيو 20, 2017 مشاركة قام بنشر يونيو 20, 2017 السلام عليكم أ . صلاح الصغير هناك امور غير واضحه بالنسبه لى ( ترحيل كلمة طلاب الى اخر سجل بالعمود d ) - ( ترحيل اخر سجل لاسم الام الى اخر سجل بالعمود e ) هل تقصد ترحيل اخر ادخال ل عمود اسم الطالب - واسم الام امامهم تاريخ اليوم بصيغة yyyy/mm/dd ؟؟؟؟؟؟؟ رابط هذا التعليق شارك More sharing options...
صلاح الصغير قام بنشر يونيو 21, 2017 الكاتب مشاركة قام بنشر يونيو 21, 2017 ا / خالد شكرا للاهتمام المقصود عند الضغط على زر ترحيل يتم ترحيل كلمة "طلاب" و تاريخ اليوم و اسم الام الى اخر سجل كلا فى العمود الذى يخصه بملف الصادر ليس مطلوب اسم الطالب و لكن المطلوب تاريخ اليوم بخانة التاريخ و كلمة "طلاب" للعمود d و اسم الام للعمود e و كل هذا طبعا الى اخر سجل رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر يونيو 21, 2017 مشاركة قام بنشر يونيو 21, 2017 (معدل) جرب الكود التالى عله المطلوب تماماً Option Explicit Sub Button1_Click() Dim ws As Worksheet, wb As Workbook Dim NextRow As Long, LastRow As Long Set ws = ThisWorkbook.Sheets("قاعدة البيانات") NextRow = ws.ListObjects("Table2").Range.Columns(3).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & "الصادر.xlsx") With wb.Sheets("الصادر العام") LastRow = .ListObjects("جدول1").Range.Columns(3).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 MsgBox LastRow .Range("C" & LastRow).Value = Format(Date, "yyyy/mm/dd") .Range("D" & LastRow).Value = "طلاب" .Range("E" & LastRow).Value = ws.Range("E" & NextRow).Value End With End Sub khaled.rar تم تعديل يونيو 21, 2017 بواسطه خالد الرشيدى رابط هذا التعليق شارك More sharing options...
صلاح الصغير قام بنشر يونيو 21, 2017 الكاتب مشاركة قام بنشر يونيو 21, 2017 (معدل) ا / خالد بارك الله فيك و شكرا للرد السريع و لكن يتبقى جزئية واحدة و هى عندما يكون الملف مفتوح يعطى رسالة ان الملف مفتوح من قبل و يحدث خطأ و المطلوب هو فتح الملف لاول مرة اذا كان مغلقا ثم العمل عليه و الترحيل و هو مفتوح او للتسهيل على حضرتك نلغى فكرة الترحيل و الملف مغلق و العمل عن طريق فتحه عادى ثم الترحيل الهدف هو العمل على ملف الطلاب و الترحيل الى ملف الصادر دون الخروج منه ثم الذهاب الى ملف الصادر لاخذ ارقام الصادر و يا ريت عند الوقوف على ملف الصادر يكون واقف على اخر سجل بعمود التاريخ و شكرا و اسف للاطالة تم تعديل يونيو 21, 2017 بواسطه صلاح الصغير edit رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر يونيو 22, 2017 مشاركة قام بنشر يونيو 22, 2017 السلام عليكم استبدل الكود السابق بهذا الكود Option Explicit Sub Button1_Click() Dim ws As Worksheet, wb As Workbook Dim NextRow As Long, LastRow As Long On Error Resume Next Set wb = Workbooks("الصادر.xlsx") Set ws = ThisWorkbook.Sheets("قاعدة البيانات") NextRow = ws.ListObjects("Table2").Range.Columns(3).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row If wb Is Nothing Then Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & "الصادر.xlsx") Else wb.Activate End If With wb.Sheets("الصادر العام") LastRow = .ListObjects("الجدول1").Range.Columns(3).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 .Range("C" & LastRow).Value = Format(Date, "yyyy/mm/dd") .Range("D" & LastRow).Value = "طلاب" .Range("E" & LastRow).Value = ws.Range("E" & NextRow).Value .Range("C" & LastRow).Select End With End Sub khaled.rar 2 رابط هذا التعليق شارك More sharing options...
صلاح الصغير قام بنشر يونيو 22, 2017 الكاتب مشاركة قام بنشر يونيو 22, 2017 ا / خالد الف شكر للاهتمام و الرد السريع و لكن اعتذر لحضرتك سوف يتم تجربته بعد العيد و الرد على حضرتك لان ليس لدى جهاز بالمنزل و كل سنة و حضرتك طيب 1 رابط هذا التعليق شارك More sharing options...
صلاح الصغير قام بنشر يوليو 2, 2017 الكاتب مشاركة قام بنشر يوليو 2, 2017 ا / خالد شكرا الف شكر و هو المطلوب جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان