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

**60vahidsalehi** · 2015/03/19

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

اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

سیستم تبلیغات اکسل ایران

**AmirAkbar** · 2015/03/19

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

**60vahidsalehi** · 2015/03/20

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

**AmirAkbar** · 2015/03/21

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

**mokaram** · 2015/03/24

با تشکر از همه دوستان عزیز که پاسخگو بودند با اجازه دوست بزرگوار 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 "انجام شد"