فراخوانی سطرها از شیت 1 به شیت 2 به شرط یک کد خاص (که در شیت 2 ارائه می‌شود)

**kazamie** · 2022/01/21, 05:24

نوشته اصلی توسط rm58

با سلام خدمت اساتید بزرگوار
چطور میتوان تمامم ردیفهای مرتبط با یک کد خاص را از شیت 1 به شیت 2 فراخوانی کرد (البته تعداد ردیفها در شیت دو بطور اتوماتیک متناسب با ردیفهای موجود در شیت 1 تغییر کنه)
سپاس از لطف شما

این کد را امتحان کنید فقط تست نکردم چون با گوشی نوشتم

کد:

Sub macro1
Dim I,j as long
I=worksheetfunction.counta(sheets ("sheet1"). range ("A:A"))
For J=1 to I
 If sheets ("sheet1").range("A" & j)="codekhas" then
Range("A1000000").End(xlUp). offset (1,0)=sheets ("sheet1"). cells (j,1)
Range("A1000000").End(xlUp). offset (0,1)=sheets ("sheet1"). cells (j,2)
Range("A1000000").End(xlUp). offset (0,2)=sheets ("sheet1"). cells (j,3)
Range("A1000000").End(xlUp). offset (0,3)=sheets ("sheet1"). cells (j,4)
End if
Next j
End sub

**kazamie** · 2022/01/21, 05:37

اما این کار با فیلتر پیشرفته و ضبط ماکرو در شیت ۲ بسیار سریع تر و آسان تر انجام می شود

**rm58** · 2022/01/21, 12:15

سلام و سپاس فراوان از شما
با توجه به اینکه خیلی مبتدی هستم و نمیتونم در سطح دانش شما مشکل را مطرح کنم، فایل ضمیمه را ارسال کردم:
در شیت 2 با جستجوی 3 مولفه "نام مجله"، "سال" و "فصل" اطلاعات مربوطه در ردیفهای 7 به بعد فراخوانی بشه. (منظورم اینه که بشه بسته به پربودن مولفه‌های جستجو اطلاعات را فراخوانی کرد)
اگر نام مجله پر بود: کلیه اطلاعات آن مجله
اگر نام و سال پر بود : کلیه اطلاعات آن سال آن مجله
اگر فصل پر بود: کلیه اطلاعات آن فصل از آن سال آن مجله.
بازهم عذرخواهی میکنم از بیان غیر تخصصی ام
با تشکر و سپاس فراوان

فایل های پیوست شده