اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

هناك امور غير واضحه بالنسبه لى ( ترحيل كلمة طلاب الى اخر سجل بالعمود 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

 

تم تعديل بواسطه خالد الرشيدى
رابط هذا التعليق
شارك

 ا / خالد 

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

 و لكن يتبقى جزئية واحدة و هى عندما يكون الملف مفتوح يعطى رسالة ان الملف مفتوح من قبل و يحدث خطأ

و المطلوب هو فتح الملف لاول مرة اذا كان مغلقا ثم العمل عليه و الترحيل و هو مفتوح 

او للتسهيل على حضرتك نلغى فكرة الترحيل و الملف مغلق و العمل عن طريق فتحه عادى ثم الترحيل

الهدف هو العمل على ملف الطلاب و الترحيل الى ملف الصادر دون الخروج منه ثم الذهاب الى ملف الصادر لاخذ ارقام الصادر و يا ريت عند الوقوف على ملف الصادر يكون واقف على اخر سجل بعمود التاريخ

و شكرا

و اسف للاطالة

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

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

ا / خالد

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

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

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

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

  • 2 weeks later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information