پیدا کردن مقدار مورد نظر در دو ستون مختلف

[امیر رضا دهقان]

سلام این عکسو ببینید میخوام بیام مقادیر ستون A رو دونه بدونه بگردم ببینم در ستون F هست یا نه اگر نیست هیچی اگر هست مقادیر بعدی همان مقدار یعنی ستون G هم در جایی نمایش یا نوشته بشه

بگم این رکوردها حاوی 6000 رکورد هست وقتی دوتا حلقه فورایچ تو در تو میزنم میره تو کما - دوستان راهنمای میکنن ؟

این کدم :

Dim c As Range


For Each c In Sheet2.Range("a2:a6000")


      For Each d In Sheet2.Range("g2:g6000")


      If c.Value = d.Value Then


            c.Offset(0, 10).Value = d.Value
     End If


Next


End If
      Next d

اینم عکس :

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

[حسینعلی]

دوست عزیز از یک فرم وتکست باکس و کامنت استفاده کن و ازیک کد vlookupاستفاده کن وسپس ثبت اون اطلاعات در شیت جداگانه بنام گزارش

[Ali Parsaei]

سلام،
با VLOOKUP راحت مي شود اين کار را انجام داد، البته چون رديفهاتون زياد است شايد فايل سنگين شود.
من زياد VBA بلد نيستم ولي به عنوان تمرين يک کم روي سوالتون کار کردم، يک کد نوشتم که ستون A را دونه دونه مي رود تو ستون F مي گردد و وقتي پيدا کرد مقدار هم ارزش آن در ستون G را روبروي مقدار مورد جستجو در ستون B کپي مي کند. مثلا" اگر A10 را در F50 پيدا کرد G50 تا توي B10 کپي مي کند. البته اگر چيزي پيدا نکند BUG مي دهد! اين تيکه اش را ديگر بلد نبودم درست کنم! احتمالا" دوستان ديگر بتوانند اشکالم را بر طرف کنند، اين هم کد:

Dim C As Range
For Each C In Range("A2:A6000")
Range("F2:F6000").Find(C).Select
C.Offset(0, 1).Value = Selection.Offset(0, 1).Value
Next

[Javid Mokhtari]

با سلام.
استفاده از حلقه برای همچین محدوده ای(6000) اصلا منطقی نیست.بهترین روش استفاده از Find در کد هستش.
نمونه ای در این مورد هستش که اگه بگردین پبدا میکنین.

[امیر رضا دهقان]

با سلام.
استفاده از حلقه برای همچین محدوده ای(6000) اصلا منطقی نیست.بهترین روش استفاده از Find در کد هستش.
نمونه ای در این مورد هستش که اگه بگردین پبدا میکنین.

میشه یه نمونه بزارید ؟

[امیر رضا دهقان]

هنوز به راه حل مناسبی نرسیدم

[Javid Mokhtari]

میشه یه نمونه بزارید ؟

یه سر به پست زیر بزنید ...

http://forum.exceliran.com/showthrea...%D8%AF-!%D8%9F