ترحيل بيانات

[عبد الله-بلال]

إخواني السلام عليكم و رحمة الله و بركاته 

عندي سؤال و هو :

أريد ترحيل بيانات جدول في شيت إلى آخر بحيث ينقل لي كل البيانات الموجودة في شيت hassila  إلى شيت Archives لكل يوم  ، بمعنى عندما أريد ترحيل الجدول يضعه لي تحت الجدول السابق لليوم الموالي و هكذا

دواليك و جزاكم الله خيرا . هذا هو المرفق 

أرشيف.xlsm

[ابراهيم الحداد]

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

جرب هذا الكود

Sub Add_Data()
Dim ws As Worksheet, Arc As Worksheet
Dim LR As Long
Set ws = Sheets("hassila")
Set Arc = Sheets("Archives")
LR = Arc.Range("A" & Rows.Count).End(xlUp).Row
ws.Range("A7:D" & ws.Range("A" & Rows.Count).End(xlUp).Row).Copy
Arc.Activate
Arc.Range("A" & LR + 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
' :اذا اردت مسح البيانات من الورقة الاولى قم بازالة العلامة التى على اليسار من العبارة التالية
'ws.Range("A7:D" & ws.Range("A" & Rows.Count).End(xlUp).Row-1).ClearContents

End Sub

 

[عبد الله-بلال]

أخي إبراهيم الحداد جزاك الله خيرا على الرد ليكن في علمكم بأن الكود جربته و هو يعمل جيدا و لكن أنا لا أحتاج ترحيل الرقم أحتاج التاريخ 

و هناك شيء آخر أريده إن أمكن و هو خانة المبلغ المتبقي بها معادلات مرتبطة بخلية أخرى يعني عند الترحيل تظهر بهذا الشكل REF# .

و للعلم الأخ إبراهيم وجدت كود آخر من الإخوة الأفاضل و هو :  

Sub Trheel()
Dim LR As Integer
LR = [B1000].End(xlUp).Row
Range("B7:D" & LR).Copy Sheets("Archives").Range("B" & Sheets("Archives").[B10000].End(xlUp).Row + 1)
'Range("B2:D" & LR).ClearContents
MsgBox "Êã ÇáÊÑÍíá ÈäÌÇÍ ", vbOKOnly, "ÊäÈíå"
End Sub

و جزاكم الله كل الخير