سلام
من یک ماکرو ضبط و ویرایش کردم که وقتی مثلا چیزی در سلول d2 مینویسم رو در ستون d2 پیدا کنه
چند تا ستون دارم مثل شماره فاکتور ، ردیف ، تاریخ ، تعداد ، توضییحات و غیره که همین کد رو برای همشون نوشتم
ولی مشکلی که داره این کد فقط عین همونی که در سلول d2 هست رو میاره من میخوام بعد از اجرای اون کد ، کدی هم باشه که مشابهش رو هم بیاره
مثلا 12 نوشتم اولین بار که روی دکمه کلیک میکنم 12 رو بیاره و دومین بار که کلیک میکنم 120 رو بیاره و الی آخر
یا مثلا در قسمت توضییحات نوشته شده "فروش 5000 عدد خودکار به آقای علی نیکو" من دیگه نیکو رو بزنم این رو بیاره یا 5000 رو بزنم به ترتیب اونایی که داخلشون 5000 هست رو بیاره
مشکل دوم هم این هست که در بعضی از ستون ها خود سلول جست و جو رو میاره یعنی مثلا تو d2 بزنم 200 به جای اینکه شماره فاکتور 200 رو بیاره خود سلول d2 رو میاره کدی میخواستم که این مشکل رو برطرف کنه و مثلا از d5 به پایین شروع کنه به جست و جو (البته بعضی از ستون ها چنین مشکلی رو ندارن)
من یک ماکرو ضبط و ویرایش کردم که وقتی مثلا چیزی در سلول d2 مینویسم رو در ستون d2 پیدا کنه
کد HTML:
Sub Find_D()
'
' Find_D Macro
'
'
On Error Resume Next
Cells.Find(What:=[d2], After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.EntireRow.Select
End Sub
چند تا ستون دارم مثل شماره فاکتور ، ردیف ، تاریخ ، تعداد ، توضییحات و غیره که همین کد رو برای همشون نوشتم
ولی مشکلی که داره این کد فقط عین همونی که در سلول d2 هست رو میاره من میخوام بعد از اجرای اون کد ، کدی هم باشه که مشابهش رو هم بیاره
مثلا 12 نوشتم اولین بار که روی دکمه کلیک میکنم 12 رو بیاره و دومین بار که کلیک میکنم 120 رو بیاره و الی آخر
یا مثلا در قسمت توضییحات نوشته شده "فروش 5000 عدد خودکار به آقای علی نیکو" من دیگه نیکو رو بزنم این رو بیاره یا 5000 رو بزنم به ترتیب اونایی که داخلشون 5000 هست رو بیاره
مشکل دوم هم این هست که در بعضی از ستون ها خود سلول جست و جو رو میاره یعنی مثلا تو d2 بزنم 200 به جای اینکه شماره فاکتور 200 رو بیاره خود سلول d2 رو میاره کدی میخواستم که این مشکل رو برطرف کنه و مثلا از d5 به پایین شروع کنه به جست و جو (البته بعضی از ستون ها چنین مشکلی رو ندارن)
کامنت