صلاح الصغير قام بنشر يونيو 13, 2017 قام بنشر يونيو 13, 2017 السلام عليكم و رحمة الله و بركاته اعتذر لعدم التواصل نظرا لوجودى خارج البلاد المطلوب بالمرفق ترحيل الى خانات معينة.rar
خالد الرشيدى قام بنشر يونيو 20, 2017 قام بنشر يونيو 20, 2017 السلام عليكم أ . صلاح الصغير هناك امور غير واضحه بالنسبه لى ( ترحيل كلمة طلاب الى اخر سجل بالعمود d ) - ( ترحيل اخر سجل لاسم الام الى اخر سجل بالعمود e ) هل تقصد ترحيل اخر ادخال ل عمود اسم الطالب - واسم الام امامهم تاريخ اليوم بصيغة yyyy/mm/dd ؟؟؟؟؟؟؟
صلاح الصغير قام بنشر يونيو 21, 2017 الكاتب قام بنشر يونيو 21, 2017 ا / خالد شكرا للاهتمام المقصود عند الضغط على زر ترحيل يتم ترحيل كلمة "طلاب" و تاريخ اليوم و اسم الام الى اخر سجل كلا فى العمود الذى يخصه بملف الصادر ليس مطلوب اسم الطالب و لكن المطلوب تاريخ اليوم بخانة التاريخ و كلمة "طلاب" للعمود d و اسم الام للعمود e و كل هذا طبعا الى اخر سجل
خالد الرشيدى قام بنشر يونيو 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 بواسطه خالد الرشيدى
صلاح الصغير قام بنشر يونيو 21, 2017 الكاتب قام بنشر يونيو 21, 2017 (معدل) ا / خالد بارك الله فيك و شكرا للرد السريع و لكن يتبقى جزئية واحدة و هى عندما يكون الملف مفتوح يعطى رسالة ان الملف مفتوح من قبل و يحدث خطأ و المطلوب هو فتح الملف لاول مرة اذا كان مغلقا ثم العمل عليه و الترحيل و هو مفتوح او للتسهيل على حضرتك نلغى فكرة الترحيل و الملف مغلق و العمل عن طريق فتحه عادى ثم الترحيل الهدف هو العمل على ملف الطلاب و الترحيل الى ملف الصادر دون الخروج منه ثم الذهاب الى ملف الصادر لاخذ ارقام الصادر و يا ريت عند الوقوف على ملف الصادر يكون واقف على اخر سجل بعمود التاريخ و شكرا و اسف للاطالة تم تعديل يونيو 21, 2017 بواسطه صلاح الصغير edit
خالد الرشيدى قام بنشر يونيو 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
صلاح الصغير قام بنشر يونيو 22, 2017 الكاتب قام بنشر يونيو 22, 2017 ا / خالد الف شكر للاهتمام و الرد السريع و لكن اعتذر لحضرتك سوف يتم تجربته بعد العيد و الرد على حضرتك لان ليس لدى جهاز بالمنزل و كل سنة و حضرتك طيب 1
صلاح الصغير قام بنشر يوليو 2, 2017 الكاتب قام بنشر يوليو 2, 2017 ا / خالد شكرا الف شكر و هو المطلوب جزاك الله خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.