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

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

قام بنشر

السلام عليكم

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information