ترحيل بيانات

[2saad]

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

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

ولكم جزيل الشكر أحمد.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

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

[2saad]

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

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

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

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

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

[محمد هشام.]

 

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

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

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

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

 

[2saad]

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

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

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

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

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

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

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

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

[حسونة حسين]

اخي @2saad

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

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