[حل شده] انتقال اعداد در يك شيت به شيت ديگر در يه صفحه اكسل

[mostafa_s]

با سلام به اساتيد محترم ميشه كمك كنيد من اين مسئله را حل كنم.
طبق فايل پيوست ميخواهم در ستون c جاي كه نوشته شده است وضعيت حريم ومسير هر كدام از مقادير مربوطه را كه انتخاب نمودم .شماره مربوطه ان از شيت يك به شيت دو در شماره حريم بنشيند .

[khakzad]

سلام
دوتا مورد:
یکی اینکه مواردی که داخل لیست شماست باید یکی باشن.
یعنی اگر اضطرار داخل پرانتز هست. در هر دو شیت اینطوری باشه که بشه تطبیق داد و حتی یک اسپیس اضافه نباید بینشون باشه

مورد دوم هم صورت سواله. منظورتون از اینکه شماره بیاد داخل شیت 2 چی هس؟
شماره ردیف؟ مثال از چیزی که میخواید اتفاق بیفته بزنید و توضیح بدید

[s.cheraghi]

سلام
همینطور که استاد خاکزاد فرمودن مواردی که درون لیست شما است و مواردی که در شیت 2 قرار داده شده اند یکی باشند. (برای اصلاح فایلتون گزینه های لیست استفاده شده در شیت 1، به شیت 2 در ستون E منتقل شدند.
اما متأسفانه فرمول آماده ای در اکسل برای مسئله شما وجود نداره، که نیاز به نوشتن تابع موردنیاز با استفاده از VBA داره. تابعی که برای حل مسئله شما استفاده شده، به صورت زیر است: که یک آرایه را به عنوان ورودی گرفته و با استفاده از جداکننده ای که مشخص میکنیم، اجزای آرایه را در صورت مقدار داشتن به هم وصل میکند و در یک خانه قرار میدهد.

Function MyConCat(myDelimiter As String, Avar) As String    Dim b As Variant, Dum As String    If IsMissing(myDelimiter) Then myDelimiter = ""    For Each b In Avar        Dum = IIf(Len(b) > 0, Dum & myDelimiter & b, Dum)    Next    MyConCat = IIf(Len(myDelimiter) > 0, Mid(Dum, Len(myDelimiter) + 1, Len(Dum)), Dum)End Function 

در نهایت فایل پیوست هم مشاهده شود.
موفق باشین

[mostafa_s]

سلام
همینطور که استاد خاکزاد فرمودن مواردی که درون لیست شما است و مواردی که در شیت 2 قرار داده شده اند یکی باشند. (برای اصلاح فایلتون گزینه های لیست استفاده شده در شیت 1، به شیت 2 در ستون E منتقل شدند.
اما متأسفانه فرمول آماده ای در اکسل برای مسئله شما وجود نداره، که نیاز به نوشتن تابع موردنیاز با استفاده از VBA داره. تابعی که برای حل مسئله شما استفاده شده، به صورت زیر است: که یک آرایه را به عنوان ورودی گرفته و با استفاده از جداکننده ای که مشخص میکنیم، اجزای آرایه را در صورت مقدار داشتن به هم وصل میکند و در یک خانه قرار میدهد.

Function MyConCat(myDelimiter As String, Avar) As String    Dim b As Variant, Dum As String    If IsMissing(myDelimiter) Then myDelimiter = ""    For Each b In Avar        Dum = IIf(Len(b) > 0, Dum & myDelimiter & b, Dum)    Next    MyConCat = IIf(Len(myDelimiter) > 0, Mid(Dum, Len(myDelimiter) + 1, Len(Dum)), Dum)End Function 

در نهایت فایل پیوست هم مشاهده شود.
موفق باشین

سپاس بيكران از شما برادران عزيز واقعا كارتون درسته همگي

[mostafa_s]

طبق فايل پيوست ميخواهم در ستون c جاي كه نوشته شده است وضعيت حريم ومسير هر كدام از مقادير مربوطه را كه انتخاب نمودم .شماره مربوطه ان از شيت يك به شيت دو در شماره حريم بنشيند

[iranweld]

طبق فايل پيوست ميخواهم در ستون c جاي كه نوشته شده است وضعيت حريم ومسير هر كدام از مقادير مربوطه را كه انتخاب نمودم .شماره مربوطه ان از شيت يك به شيت دو در شماره حريم بنشيند

با سلام

ظاهرا به این موضوع قبلا جواب داده شده است؟