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

[bnyamin]

سلام وقت بخیر
بفرض در ستون a دارای متن هستیم
حالا میخواهیم با فشردن یک دکمه؛ یک کادر و یا جعبه برای ما باز گردد و ما عبارتی را در آن یادداشت کنیم و اون عبارت را برای ما در ستون a جستجو و فیلتر نماید و مثلا در روبروی همون سلول مثلا در ستون b پیست نماید .
مثلا اگر a20 a35a66 جواب ما در حالت فیلتر بود (بعد از فیلتر ) ؛همان جوابها در سلول متناظر در b20 b35 b66 و ... درج گردد (پیست گردد)

[bnyamin]

دوستان لطفا راهنمایی فرمایند

[M_ExceL]

سلام وقت بخیر
بفرض در ستون a دارای متن هستیم
حالا میخواهیم با فشردن یک دکمه؛ یک کادر و یا جعبه برای ما باز گردد و ما عبارتی را در آن یادداشت کنیم و اون عبارت را برای ما در ستون a جستجو و فیلتر نماید و مثلا در روبروی همون سلول مثلا در ستون b پیست نماید .
مثلا اگر a20 a35a66 جواب ما در حالت فیلتر بود (بعد از فیلتر ) ؛همان جوابها در سلول متناظر در b20 b35 b66 و ... درج گردد (پیست گردد)

سلام،
فایل پیوست را بررسی نمایید
توضیح :
ابتدا ماکرو را فعال کنید
کلید های ترکیبی Shift+z را فشار دهید تا فرم مربوطه باز شود
در فرم باز شده متن مورد نظر را وارد کرده سپس کلید Enter را فشار دهید

[bnyamin]

سلام با تشکر از لطفتون
بنده از قسمت دیویلوپر ؛ ماکروهایی را که شما نوشته اید را اجرا میکنم. درسته ؟؟؟
ولی دوتاموضوع :
1- چرا در فایلی که ارسال کرده اید دوتا ماکرو وجود دارد ؟ در صورتی که همون اولی را اجرا میکنیم ؛ نتیجه مطلوب است (البته با ملاحظه ای که در پایین درج خواهم کرد )
2- فقط مشکلی که وجود دارد این است که در کدی که شما زحمت کشیده اید ؛ باید عین یک عبارت یک سلول در کادری که ظاهر میگرد باید درج کنیم در صورتی که درخواست بنده بخشی از اون عبارت است بدین معنی که باید در هر سلول نه تمام عبارت و بلکه اگر بخشی از عبارت وجود داشته باشد اون سلول تحت فیلتر قرار گیرد و متعاقبا تمام ان سلول در قسمت متناظر ان درج گردد

هرستون یک کتاب است و هر سلول در اون ستون پاراگرافهای مختلف کتاب و برخی از اطلاعات کتاب
مثلا نوشته عنوان کتاب را با شماره صفحه که در اون متعاقبا شماره صفحه متغییر است مثلا عبارت این گونه است : "بدیع القرآن، ص: 2 " که ما در اصل میخواهیم فقط "بدیع القرآن، ص: " را جستجو نماییم . و در ستون b کل عبارت بدیع القرآن، ص: 2 را درج نماید.

[M_ExceL]

سلام با تشکر از لطفتون
بنده از قسمت دیویلوپر ؛ ماکروهایی را که شما نوشته اید را اجرا میکنم. درسته ؟؟؟
ولی دوتاموضوع :
1- چرا در فایلی که ارسال کرده اید دوتا ماکرو وجود دارد ؟ در صورتی که همون اولی را اجرا میکنیم ؛ نتیجه مطلوب است (البته با ملاحظه ای که در پایین درج خواهم کرد )
2- فقط مشکلی که وجود دارد این است که در کدی که شما زحمت کشیده اید ؛ باید عین یک عبارت یک سلول در کادری که ظاهر میگرد باید درج کنیم در صورتی که درخواست بنده بخشی از اون عبارت است بدین معنی که باید در هر سلول نه تمام عبارت و بلکه اگر بخشی از عبارت وجود داشته باشد اون سلول تحت فیلتر قرار گیرد و متعاقبا تمام ان سلول در قسمت متناظر ان درج گردد

هرستون یک کتاب است و هر سلول در اون ستون پاراگرافهای مختلف کتاب و برخی از اطلاعات کتاب
مثلا نوشته عنوان کتاب را با شماره صفحه که در اون متعاقبا شماره صفحه متغییر است مثلا عبارت این گونه است : "بدیع القرآن، ص: 2 " که ما در اصل میخواهیم فقط "بدیع القرآن، ص: " را جستجو نماییم . و در ستون b کل عبارت بدیع القرآن، ص: 2 را درج نماید.

سلام
موردی که گفتید اصلاح گردید
توضیحات :
با فشار دادن کلید های ترکیبی shift+z کد زیر اجرا می شود :

Sub M_1()

ActiveSheet.AutoFilterMode = False
UserForm1.Enabled = True
UserForm1.Show
UserForm1.TextBox1.Text = ""

End Sub

وقتی اینتر کنید یا روی فیلتر کلیک کنید کد زیر اجرا میشه :

Sub M_2()

Dim A() As String
c = 1
If UserForm1.TextBox1.Text <> Empty Then
For i = 1 To Cells(Rows.Count, 1).End(3).Row
    If Cells(i, 1) Like "*" & UserForm1.TextBox1.Text & "*" Then
        ReDim Preserve A(1 To c)
        A(c) = Cells(i, 1)
        c = c + 1
        Cells(i, 2) = Cells(i, 1)
    End If
Next
ActiveSheet.AutoFilterMode = False
If c > 1 Then
    Range("a1:a" & Cells(Rows.Count, 1).End(3).Row).AutoFilter 1, A, xlFilterValues
End If
Application.Wait (Now + TimeValue("0:00:01"))
UserForm1.Hide
UserForm1.Enabled = False
End If
End Sub

برای تعریف کلید میانبر جهت نمایش فرم کد زیر قرار داده شده است (shift+z) :

Private Sub Workbook_Open()
Application.OnKey "+{Z}", "M_1"
End Sub

[bnyamin]

با تشکر بسیار عالی