عبد الله-بلال قام بنشر أغسطس 20, 2020 مشاركة قام بنشر أغسطس 20, 2020 إخواني السلام عليكم و رحمة الله و بركاته عندي سؤال و هو : أريد ترحيل بيانات جدول في شيت إلى آخر بحيث ينقل لي كل البيانات الموجودة في شيت hassila إلى شيت Archives لكل يوم ، بمعنى عندما أريد ترحيل الجدول يضعه لي تحت الجدول السابق لليوم الموالي و هكذا دواليك و جزاكم الله خيرا . هذا هو المرفق أرشيف.xlsm رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر أغسطس 20, 2020 مشاركة قام بنشر أغسطس 20, 2020 السلام عليكم ورحمة الله جرب هذا الكود 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 2 رابط هذا التعليق شارك More sharing options...
عبد الله-بلال قام بنشر أغسطس 20, 2020 الكاتب مشاركة قام بنشر أغسطس 20, 2020 أخي إبراهيم الحداد جزاك الله خيرا على الرد ليكن في علمكم بأن الكود جربته و هو يعمل جيدا و لكن أنا لا أحتاج ترحيل الرقم أحتاج التاريخ و هناك شيء آخر أريده إن أمكن و هو خانة المبلغ المتبقي بها معادلات مرتبطة بخلية أخرى يعني عند الترحيل تظهر بهذا الشكل 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 و جزاكم الله كل الخير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.