فرآخوانی اطلاعات جدول

[nazi nazi]

سلام در فایل پیوست دو شیت وجود دارد جدول ورودی و جدول که شیت جدول ورودی یک شیت کمکی است که تاریخ بازنگری و شماره بازنگری هر محصول به طور مجزا در آن ثبت شده
در شیت جدول در سلول یی که علامت سوال قرار داده شده چه فرمولی بنویسیم تا هنگامی که محصول در سلول انتخاب محصول انتخاب میشه اطلاعات متناظر در ج شده در شیت جدول ورودی فرآخوانی بشه لطفا راهنمایی بفرمایید
ممنونم

[generalsamad]

با سلام
این فرمول برای ستون اول اعمال کنید

=index('جدول ورودی'!b$3:$aq$10;match($a2;'جدول ورودی'!$a$3:$a$10;0);match(جدول!$e$2;'جدول ورودی'!$b$1:$aq$1;0)) 

فایل ضمیمه گردید

[rasools13]

سلام در فایل پیوست دو شیت وجود دارد جدول ورودی و جدول که شیت جدول ورودی یک شیت کمکی است که تاریخ بازنگری و شماره بازنگری هر محصول به طور مجزا در آن ثبت شده
در شیت جدول در سلول یی که علامت سوال قرار داده شده چه فرمولی بنویسیم تا هنگامی که محصول در سلول انتخاب محصول انتخاب میشه اطلاعات متناظر در ج شده در شیت جدول ورودی فرآخوانی بشه لطفا راهنمایی بفرمایید
ممنونم

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

Private Sub Worksheet_Change(ByVal Target As Range)
Dim oldVal, newVal, AA As String
Dim Col As Double
Dim HasVal As Boolean
    AA = Target.Address
    If AA = "$E$2" Then 'این قسمت را برابر سلولی که نوع محصول را انتخاب میکنید قرار دهید
        If Target.Count > 1 Then GoTo exitHandler
        Application.EnableEvents = False
        newVal = Target.Value
        If newVal <> "" Then
            Col = Application.WorksheetFunction.Match(newVal, Sheets(1).Range("B1:AQ1"), 0) + 1
            Range("B2") = Sheets(1).Cells(3, Col)
            Range("C2") = Sheets(1).Cells(3, Col + 1)
            Range("B3") = Sheets(1).Cells(4, Col)
            Range("C3") = Sheets(1).Cells(4, Col + 1)
            Range("B4") = Sheets(1).Cells(5, Col)
            Range("C4") = Sheets(1).Cells(5, Col + 1)
            Range("B5") = Sheets(1).Cells(6, Col)
            Range("C5") = Sheets(1).Cells(6, Col + 1)
            Range("B6") = Sheets(1).Cells(7, Col)
            Range("C6") = Sheets(1).Cells(7, Col + 1)
            Range("B7") = Sheets(1).Cells(8, Col)
            Range("C7") = Sheets(1).Cells(8, Col + 1)
            Range("B8") = Sheets(1).Cells(9, Col)
            Range("C8") = Sheets(1).Cells(9, Col + 1)
            Range("B9") = Sheets(1).Cells(10, Col)
            Range("C9") = Sheets(1).Cells(10, Col + 1)
            Target.Value = newVal
        End If
    End If
exitHandler:
    Application.EnableEvents = True
End Sub