كد ماكرو براي نمايش يك شيت در شيت ديگر با فعال كردن تيك نمايش

[مائده]

سلام به استادان گرامي
در فايل پيوست ارسالي سه شيت اطلاعات پايه دارم و در شيت الويت پكيج در ستونb نام شيت هاي اطلاعات پايه امده.
در ستونcتعداد سفارش از پكيج امده
و در ستون d تيك نمايش امده
حالا ميخوايم وقتي مثلا براي شيت شماره1107 تعداد سفارش به طور مثال2عدد ميزنيم و تيك نمايش اجرا مي كنيم كنار جدول شيت شماره 1107 تا جايي كه اطلاعاتي نوشته داره در شيت الويت پكيج كنار جدول بياد
حالا با اين تفاووت كه اگه من تيك شيت 1107 برداشتم اطلاعات وارد شده برداشته بشه يا مثلا
تيك 1107 فعال هست تيك 1109 هم فعال ميكنيم اطلاعات شيت1109 پايين اطلاعات شيت1107 بياد.
---
در شيت الويت پكيج ستونe به نام مورد نياز فرمولي نوشته شده كه ميخوام هروقت هر تيكي كه اجرا ميشه اين فرمول براي اون اطلاعات شيت نسبت به تعداد سفارش اجرا بشه

ممنون ميشم كد ماكرو ها رو بگين

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

[ordouei]

با سلام
در شیت 1107 چندین ردیف وجود دارد - اطلاعات کدام ردیف در جلوی کد 1107 با 2 عدد ضاهر شود .
مثلا

3

شانه هلیکال برای دستگاه 2*6 145.020.220

1209-309

8.25

3

یا

5

واشر دنده ck d23 l5

1209-501

3

4

تراش

qc

مونتاژ

[مائده]

با سلام
در شیت 1107 چندین ردیف وجود دارد - اطلاعات کدام ردیف در جلوی کد 1107 با 2 عدد ضاهر شود .
مثلا

3

شانه هلیکال برای دستگاه 2*6 145.020.220

1209-309

8.25

3

یا

5

واشر دنده ck d23 l5

1209-501

3

4

تراش

qc

مونتاژ

سلام
ميخوام زماني كه تيك 1107در شيت الويت پكيج فعال ميكنم تمامي اطلاعات بياد
مثلا:1107 سيزده رديف بياد-
1108 بيست و يك رديفش بياد-
يا هر شيتي به تعداد رديف اطلاعاتش بياد.


براي بدست امدن موجودي مورد نياز هم:
در شيت الويت پكيج ما تعداد سفارش ضرب تعداد كالا ميكنيم و نسبت به موجودي كسري يا اضافه در ستون مورد نياز بدست مياد

[ordouei]

با سلام

توضیحات مفهوم نیست - یعنی 13 ردیف بصورت افقی بیاید - یا عمودی در زیر هم ؟
حالا دومین کد تکلیفش چیست ؟
پاسخ شما اگر + باشد باید از اکسل پویا استفاده شود .
یعنی با تغیرات شیت ها وضعیت انتخاب و نمایش تغییر نماید
لطفا بصورت مثال خروجی ها را مشخص نمایید

[iranweld]

با سلام

در فایل پیوست با استفاده از قابلیت رویدادهای اکسل و فراخوانی یک ماکرو انجام شد

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("D2:D21")) Is Nothing Then
    Application.ScreenUpdating = False
   Application.EnableEvents = False
    
    TEST
    
   End If
 
Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub 

ماکرو مورد نظر

Sub TEST()

On Error Resume Next

Z = Sheet1.Cells(Sheet1.Rows.Count, "F").End(xlUp).Row

T = ActiveCell.Row

For I = 2 To 21
Range("D" & I).Interior.ColorIndex = 2
Next
Range("D" & T).Interior.ColorIndex = 3

Range("F2:M" & Z).ClearContents
        Range("F2").Select

For I = 2 To 100


Range("F" & I).Value = Sheets("" & Range("B" & T).Value & "").Range("B" & I).Value
Range("G" & I).Value = Sheets("" & Range("B" & T).Value & "").Range("C" & I).Value
Range("H" & I).Value = Sheets("" & Range("B" & T).Value & "").Range("D" & I).Value
Range("I" & I).Value = Sheets("" & Range("B" & T).Value & "").Range("E" & I).Value
Range("J" & I).Value = Sheets("" & Range("B" & T).Value & "").Range("F" & I).Value
Range("K" & I).Value = Sheets("" & Range("B" & T).Value & "").Range("G" & I).Value
Range("L" & I).Value = Sheets("" & Range("B" & T).Value & "").Range("H" & I).Value
Range("M" & I).Value = Sheets("" & Range("B" & T).Value & "").Range("I" & I).Value

Next

Range("D" & T).Select

On Error GoTo 0

End Sub 

[مائده]

سلام و با تشكر فراوان
احتراما مواردي به شرح زير اعلام ميشود:

1-در شيت الويت پكيج در ستون مورد نياز فرمول بايد در ماكرو ايجاد بشه چون وقتي تيك نمايش مثلا1108 يا 1109 ايجاد ميكنم تعداد سفارش 1107 را در نظر ميگيره؟

2-ميشه در شيت الويت پكيج وقتي تيك يك شيت را فعال ميكنيم بستگي به اقلام مورد نياز كسري ها فقط نمايش داده بشه.مثلا:شيت1107 فعال كرديم فقط اقلام كسري مثل رديف1.2.3.9 بياره.اين تغيير براي تمامي شيت هاي اطلاعات پايه ميخوام اجرا بشه.كسري ها فقط نمايش داده بشه.

3-حالا همين كه تيك شيت 1107 فعاله تيك شيت 1108 هم فعال كنيم و داده ها پشت سر هم با يك خط فاصله نمايش داده بشه.


ممنون راهنمايي كنين