پرسش سلام كسي ميتونه كمك كنه ؟ گير كردم تو اين مشكل اكسلي

[javad1450]

كسي ميتونه كمك كنه
فايل پيوست لطفا ؟؟؟؟؟

[sabertb]

كسي ميتونه كمك كنه
فايل پيوست لطفا ؟؟؟؟؟

توضیح بدید کدام کد محصول اولیه هست کدام مواد اولیه و ....

[javad1450]

كد محصول در رديف 1 نوشته شده و كد مواد اوليه در ستون a

[iranweld]

با سلام

فایل پیوست را بررسی کنید

Sub test()

Range("a39:c60").ClearContents

Application.ScreenUpdating = False

k = 39

k1 = Cells(1, Columns.Count).End(xlToLeft).Column

For j = 1 To k1

If Cells(1, j) = Range("b37") Then

Exit For

End If

Next

For i = 3 To 32

If Cells(i, j) > 0 Then

Range("A" & k) = Cells(i, 1)

Range("b" & k) = Cells(i, 2)

Range("c" & k) = Cells(i, j)

k = k + 1

End If

Next

Application.ScreenUpdating = True

End Sub 

[M_ExceL]

كسي ميتونه كمك كنه
فايل پيوست لطفا ؟؟؟؟؟

سلام،
ضمن تشکر از جناب iranweld ، اگر می خواهید از توابع اکسل استفاده کنید فرمول های زیر رو بصورت ctrl+shift+enter طبق فایل پیوست وارد کنید :
سلول A39 :

=INDEX(INDIRECT("a"&3&":a32"),MATCH(1,--(INDIRECT(ADDRESS(3,MATCH(1,--(B37=A1:R1),0))&":"&MID(ADDRESS(3,MATCH(1,--(B37=A1:R1),0)),1,3) &32)>0),0))

سلول A40 :

=IFERROR(INDEX(INDIRECT("a"&MATCH(A39,$A$1:$A$32,0)+1&":a32"),MATCH(1,--(INDIRECT(MID(ADDRESS(3,MATCH(1,--($B$37=$A$1:$R$1),0)),1,3)&MATCH(A39,$A$1:$A$32,0)+1&":"&MID(ADDRESS(3,MATCH(1,--($B$37=$A$1:$R$1),0)),1,3)&32)>0),0)),"")

سلول B39 :

=INDEX(INDIRECT("B"&3&":B32"),MATCH(1,--(INDIRECT(ADDRESS(3,MATCH(1,--(B37=A1:R1),0))&":"&MID(ADDRESS(3,MATCH(1,--(B37=A1:R1),0)),1,3) &32)>0),0))

سلول B40 :

=IFERROR(INDEX(INDIRECT("b"&MATCH(A39,$A$1:$A$32,0)+1&":b32"),MATCH(1,--(INDIRECT(MID(ADDRESS(3,MATCH(1,--($B$37=$A$1:$R$1),0)),1,3)&MATCH(A39,$A$1:$A$32,0)+1&":"&MID(ADDRESS(3,MATCH(1,--($B$37=$A$1:$R$1),0)),1,3)&32)>0),0)),"")

سلول C39 :

=INDEX(INDIRECT(MID(ADDRESS(3,MATCH(1,--($B$37=$A$1:$R$1),0)),1,3)&3&":"&MID(ADDRESS(3,MATCH(1,--($B$37=$A$1:$R$1),0)),1,3)&32),MATCH(1,--(INDIRECT(ADDRESS(3,MATCH(1,--(B37=A1:R1),0))&":"&MID(ADDRESS(3,MATCH(1,--(B37=A1:R1),0)),1,3) &32)>0),0))

سلول C40 :

=IFERROR(INDEX(INDIRECT(MID(ADDRESS(3,MATCH(1,--($B$37=$A$1:$R$1),0)),1,3)&MATCH(B39,$B$1:$B$32,0)+1&":"&MID(ADDRESS(3,MATCH(1,--($B$37=$A$1:$R$1),0)),1,3)&32),MATCH(1,--(INDIRECT(MID(ADDRESS(3,MATCH(1,--($B$37=$A$1:$R$1),0)),1,3)&MATCH(B39,$B$1:$B$32,0)+1&":"&MID(ADDRESS(3,MATCH(1,--($B$37=$A$1:$R$1),0)),1,3)&32)>0),0)),"")

یا حق.