indirect برای اطلاعات شیت

[ali719]

سلام
من در فایل پیوست می خوام در شیت kol شماره شیت رو از ستون a بگیرد و مشخصات آن را از اون شیت وارد کند برای اینکار چه فرمولی بنویسد.

[ali719]

ببخشید فایل اصلاح کردم سوالم به این شکل است که در ستون a شماره شیت را وارد کنم در ستون b و c آن شیت هر چیزی که وجود داره در شیت kol وارد کنه برای اینکار باید در سلولهای b و c چه فرمولی بنویسم

[iranweld]

با سلام

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

vlookup(b2;indirect("'" & a2 & "'!b:c");2;false) 

[amir_ts]

با سلام
این روش رو هم ببینید.
این فرمول رو در سل b2 قرار بدید و به پایین درگ کنید :

=IFERROR(INDIRECT("'"&$A2&"'!b"&ROW($A2));"") 

و این فرمول رو هم در c2:

=IFERROR(INDIRECT("'"&$A2&"'!c"&ROW($A2));"") 

[ali719]

سلام خسته نباشید
ببخشید فرمول بر اساس ردیف است
من می خوام شماره شیت را وارد کردم و درگ کردم هر چه در همون شیت است بنویسه این فرمول فقط برای اولین شیت درست است در شیتهای من b2 و c10 ثابت هستند (مثل پیوست)

[amir_ts]

با سلام
ساده ترین راه اینه که یک ستون برای شماره ردیف ایجاد کنید.

[iranweld]

چنانچه قصد تجمیع کلیه شیت ها را در شیت کل دارید
فایل پیوست را بررسی بفرمایید.

Private Sub Worksheet_Activate()

Application.EnableEvents = False

Application.ScreenUpdating = False

Z0 = Cells(Rows.Count, "B").End(xlUp).Row

If Z0 = 1 Then Z0 = 2

Range("A2:C" & Z0).ClearContents

For Each Sheet In Worksheets

If Sheet.Name <> "kol" Then

Sheet.Select

Z1 = Sheet.Cells(Sheet.Rows.Count, "B").End(xlUp).Row

Sheet.Range("B2:C" & Z1).Copy

SH = Sheet.Name

Sheets("KOL").Select

Z2 = Cells(Rows.Count, "B").End(xlUp).Row + 1

Range("B" & Z2).Select

ActiveSheet.Paste

Z3 = Cells(Rows.Count, "B").End(xlUp).Row

For I = Z2 To Z3

Range("A" & I) = SH

Next

End If

Next

Range("A1").Select

Application.EnableEvents = True

Application.ScreenUpdating = True

End Sub