لیست آبشاری،تابع if

[60vahidsalehi]

با سلام و خسته نباشید خدمت دوستانمن دنبال کدی میگردم که موارد زیر رو اجرا کنه:1- روی هر کدام از سلولهای a1تا a12 (در شیت 1)که کلیک کنم لیست آبشاری باز بشه که محتویات درون لیست برابر با محدوده a1 تا a12 شیت 2 باشه 2- مرحله بعد : مثلا در سلول a1 (شیت 1) کلیک میکنم و از لیست آبشاری موردی رو انتخاب میکنم که در شیت 2 در سلول a3 قرار داره در این موقع میخوام سلول b1 من برابر با سلول b3 شیت دوم بشه (چون از لیست این مورد انتخاب شد) سلول c1 من برابر با c3 شیت دوم . ... و الی آخر باشهدر کل یعنی اگر موردی در یک ردیف انتخاب کردم باقی ردیف هم مواردی بشه که در شیت دوم جلوی اون قرار دارهممنون میشم اگر کمکم کنیدپیشاپیش تشکر میکنم

[AmirAkbar]

سلام ..
فکر کنم منظورتون همچین چیزیه .. و اگر ردیفها و یا ستونهای بیشتری دارید فرمولها و اسامی و محدوده رنجها رو میتونید خودتون تغییر بدید (کنترل و f3)

[60vahidsalehi]

ممنون از پاسخ شمامن دقیقا همینو میخوام اما بوسیله کد vba

[AmirAkbar]

اینجوری خوبه دوست عزیز ؟

[mokaram]

با تشکر از همه دوستان عزیز که پاسخگو بودند با اجازه دوست بزرگوار amirakbar کد زیر اراده میشه برای تکمیل سوال خواسته شده

کد زیر را به یک باتن الصاق کنید


On Error Resume Next
Dim Row_CountB, Clm_CountB, Row_CountC, Clm_CountC As Long
Table1 = Sheet1.Range("A1:A12")
Table2 = Sheet2.Range("A1:C12")
Row_CountB = Sheet1.Range("b1").Row
Clm_CountB = Sheet1.Range("b1").Column
For Each ab In Table1
Sheet1.Cells(Row_CountB, Clm_CountB) = Application.WorksheetFunction.VLookup(ab, Table2, 2, False)
Row_CountB = Row_CountB + 1
Next ab
Row_CountC = Sheet1.Range("c1").Row
Clm_CountC = Sheet1.Range("c1").Column
For Each ac In Table1
Sheet1.Cells(Row_CountC, Clm_CountC) = Application.WorksheetFunction.VLookup(ac, Table2, 3, False)
Row_CountC = Row_CountC + 1
Next ac
MsgBox "انجام شد"

[60vahidsalehi]

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

[mokaram]

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

احتمالا محدوده های شما چیزی غیر از محدوده های نمونه کد باشه لطفا بیشتر بررسی کنید یا نمونه فایل ارائه بدید

[generalsamad]

با سلام
کد دوستمون M_R_M (http://forum.exceliran.com/member.php/909-M_R_M) رو تو فایل قرار دادم.
فایل ضمیمه شد