با سلام
چجوری می تونم اطلاعات از یک سلول در شیت دیگر به اخرین ستون خالی در شیت جاری وارد کنم
با سپاس
چجوری می تونم اطلاعات از یک سلول در شیت دیگر به اخرین ستون خالی در شیت جاری وارد کنم
با سپاس
-
-
سلام
چیزی که شما لازم دارین یک کد vba هست که این کار رو براتون انجام بده
از این کد میتونین کمک بگیرین
سوالتون به تالار ویژوال بیسیک منتقل شدکد:Sub AddToLastRow() Lrow = Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Row + 1 If Lrow = 2 And Cells(1, 1) = "" Then Lrow = 1 Sheet2.Range("A" & Lrow) = Sheet1.Range("A1") End Sub -
می خوام بصورت اتومات اینکار انجام بشهکامنت
-
در ضمن اخرین سطر پر شده بایست از شیت اول گرفته و در شیت دوم درج شود.کامنت
-
لطف کنید دقیق تر بگین چی میخواین. منظورتون چیه اتومات؟
کدی که من دادم خدمتتون از سلول a1 شیت اول اطلاعات رو میگیره و به آخرین سطر از ستون a در شیت دوم اضافه میکنهکامنت
-
ببینید از سلول a1 شیت اول به سلول a1 شیت دوم وسلول a2 شیت اول به سلول a2 شیت دوم و الی اخر ... داده منتقل کنه
منظور از اتومات هم اینه که وقتی در شیت اول سلول a1 داده وارد کردیم در شیت دوم سلول a1 بشینه و الی اخرکامنت
-
حالا شد. الان متوجه منظورتون شدم. من فکر کردم شما میخواین در سلول A1 یک داده وارد کنید و این داده خودبه خود بره در انتهای یک لیست در شیت دیگری ثبت بشه
این چیزی که شما الان میگین خیلی متفاوت هست و اصلا نیازی به کد نویسی vba نداره
در شیت دوم، سلول A1 این فرمول رو وارد کنید و به سمت پایین درگ کنید (autofill)
کد:=Sheet1!A1
کامنت
-
نه اینجوری بدرد من نمی خوره
به فایل پیوست توجه کنید
اونجا توضیح دادمکامنت
-
با سلام
این فایل رو ببینید ایا این روش شما رو به نتیجه دلخواه میرسونه.(فرمول ها آرایه ای میباشد).[SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]کامنت
-
دوست عزیز سلام
من می خوام وقتی در شیت اول داده وارد شد، داده وارد شده اتومات در اولین سطر خالی در شیت موردنظرش نیز وارد شود!کامنت
-
[SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]کامنت
-
با سلام و احترام
حالا متوجه شدم، ولی وقتی سطر 11 و الی اخر رو در شیت -کامل- اضافه می کنم در شیت های دیگر اضافه نمیشن
چکار کنم کنم ؟؟؟کامنت
-
با سلام
باید در فرمول ها آدرس های جدول اطلاعاتون رو متناسب با نیازتون تنظیم کنید من برای 500 ردیف جدول رو بسط دادم.[SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]کامنت
-
آقا دمت گرم
فقط اگه ممکنه فرمول بکار رفته رو توضیح بدهکامنت
-
با سلام
دوست عزیز نمیدونم چقدر با توابع اکسل آشنا هستید ولی من توضیح فرمول بکار برده شده رو میدم اگر در مورد توابع توضیح داده شده مطالب بیشتری خواستید بدونید، تو انجمن زیاد در موردشون بحث شده میتونیدبا یک جستجو به تمام اونها دسترسی پیدا کنید.
شما در یک شیت به صورت کلی اجناس رو لیست کردید.
من ابتدا چون نام شیت ها تفکیک شده با مورد جستجو (مواد غذایی -بهداشتی - لبنیات) در لیست اصلی تون یکی بود با استفاده از ترکیب توابه (mid-find-cell) نام شیت رو پیدا کردم. (توضیح هر یک از این توابع خارج از مجال این بحث هست)
بعد با استفاده از فرمول آرایه ای هر کدوم از ردیف های اطلاعات رو با توجه به تطبیق شرط (بهداشتی-مواد غذایی-لبنیات) پیدا کردم.(در فرمول های آرایه ای به جای inter باید کلید های ctrl+shift+inter رو با هم فشار بدید که علامت {} در ابتدا و انتهای فرمول نمایان بشه)کد PHP:=MID(CELL("filename"; A1); FIND("]"; CELL("filename"; A1)) + 1; 32)
تا اینجا تمام ردیف هایی که به شرط (که فرضا" مواد غذایی هست) پیدا شده حالا این ردیف ها رو در تابع small قرار دادم که بتونم تک تک اونها رو بتونم از لیست فراخوان کنم.کد PHP:IF(کامل!$C$2:$C$11=MID(CELL("filename"; A1); FIND("]"; CELL("filename"; A1)) + 1; 32);ROW(کامل!$C$2:$C$11))
و در آخر با قرار دادن تک تک ردیفهای پیدا شده و شماره ستون که بصورت دستی در اینجا وارد شده (میشه اون رو هم بصورت پویا پیدا کرد) به راحتی اطلاعات بر اساس شرط از شیت کامل فراخوان شد.کد PHP:SMALL(IF(کامل!$C$2:$C$11=MID(CELL("filename"; A1); FIND("]"; CELL("filename"; A1)) + 1; 32);ROW(کامل!$C$2:$C$11));ROW(A1)
از تابع IFERROR هم استفاده کردم که در صورت پیدا نکردن ردیف ها مطابق شرط به جای خطا خالی قرار بده که شکل ظاهری لیست ها شکیل و خوانا باشه.
امیدوارم خوب توضیح داده باشم.[SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]کامنت
کامنت