ترحيل من ملف الى ملف

[صلاح الصغير]

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

اعتذر لعدم التواصل نظرا لوجودى خارج البلاد

المطلوب بالمرفق

ترحيل الى خانات معينة.rar

[صلاح الصغير]

للرفع

[صلاح الصغير]

للرفع

[صلاح الصغير]

للرفع

جزاكم الله خيرا

[خالد الرشيدى]

السلام عليكم

أ . صلاح الصغير 

هناك امور غير واضحه بالنسبه لى ( ترحيل كلمة طلاب الى اخر سجل بالعمود d  )   - ( ترحيل اخر سجل لاسم الام الى اخر سجل بالعمود e ) 

هل تقصد ترحيل اخر ادخال ل عمود اسم الطالب - واسم الام  امامهم تاريخ اليوم بصيغة yyyy/mm/dd  ؟؟؟؟؟؟؟

 

[صلاح الصغير]

ا / خالد

شكرا للاهتمام

المقصود عند الضغط على زر ترحيل يتم ترحيل كلمة "طلاب" و تاريخ اليوم و اسم الام الى اخر سجل كلا فى العمود الذى يخصه بملف الصادر

ليس مطلوب اسم الطالب و لكن المطلوب تاريخ اليوم بخانة التاريخ و كلمة "طلاب" للعمود d و اسم الام للعمود e 

و كل هذا طبعا الى اخر سجل

[خالد الرشيدى]

جرب الكود التالى عله المطلوب تماماً 

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 بواسطه صلاح الصغير
edit

[خالد الرشيدى]

السلام عليكم

استبدل الكود السابق بهذا الكود

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

[صلاح الصغير]

ا / خالد

الف شكر للاهتمام و الرد السريع

و لكن اعتذر لحضرتك سوف يتم تجربته بعد العيد و الرد على حضرتك لان ليس لدى جهاز بالمنزل

و كل سنة و حضرتك طيب

[صلاح الصغير]

ا / خالد

 شكرا الف شكر و هو المطلوب

جزاك الله خيرا