كود مختصر لترحيل مبالغ من عدة صفات الى ورقة وحدة محددة

[skyblue]

الاساتذة المشرفين والاعضاء الافاضل المحترمين

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

مرفق ملف حول الموضوع اعلاه نأمل التكرم في المساعدة .

تقبلوا تحياتي

book18.rar

[الـعيدروس]

السلام عليكم

جرب الكود التالي

على اساس الخلايا ثابته

Sub ALIDROOS_CP()

Dim A  As Worksheet, B As Worksheet, C As Worksheet

Set A = Sheets(2): Set B = Sheets(3): Set C = Sheets(4)

A.[G23].Copy: [F4].PasteSpecial xlPasteValues: B.[G23].Copy: [F9].PasteSpecial xlPasteValues: C.[G23].Copy: [F14].PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

[skyblue]

استاذي ابو نصار المحترم

الكود لم يحدد اسم الورقة التي سيتم ترحيل القيمة اليها بحيث يعطيني مساحة من الحرية ان اضع زر الترحيل في اي مكان في اي ورقة .

لكن الكود اللي انت عملته يجبرك ان تضع زر الامر في الصفحة التي تريد نقل البيانات اليها .

تحياتي

[الـعيدروس]

السلام عليكم

الاخ الفاضل skyblue

انت كاتب "ترحيل اجمالي الورقة 2 هنا " وهكذا باقي السطور

لذا ارجو منك توضيح الطلب

او بمعنى ماهي الاليه التي تريدها ارجو التوضيح اذا تكرمت

[skyblue]

الاستاذ الفاضل العيدروس

المرفق يوضح المطلوب حيث انني وضعت زر الامر في الورقة 5

تحياتي لك

book18.rar

[skyblue]

up

[الـعيدروس]

السلام عليكم

الاخ الفاضل skyblue

الطلب غامض

جرب المرفق ان شاء الله اكون وفقت

book_ALI.rar

[skyblue]

لمزبدا من التوضيح :

من زر الترحيل اللي في ورقة5 يتم ترحيل اجمالي الرةقة 2 واجمالي الورقة3 واجمالب الورقة4 الى ورقة 1

يعني لو دخلت على صفحة 5 ثم ضغطت زر الترحيل فان الاجماليات الخاصة بالورق2 والورقة3 والورقة4 ترحل على طول للورقة1

والمعذرة على انني لم اوضح المطلوب في السابق .

[الـعيدروس]

جرب هكذا

Sub A()

On Error Resume Next

Dim S As Worksheet

Dim X&

Z = 3

For Each S In Application.Worksheets

If S.Name = "ورقة1" Then GoTo 0

X = S.Cells(1000, 7).End(xlUp).Row

Cells(Z + 1, 6).Value = S.Cells(X, 7).Value

Z = Z + 5

0:

Next

End Sub

[منياوى]

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