انتقال اطلاعات یک سلول در سلول های دیگر بصورت خودکار

**حسام بحرانی** · 2019/12/19, 03:22

پست انتقال یافته

سلام دوست عزیز
این سؤال شما از طریق vba قابل حل است.

از آنجایی که سؤالتون درخصوص ویژوال بیسیک هست، موضوع را به همان تالار ارجاع دادم.
موفق باشید.

**omid0912** · 2019/12/19, 09:20

اگر ممکنه دستورش رو برام بنویسید. تشکر از زحمت شما

**omid0912** · 2019/12/19, 09:58

عزیز، شما لطف می کنید.
اما من اطلاعاتم از اکسل خیلی کم هستش. در حد جمع و تفریق ساده
نمیدونم با اون فایل ضمیمه و اون کد چکار باید انجام بدم.
اذیت تون می کنم، شرمندم!
واقعا شرمنده ام. ممنونم ازتون

**Amir Ghasemiyan** · 2019/12/19, 10:03

نوشته اصلی توسط omid0912

عزیز، شما لطف می کنید.
اما من اطلاعاتم از اکسل خیلی کم هستش. در حد جمع و تفریق ساده
نمیدونم با اون فایل ضمیمه و اون کد چکار باید انجام بدم.
اذیت تون می کنم، شرمندم!
واقعا شرمنده ام. ممنونم ازتون

كافيه عددتون رو در سلولي كه مشخص كردم وارد كنيد و دكمه آبي كنارش رو فشار بديد تا عدد بره در ليستي كه تو شيت دوم هست بشينه

**omid0912** · 2019/12/19, 10:33

امیرخان عزیز!
تا اینجا مثال و نمونه بود.
حالا بفرمایید این نمونه کار شما رو چطوری روی جدول خودم اعمال کنم.
در جدول اصلی جمع و تفریقهای تعریف شده بهم نمی ریزه؟
داخل فرمول می تونم سلول مقصد و ستون مبدا روتغییر بدم؟ یا کلا فرمول تغییر می کنه؟ ممکنه در جدول اصلی سلول مبدا h نباشه یا ستون مقصد ی ستون دیگه باشه و B نباشه. مثلا سلول رو بنویسم k25 چون شاید برای جای دیگه استفاده کنم و این بشه نمونه و الگو
واقعا منو شرمنده کردید.

**iranweld** · 2019/12/19, 11:07

نوشته اصلی توسط omid0912

امیرخان عزیز!
تا اینجا مثال و نمونه بود.
حالا بفرمایید این نمونه کار شما رو چطوری روی جدول خودم اعمال کنم.
در جدول اصلی جمع و تفریقهای تعریف شده بهم نمی ریزه؟
داخل فرمول می تونم سلول مقصد و ستون مبدا روتغییر بدم؟ یا کلا فرمول تغییر می کنه؟ ممکنه در جدول اصلی سلول مبدا h نباشه یا ستون مقصد ی ستون دیگه باشه و B نباشه. مثلا سلول رو بنویسم k25 چون شاید برای جای دیگه استفاده کنم و این بشه نمونه و الگو
واقعا منو شرمنده کردید.

دوست عزیز

بهتره بجای دوباره کاری همون مرحله اول خواسته خود رو روشن و شفاف با ارسال فایل بیان کنید

**omid0912** · 2019/12/19, 11:09

بله کاملا حق دارید.
سوالی که پرسیم و بطور مثال بود. شاید کسی دیگه هم نیاز داشته باشه و مشکلش حل بشه.
اگه محبت کنید و نحوه اعمال رو راهنمایی بفرمایید، میشه ازش چند جا استفاده کرد.
یک بار توضیح بدید چطور روی فایل اصلی اعمال کنم، ده بیست جا برام کار برد داره .
شما سوادش و اطلاعاتش رو دارید براتون ساده هستش.
لطف می کنید و ممنون

**iranweld** · 2019/12/19, 12:10

نوشته اصلی توسط omid0912

بله کاملا حق دارید.
سوالی که پرسیم و بطور مثال بود. شاید کسی دیگه هم نیاز داشته باشه و مشکلش حل بشه.
اگه محبت کنید و نحوه اعمال رو راهنمایی بفرمایید، میشه ازش چند جا استفاده کرد.
یک بار توضیح بدید چطور روی فایل اصلی اعمال کنم، ده بیست جا برام کار برد داره .
شما سوادش و اطلاعاتش رو دارید براتون ساده هستش.
لطف می کنید و ممنون

با کسب اجازه از مهندس قاسمیان

برای تغییر در سلول ورود دیتا در شیت اول H6 را در خط ذیل تغییر بدید
"(Sheet1.Range("H6
برای ذخیره دیتا در شیت دوم این خط کد رو تغییر بدید
Sheet2.Range("B4:B45")

کد PHP:


Sub add_to_list()
KG = Sheet1.Range("H6").Value
For Each cel In Sheet2.Range("B4:B45")
    If cel.Value = "" Then cel.Value = KG: Exit For
Next cel 
End Sub

**omid0912** · 2019/12/19, 15:58

- - - Updated - - -

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

**Amir Ghasemiyan** · 2019/12/19, 16:58

بهتر بود شما فايلتون رو ميذاشتين براتون درست ميكرديم. اينطوري اذيت هم نميشديد

موقع سيو كردن گزينه دوم يعني macro enable رو انتخاب كنيد

روي دكمه هم راست كليك كنيد و گزينه assign macro رو كليك كنيد از ليستي كه باز ميشه add_to_list رو انتخاب كنيد

**omid0912** · 2019/12/19, 23:18

عزیزان خسته نباشید.
ی کم خنگ هستم ولی نه اون قدر که فکر می کنید.
از شیت یک به دو انجام شد. چرا از شیت یک به شیت های سه و چهار انجام نمیشه.
می دونم سلول و ستون و شیت رو درست تعریف کردم. اینکه نمیشه برام سواله؟!

کد:

Sub add_to_list ()
KG = Sheet1.Range("D14").Value
For Each cel In Sheet4.Range("S12:S35")
    If cel.Value = "" Then cel.Value = KG: Exit For
Next cel
End Sub

باز هم از همگی ممنونم.

**Amir Ghasemiyan** · 2019/12/20, 23:16

دوست عزیز یک نکته ای رو باید دقت بفرمایید و اون هم اسم شیت ها هست
در vba دو تا اسم برای هر شیت وجود داره. در عکس زیر مشخصه
دقت کنید که sheet4 که نوشتید باید (name) شیت باشه نه name شیت

**omid0912** · 2019/12/21, 11:15

درود بر شما و سایر عزیزان.
اون فایل پیوست در دسترس نیست اما حدس میزنم منظورتون ("Sheets("sheet4 باشه.
چون به این صورت جواب داد.
الان الگوم کامل شد روی چهار شیت تست کردم هم زمان با ی کلیک اعمال میشه و همه اعداد و ارقام سر جا هاشون می نشینند.
فقط ی چیزی اگه در صفحه مبدا ی اینسرت کنم ستون یا سطری ایجد بشه همه بهم میریزه اینو نمیشه کاریش کرد؟
اینم پاسخ بدید لطفا
واقعا کلی جلو افتادم.
ممنون از همگی