پرسش مطابقت عدد مورد نظر با شرح اسناد صادره

[jeddi]

با سلام و عرض ادب و خدا قوت به همه دوستان و اساتید عزیز
دوستان یه موردی برای من پیش آمده که توضیحات لازم را فایل ضمیمه دادم خواهشمندم اینجانب را یاری فرمائید
در واقع خلاصه مطلب بدین صورت می باشد از دوستان می خوام CommandButton ای ایجاد بشه بدین صورت ک تک تک شماره های منحصر به فرد ستون c را با شرح اسناد ستون b مطابقت داده بشه در صورتی که شماره های ستون c در شرح اسناد ستون b وجود داشته باشد خانه عدد ستون c رنگی بشه در غیر این صورت سفید باقی بماند. با تشکر و سپاس

[iranweld]

با سلام

فایل پیوست با کاندیشنال فرمتینگ تهیه گردیده است

[jeddi]

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

[iranweld]

لطفا یک نمونه را توضیح دهید که این شماره منحصر بفرد چگونه تشخیص داده میشود

[jeddi]

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

[iranweld]

با سلام

جواب دو مورد در تصویر پیوست درسته ؟

[jeddi]

تو تصاویر فوق سه مورد باید شناسایی می شد که در تصویر زیر نشان دادم تو تصویر بعدی که ضمیمه شده جستجو فقط از طریق شماره منحصر به فرد صورت گیرد نه شرح اسناد مرسی از اینکه وقت گذاشتید

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید.

Sub TEST()

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

Range("c3:d" & z1).Interior.ColorIndex = 0

Range("d3:d" & z1).ClearContents

For i = 3 To z1

For j = 3 To z1

xx = InStr(Range("b" & j), "-")

If IsError(xx) Then xx = 1

If InStr(xx, Range("b" & j), Range("c" & i)) > 0 Then

Range("c" & i).Interior.ColorIndex = 4

Range("d" & j) = Range("c" & i)

Range("d" & j).Interior.ColorIndex = 6

Exit For

Else
Range("c" & i).Interior.ColorIndex = 0

End If

Next
Next

End Sub 

[jeddi]

مرسی دوست عزیز فوق العاده بود

تشکر می کنم تا باشد یادم که دوستی دارم به اندازه یک کوه