[حل شده] کد وی بی برای فایند و ریپلیس

[صادق صادقیان]

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

[صادق صادقیان]

سلام
دوستان لطفا پاسخ دهند

[M_ExceL]

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

سلام،
هدفتون از اینکار چی هست؟ ماکرویی که ذخیره می کنید می بایست چه کاری انجام دهد؟

[صادق صادقیان]

هدف که ساکت کردن کارفرماست
دسترسی سریع تر
در خود شیت میخواهم دسترسی سریع تر باشه
یعنی اون کد را برای یک باتوم میخواهم قرار بدهم

[iranweld]

با سلام

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

Private Sub CommandButton1_Click()
Worksheets("Sheet1").UsedRange.Replace _ What:=TextBox1, Replacement:=TextBox2, _ SearchOrder:=xlByColumns, MatchCase:=True
End Sub 

[صادق صادقیان]

سلام وقت بخیر
این درست است ولی در همه شیت داره فایند و ریپلیس رو انجام میده باید فقط در یتون انتخابی این عمل رو انجام بدهد

[iranweld]

سلام وقت بخیر
این درست است ولی در همه شیت داره فایند و ریپلیس رو انجام میده باید فقط در یتون انتخابی این عمل رو انجام بدهد

این کدها را جایگزین کنید

Private Sub CommandButton1_Click()

ActiveSheet.Columns(ActiveCell.Column).Replace _ What:=TextBox1, Replacement:=TextBox2, _ SearchOrder:=xlByColumns, MatchCase:=True

End Sub 

[iranweld]

این کدها را جایگزین کنید

Private Sub CommandButton1_Click()

ActiveSheet.Columns(ActiveCell.Column).Replace _ What:=TextBox1, Replacement:=TextBox2, _ SearchOrder:=xlByColumns, MatchCase:=True

End Sub 

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