كپي داده هاي چند سل از چند شيت در يك شيت خاص

[rezahagh]

با سلام من تعداد 10 شيت دارم در شيت هاي 2 ال 10 در رديف 5 و ستون 10 و رديف 11 و ستون 4 هر شيت اطلاعاتي دارم كه مي خواهم اين اطلاعات با زدن يك دكمه در شيت يك از همان ورك شيت كپي شود بدين صورت كه رديف 5 ستون 10 شيت دوم در سطر 1 شيت اول و رديف 5 ستون 10 شيت سوم در سطر دوم شيت اول كپي شود و الي اخر

[MEYTI]

RE: كپي داده هاي چند سل از چند شيت در يك شيت خاص

با سلام خدمت شما دوست عزیز

Sub Button1_Click()

For i = 2 To 10

Range("a" & (i - 1)).Value = Sheets(i).Range("j5").Value
Next

End Sub 

[raha_5714]

RE: كپي داده هاي چند سل از چند شيت در يك شيت خاص

سلام من هم یه همچین مشکلی دارم با این تفاوت که می خام محتوای چند سلول از یا شیت رو در یک شیت دیگه جمع کنم وکاری کنم که این کار برای شیت های دیگم خود بخود انجام شه،فرض کنیم 100 شیت داریم
مثلا تو sheet1 محتوای سلول های D2,D3 از sheet2 روجمع کنیم وکاری کنیم که این کار خوبخد برای 100 تاشیت دیگه هم انجام بشه
خاهش میکنم کمکم کنید خیلی گیر کردم
سپاس

[امين اسماعيلي]

RE: كپي داده هاي چند سل از چند شيت در يك شيت خاص

با درود
این تاپیک شاید کمکی بکنه
http://forum.exceliran.com/showthread.php?tid=2746