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