كيف يمكن ارسال آخر قيمة من كل عمود في شيت إلى شيت واحد

[أبو العقاب]

أخواني الكرام

لنفرض أنه لديك عدة أوراق ، ورقة 1 ، ورقة 2 ، ورقة 3 ، ورقة 4 .......................

وفي كل ورقة مجموعة بيانات

أريد إظهار آخر قيمة في كل عمود إلى شيت آخر

ففي المرفق مثال

ورقة1 آخر قيمة في العمودb هي 53

ورقة2 آخر قيمة في العمودc هي 22

ورقة3 آخر قيمة في العمودd هي 11

ورقة4 آخر قيمة في العمودe هي 6

ويوجد شيت اسمه (آخر قيمة) أريد أن ترسل آخر القيم من كل عمود في شيت إلى ذلك الشيت (آخر قيمة)

آمل أن يكون مرادي واضحا

Book1.rar

تم تعديل ديسمبر 4, 2012 بواسطه أبو العقاب

[الـعيدروس]

السلام عليكم

تفضل

Sub A_vt()

Dim Sh As Worksheet

On Error Resume Next

With ورقة5

.[A1].Columns.AutoFit

.[A1] = "أخر قيم الأوراق"

x = 2

For Each Sh In ThisWorkbook.Worksheets

.Cells(x, 1) = Sh.UsedRange.Rows(UBound(Sh.UsedRange.Value)).Value

x = x + 1

Next

End With

End Sub

[أبو العقاب]

بارك الله بك أخ عباد

وجعله الله في ميزان حسناتك

[جمال عبد السميع]

ولأثراء الموضوع إليك الحل بالمعادلات

Book2.rar

تم تعديل ديسمبر 4, 2012 بواسطه mahmoud-lee

[أبو العقاب]

بوركت أخي محمود

لك كل تحية