مشکل

[barish_n]

باسلام


دوستان تو این مورد :

For i = 1 To tedad_mahsol

Set h = Cells(4 + i, 13)
Set hh = Range(Cells(4, 7), Cells(4 + tedad_mahsol, 6))
Set hhh = Range(Cells(4, 2), Cells(4 + tedad_mahsol, 2))

hhhh = Application.Lookup(h, hh, hhh)
shomare_mahsol2 = Application.WorksheetFunction.Match(hhhh, hhh, 0)
MsgBox shomare_mahsol2
MsgBox hhhh
Next 

ارور type mismatch میده !!! مشکل از کجاست؟

[barish_n]

باسلام


دوستان تو این مورد :

For i = 1 To tedad_mahsol

Set h = Cells(4 + i, 13)
Set hh = Range(Cells(4, 7), Cells(4 + tedad_mahsol, 6))
Set hhh = Range(Cells(4, 2), Cells(4 + tedad_mahsol, 2))

hhhh = Application.Lookup(h, hh, hhh)
shomare_mahsol2 = Application.WorksheetFunction.Match(hhhh, hhh, 0)
MsgBox shomare_mahsol2
MsgBox hhhh
Next 

ارور type mismatch میده !!! مشکل از کجاست؟

دوستان فایل رو ضمینه کردم !! راهنمایی کنید چیکار کنم؟

به اون ترتیبی که باید بگه نمیگه !! همش محصول شماره 3 رو برمیگردونه !

[barish_n]

کسی نیست کمک کنه؟
@iranwel
دوست عزیز قبلا یه شماره داده بو تلگرام از شما سوال میپرسیدم ! الان نیستین !!

[iranweld]

کسی نیست کمک کنه؟
@iranwel
دوست عزیز قبلا یه شماره داده بو تلگرام از شما سوال میپرسیدم ! الان نیستین !!

با سلام

ماکرو ذیل را تست بفرمایید

Private Sub CommandButton1_Click()

z1 = Sheet1.Cells(Sheet1.Rows.Count, "f").End(xlUp).Row

Set Rng = Range("f4:f" & z1)
Set rng1 = Range("b4:b" & z1)


For i = 4 To z1

h = Application.Small(Rng, i - 3)

hh = Application.Index(rng1, Application.Match(h, Rng, 0), 1)

MsgBox "اولويت تحويل :  " & i - 3 & vbNewLine & h & vbNewLine & hh


Next

End Sub