جمع آوری اعداد

[ali.b]

سلام و خسته نباشید
ی مشکل عجیبی دارم و اینه که من چندین شیت درست کردم که در یک سلول خاص اون عدد قرار میگیره
چطور میشه کاری کرد که در یک شیت دیگه همه اعداد وارد شده در اون سلول خاص در شیت های مورد نظر رو نشون بده (جمع نکنه) همه اعداد رو نشون بده
یعنی اگه در 10 شیت 10 عدد هست همه رو در شیت دیگه در 10 تا سلول سورت کنه

[Nima]

در نگاه اول پاسخ این موضوع خیلی سادست شما میتونید مقدار سلول مورد نظر در شیت مقصد رو برابر سلول مورد نظر در شیت مبدا قرار بدید.
مگر اینکه هدف شما چیز دیگه ای باشه که بهش اشاره نکردید.

[ali.b]

ممنون از پاسختون
بله من خوب اشاره نکردم. من یک فرم طراحی کردم که برحسب تعداد اماری که وارد میکنم در یک شیت جدید وارد میکنه (یعنی تعداد شیت ها از قبل مشخص نیست ممکنه یه بار 10 تا باشه یا در امار بعدی 100 تا)
حالا میخوام تمام اعدادی که در سلول a1 در هر شیت وارد شده رو در یک شیت به صورت ستون قرار داده بشن
یعنی 10 تا شیت دارم اون 10 تا عدد در یک ستون sort بشن و نوشته بشن
فکر کنم تو vb باید کار کرد

[Nima]

خوب اکه بخوای از وی بی ای استفاده از یه همچین کدی میشه استفاده کرد البته کد زیر مقادیری که تو سلول A1 هر شیت هست رو تو ستون A شیت بانامSummary لیست میکنه:

Sub sortSummary()
Dim wkst As Worksheet
Dim row As Long
row = 1
For Each wkst In ActiveWorkbook.Worksheets
   If wkst.Name <> "Summary" Then
      Worksheets("Summary").Cells(row, 1) = wkst.Range("A1")
      row = row + 1
   End If
Next
End Sub