طلب كود لعمل فائمة بمعادلة لمحتويات خلية من كل شيت

[طارق_طلعت]

السادة الأفاضل

الملف المرفق بة عدد من الشيتات و المطلوب كود لعمل قائمة بالعمود A من الشيت الأول تحتوى كل خلية منها على معادلة بقيمة الخلية B4 بكل شيت من شيتات الملف

مع العلم ان الملف الأصلى يحتوى على اكثر من الف شيت و يمكن زيادتها كل فترة

و كذلك اسماء الشيتات يمكن ان تتغيير كل فترة

و شكرا جزيلا للمساعدة

 

قائمة بخلية محددة من كل شيت.rar

تم تعديل فبراير 2, 2017 بواسطه طارق_طلعت

[سليم حاصبيا]

جرب هذا الكود

Sub Salim_Macro()
Dim i As Integer
Dim ws As Worksheet


Set ws = Sheets("sheet1")
ws.Range("a:a").ClearContents

 For i = 2 To Sheets.Count
 ws.Range("A" & i + 2) = Evaluate("Sheet" & i & "!B4")
    Next
End Sub

وهذا ماكرو ثاني (اسرع )

Sub Salim_Macro1()
Dim arr()
Dim ws As Worksheet
Set ws = Sheets("sheet1")
ws.Range("a:a").ClearContents
ReDim arr(2 To Sheets.Count)
 For i = 2 To Sheets.Count
    arr(i) = Sheets(i).Range("b4")
  Next
  ws.Range("a4").Resize(Sheets.Count - 1, 1) = Application.Transpose(arr)
  Erase arr
End Sub

 

[طارق_طلعت]

أستاذ سليم

انا شاكر جدا على الكودين لكن المطلوب ان القيمة فى الخلية تكون فى صيغة معادلة بحيث اذا تغيرت قيمة الخلية B4 فى اى شيت تتعيير القيمة فى الخلية بالقائمة بالقيمة الجديدة

ارجوا ان تكون الفكرة وصلت لحضرتك

مرة اخرى شكرا جزيلا على المساعدة

[سليم حاصبيا]

الاجابة في هذا الملف

 

Salim function_Vba.rar