فراخوانی اطلاعات

[perspolis52]

سلام توی فایل نمونه توضیح دادم اگه میشه کمک کنید. تشکر

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

[iranweld]

با سلام

از فرمول ذیل بصورت آرایه ای استفاده کنید یعنی بعد تایپ فرمول کلیدهای CTR+ALT+INTER را همزمان فشار دهید و سپس فرمول را به تعداد سطر مورد نیاز به سمت پایین درک نمایید

=IFERROR(INDIRECT("B" & SMALL(IF(Table1[[کد ]]=$I$4,ROW(Table1[[کد ]]),""),ROW(A1))),"") 

[amir_ts]

با سلام
از این فرمول آرایه ای هم میتونید استفاده کنید.

=IFERROR(INDEX($A$3:$E$21;SMALL(IF($I$4=$A$3:$A$21;ROW($A$3:$A$21)-2);ROW(A1));2);"") 

بعد از نوشتن فرمول کلید های ctrl+shift+enter را با هم فشار دهید.

[perspolis52]

سلام دوستان از بابت پاسختون واقعا ممنونم ولی در این فرمول فقط یک کد میشه تو جدول وارد کرد اگه بخوام چند تا کد وارد کنم و اطلاعاتش رو بگیرم باید چه کار کنم از طریق کدنویسی ویژوال راهی نداره؟؟؟؟

[amir_ts]

شما کد تکراری دارید ...برای کد تکراری با موارد گوناگون چه کار میخواهید بکنید...
فایل نمونه را ببینید.

[perspolis52]

سلام امیر. تقریبا مثل فایل دومیت ولی تمام جزئیات ردیف دو رو هم می خوام. اگه می شه این فایل رو یه نگاه بینداز

[amir_ts]

دوست عزیز متوجه مبنای اطلاعاتی که شما در لیست قرار دادید نمیشم.
شما کد تکراری دارید اگر جستو بر اساس کد باشه باید موارد تکراری کد رو لیست کنید (فرمول اول) اگر کد واحد باشه با تابع ساده vlookup میشه تمام اطلاعات رو پشت سر هم آورد....
ترکیب کد واحد و تکراری در یک لیست و فراخوانی تمام آنها پشت سر هم مشکل است.

[perspolis52]

بله عزیز. این اطلاعات مربوط به شرکت فرشه. هر رول فرشی یه کد داره که در یک رول میتونه چند تا نقشه فرش باشه. وقتی این رول خارج میشه باید تعداد فرشهای خارج شده رو بنویسید. من میخواستم با زدن کد رول تمام نقشه های موجود در اون رول لیست بشه. ممکنه چندین رول همزمان از انبار خارج بشه به همین خاطر این فرمول رو می خواستم. به هر حال از بابت پاسختون واقعا ممنونم. البته فکر می کنم از طریق کد ویژوال بشه یه کارایی کرد ولی هنوز چیزی پیدا نکردم. امیدوارم موفق باشین

[iranweld]

در فایل پیوست با استفاده از VB کدهای مشابه پشت سرهم لیست شده و قابلیت تایپ کد بعدی نیز فراهم گردیده است

Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count = 1 And Not Intersect(Target, Me.Range("i4:i9")) Is Nothing Then
    
   Application.EnableEvents = False
   
   Application.ScreenUpdating = False
   
   On Error Resume Next
    
   z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
   
   K = Target.Row

For I = 1 To z1

If Target = Range("A" & I) Then

Range("A" & I & ":E" & I).Copy Destination:=Range("I" & K)

K = K + 1
 
 End If
 
 Next
    
End If

Macro1

Application.EnableEvents = True

Application.ScreenUpdating = True

End Sub 

[perspolis52]

سلام واقعا دمت گرم. خیلی عالی بود. کمک بزرگی بود. به قول مادربزرگا امیدورام هیچ وقت درنمونی ننه . شرمنده دیر پاسخ دادم دو سه روزی بود وارد اینترنت نشده بودم.