با سلام و خسته نباشید خدمت دوستانمن دنبال کدی میگردم که موارد زیر رو اجرا کنه:1- روی هر کدام از سلولهای a1تا a12 (در شیت 1)که کلیک کنم لیست آبشاری باز بشه که محتویات درون لیست برابر با محدوده a1 تا a12 شیت 2 باشه 2- مرحله بعد : مثلا در سلول a1 (شیت 1) کلیک میکنم و از لیست آبشاری موردی رو انتخاب میکنم که در شیت 2 در سلول a3 قرار داره در این موقع میخوام سلول b1 من برابر با سلول b3 شیت دوم بشه (چون از لیست این مورد انتخاب شد) سلول c1 من برابر با c3 شیت دوم . ... و الی آخر باشهدر کل یعنی اگر موردی در یک ردیف انتخاب کردم باقی ردیف هم مواردی بشه که در شیت دوم جلوی اون قرار دارهممنون میشم اگر کمکم کنیدپیشاپیش تشکر میکنم
-
هرگز نبوده افاق این سان مخوف و تاریک -
سلام ..
فکر کنم منظورتون همچین چیزیه .. و اگر ردیفها و یا ستونهای بیشتری دارید فرمولها و اسامی و محدوده رنجها رو میتونید خودتون تغییر بدید (کنترل و f3) -
ممنون از پاسخ شمامن دقیقا همینو میخوام اما بوسیله کد vbaهرگز نبوده افاق این سان مخوف و تاریککامنت
-
اینجوری خوبه دوست عزیز ؟کامنت
-
با تشکر از همه دوستان عزیز که پاسخگو بودند با اجازه دوست بزرگوار amirakbar کد زیر اراده میشه برای تکمیل سوال خواسته شده
کد زیر را به یک باتن الصاق کنید
کد PHP: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 "انجام شد"
[CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
[/CENTER]کامنت
-
با سلام من کدها رو وارد کردم اما کار نمیکنه بی زحمت میشه وارد فیایل کنیدمن نمیتونم فایل پیوست کنمهرگز نبوده افاق این سان مخوف و تاریککامنت
-
[CENTER]
[SIGPIC][/SIGPIC]
[/CENTER]کامنت
کامنت