طلب كود ترحيل بسيط جدا بين جدولين ..

[3mr 3bdeen]

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

ارجوا المساعدة بكود ترحيل يقوم بالاتي ..

ترحيل كافة البيانات التي بداخل "Table3" الموجود بالشيت المسمى بـ "Treasury_Daily" الى الجدول "Table1" الموجود بالشيت المسمى بـ "Main" ولكن بشرطين ..

الاول هو : ان يتم الترحيل بكافة فورمات الخلايا اي كما هية في الجدول الاول تنقل كما هي بالجدول الثاني ..

الثاني هو : مسح كافة البيانات التي بالجدول الاول "المحول منه" .

***

ولو عنكم خيارات اكثر او ابشن افضل هكون سعيد جدا لو ساعدتوني بيه .. وجزاكم الله خيرا

Alradwan_Treasury_ACC.rar

[3mr 3bdeen]

ايه يا رجالة ايه الصحرا دي ,,, مفيش اي رد .. !

طيب الله المستعان

[3mr 3bdeen]

-للرفع-

[3mr 3bdeen]

-للرفع-

[عبدالله المجرب]

السلام عليكم

جرب هذا الكود

ضعه في زر أمر في الشيت Treasury_Daily

Sub Abu_Ahmed()

w = Range("A1000").End(xlUp).Row

W1 = Sheets("Main").Range("B1000").End(xlUp).Row

Range("B3:J" & w - 1).Copy Sheets("Main").Range("B" & W1 + 1)

Range("B3:J" & w - 1).ClearContents

End Sub

[طارق محمود]

السلام عليكم

أخي العزيز

جرب هذا الكود

Sub shift_to_Table1()

Sheet3.Activate

LR = [B10000].End(xlUp).End(xlUp).Row

LR2 = Sheet1.[B10000].End(xlUp).End(xlUp).Row + 1

Range("A3:J" & LR).Copy (Sheet1.Cells(LR2, "A"))

With Range("B3:J" & LR)

    .ClearContents

    .Interior.ColorIndex = xlNone

End With


End Sub

[طارق محمود]

أخي الحبيب / أبو أحمد

عفوا

لم أر ردك إلا بعد ان وضعت ردي