[حل شده] جستجو مقدار ثابت در شیت اکسل

[spourmoradi]

سلام و خسته نباشید
سوالی که خدمت اساتید محترم دارم :
کالا با کد در اکسل وارد شده . تعدادی انبار هم ثبت شده ( تمامی اطلاعات در یک شیت هستن ) , امکان این هست کد کالا رو در شیت جدید وارد کرد و اطلاعات کامل رو نمایش بده ( نمایش تمامی انبارها - تعداد هر کالا در هر انبار و . . . )

[Behnam]

سلام و خسته نباشید
سوالی که خدمت اساتید محترم دارم :
کالا با کد در اکسل وارد شده . تعدادی انبار هم ثبت شده ( تمامی اطلاعات در یک شیت هستن ) , امکان این هست کد کالا رو در شیت جدید وارد کرد و اطلاعات کامل رو نمایش بده ( نمایش تمامی انبارها - تعداد هر کالا در هر انبار و . . . )

درود
با ابزارهای مختلفی امکان این کار هست دوست عزیز
مثل ابزار vlookup
اما اگر واضح تر توضیح بدید یا فایل نمونه قرار بدید راهنمایی دقیق تری میشه انجام داد

[spourmoradi]

درود
با ابزارهای مختلفی امکان این کار هست دوست عزیز
مثل ابزار vlookup
اما اگر واضح تر توضیح بدید یا فایل نمونه قرار بدید راهنمایی دقیق تری میشه انجام داد

ممنون از راهنمایی شما .
اکسل جهت نمونه اماده کردم . در شیت گزارش 2 فرمت تهیه کردم . گزارش اول با استفاده از vlookup بدون مشکل انجام شده ولی گزارش دوم اطلاعات درست و کامل تهیه نمیشه .
فایل شماره 151 تحویل 3 مشتری گردیده ولی در گزارش نام 2 مشتری اعلام میشود .

test

[spourmoradi]

Up
مدیران عزیز ممنون میشم راهنمایی کنید

[M_ExceL]

ممنون از راهنمایی شما .
اکسل جهت نمونه اماده کردم . در شیت گزارش 2 فرمت تهیه کردم . گزارش اول با استفاده از vlookup بدون مشکل انجام شده ولی گزارش دوم اطلاعات درست و کامل تهیه نمیشه .
فایل شماره 151 تحویل 3 مشتری گردیده ولی در گزارش نام 2 مشتری اعلام میشود .

test

سلام
به نظر میاد ایده بهتری برای ساختار فایلتون وجود داشته باشه، با این حال بنده حلقه ای نوشتم که این کار رو براتون انجام میده :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("a11")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
Range(Cells(11, 2), Cells(11, 200)).ClearContents
For j = 4 To 7
For i = 2 To 10
If Sheets(1).Cells(i, j) = Sheets(2).Range("a11") Then
Sheets(2).Cells(11, 200).End(xlToLeft).Offset(0, 1) = Sheets(1).Cells(i, 1)
End If
Next i
Next j
Application.EnableEvents = True
End If
End Sub

[spourmoradi]

ممنون از لطف شما
فرمودین حالت

ایده بهتری برای ساختار فایلتون وجود داشته باشه , ممنون میشم راهنمایی فرمایید

[M_ExceL]

ممنون از لطف شما
فرمودین حالت

ایده بهتری برای ساختار فایلتون وجود داشته باشه , ممنون میشم راهنمایی فرمایید

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