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

ترحيل بيانات


2saad
إذهب إلى أفضل إجابة Solved by محمد هشام.,

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

اخواني اعضاء المنتدي الكرام بعد التحية والسلام

محتاح ارحل البيانات الموجودة في الملف ( محمد ) بالشيت الاول الي ملف ( أحمد ) بعد اخر صف به بيانات بالشيت الأول

ولكم جزيل الشكر أحمد.xlsmمحمد.xlsm

 

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

  • أفضل إجابة

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

Sub Copy_to_another_workbook()  
Dim ShData As Worksheet, ShDest As Worksheet
Dim aRws As Variant, aCols As Variant, lr As Long

Const ShCool As String = "3 4 5 6 7 8 9 10 11 12 13"
                                                                    
Set ShData = Worksheets("Sheet1")
 
 Application.ScreenUpdating = False
 
'نفس مسار الملف المفتوح
 Set ShDest = Workbooks.Open(ThisWorkbook.Path & "\أحمد.xlsm").Sheets("Sheet1")
   lastrow = ShDest.Cells(ShDest.Rows.Count, "C").End(xlUp).Row + 1

' لتحديد مسار معين قم بتعديل هدا السطر بما يناسبك

' Set ShDest = Workbooks.Open("C:\Users\MOHAMMED HICHAM\Desktop\أحمد.xlsm").Sheets("Sheet1")


lr = ShData.Columns("C:L").Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
  aRws = Evaluate("row(10:" & lr + 10 & ")")
  aCols = Split(ShCool)
If ShDest.[C10] = Empty Then
  ShDest.Range("C10").Resize(lr, UBound(aCols)).Value = Application.Index(ShData.Cells, aRws, aCols)
     Else
ShDest.Range("C" & lastrow).Resize(lr, UBound(aCols)).Value = Application.Index(ShData.Cells, aRws, aCols)
End If
Workbooks("أحمد.xlsm").Close True
Application.ScreenUpdating = True

End Sub

 

Saad.rar

تم تعديل بواسطه محمد هشام.
  • Like 4
رابط هذا التعليق
شارك

شكرا جزيلا يا أستاذ محمد انا عارف إني بتعب حضرتك كثيرا

وارجو أن يتسع صدرك

لي سؤال عد حضرتك

لو أنا عايز ارحل البيانات من شيت1 في الملفين الي شيت جديد داخل الملف ( أحمد )

ايه اللي اغيره في الكود السابق ؟

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

 

17 ساعات مضت, 2saad said:

محتاح ارحل البيانات الموجودة في الملف ( محمد ) بالشيت الاول الي ملف ( أحمد ) بعد اخر صف به بيانات بالشيت الأو

لقد تمت الاجابة فعلا على طلبك انت الان تطلب شيء مغاير  لا علاقة له بالكود المرفق على ما اظن 

2) ممكن توضح سؤالك اكثر  عايز ترحل ايه بالظبط وفين 

 

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

أنا اسف يا استاذ محمد وشكرا لرد حضرتك

أنا في المشاركة الأولي عندي ملفين ( أحمد و محمد )

وطلبت من حضرتك ترحيل البيانات الموجودة في الملف ( محمد ) بالشيت الاول الي ملف ( أحمد ) بعد اخر صف به بيانات بالشيت الأول

والكود شغال وتمام وكتر الف خيرك

ولكن أنا لو عايز ارحل البيانات في الملف ( محمد ) بالشيت الاول والبيانات في ملف ( أحمد )  بالشيت الأول ( الي ورقة شيت تاني في نفس ملف أحمد )

يعني بيانات الشيت الأول في الملفين ( احمد ومحمد ) تترحل الي الشيت الرابع مثلا بالملف ( أحمد )

يا ريت حضرتك أكون وصلت المطلوب

وشكرا كثيرا لحضرتك أستاذنا الكبير

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

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

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

Important Information