ترحيل بيانات

[2saad]

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

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

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

 

[محمد هشام.]

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

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.rarFetching info...

تم تعديل يوليو 4, 2023 بواسطه محمد هشام.

[2saad]

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

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

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

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

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

[محمد هشام.]

 

  في 3‏/7‏/2023 at 20:56, 2saad said:

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

Expand  

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

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

 

[2saad]

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

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

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

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

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

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

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

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

[حسونة حسين]

اخي @2saad

كل موضوع له طلب واحد

تم غلق الموضوع