تهیه یک ماکرو یا تابعی برای بازخوانی از دیگر شیتها

**khakzad** · 2014/08/09, 12:42

سلام
کد زیر رو اجرا کنید:

کد:

Sub gozaresh()
For i = 2 To Worksheets.Count
    Sheets(1).Cells(i, 1) = Sheets(i).Range("a1")
    
Next
End Sub

**h-vafa** · 2014/08/09, 15:27

خیلی ممنون خاکزاد جان

کارم رو خیلی جلو انداختید.............

**h-vafa** · 2014/08/14, 23:43

دوباره یه کمک دیگه می خوام

حالا اگه جای این سلول در هر شیت فرق داشت چطور میشه مشخصش کرد؟ راهی داره؟ یا باید یکی یکی اضافه کرد به شیت اول؟

تنها مشخصه ای که داره اینه که فرمول سام توش استفاده میشه، که جمع مقادیر سلولهای بالاییشه؟
میشه کاری کرد که سلول جمع بره بالای همه سلول ها و توی همه شیت ها جاش مشخص و یک جا باشه، اما واسه پرینت فرم درست و رسمی و زیبایی نمیشه...

می خواستم ببینم امکانش هست که با یه فرمول دیگه بشه کاری کرد که این سلول رو توی شیت های دیگه شناسایی کنه و عدد اون رو توی شیت اول نشون بده؟؟؟

با تشکر از اساتید گرامی