[حل شده] اکتیو بودن لیست باکس جستجو

[ahmada1983]

سلام
من فایلی برای جستجو از داخل شیت رو از یکی از بخش های سایت پیدا کردم و کدش رو برای فایل خودم تغییر دادم ولی جواب نمی ده چند تا مشکل هست اول اینکه از ستون g که جستجو می کنم اصلا چیزی نمایش نمیده دوم اینکه سلولها از اعداد و حروف کوچیک و بزرگ انگلیسی شامل می شه و باید بصورتی باشه که در جستجو لحاظ بشه
ممنون از همه دوستان و اساتید عزیز

[iranweld]

با سلام

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

در کدهای قبل در صورتی سرچ صورت میگرفت که ورودی تکست باکس برای جستجو ، بصورت تکست باشد که اصلاح گردید.

در فایل پیوست حتی میتوانید حروف یا اعدادی که در بین کدها وجود دارد را وارد نموده و سرچ کنید

[ahmada1983]

با سلام

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

در کدهای قبل در صورتی سرچ صورت میگرفت که ورودی تکست باکس برای جستجو ، بصورت تکست باشد که اصلاح گردید.

در فایل پیوست حتی میتوانید حروف یا اعدادی که در بین کدها وجود دارد را وارد نموده و سرچ کنید

[ATTACH=CONFIG]14030[/ATTACH]

واقعا عالی بود ممنون
اما یه مورد دیگه اینکه امکانش هست بعد از جستجو شیت متناظر با ایتم لیست باکس از شیت مبدا به شیت های دیگه منتقل(cut) بشه و بره در آخرین سطر شیت مقصد بشینه

[ahmada1983]

دوستان از ین کد برای حل مسئله بالا می تونید استفاده کنید
Private Sub CommandButton1_Click()
Dim cell As Range
Dim lastrow As Long
With Sheet3
lastrow1 = Cells(Rows.Count, "a").End(xlUp).Row
End With

For Each cell In Range("a2:a" & lastrow1)
If cell.Value = Val(TextBox4.Text) Then
cell.EntireRow.Copy
Sheet5.Activate
emptyrow = WorksheetFunction.CountA(Range("a:a")) + 1
Cells(emptyrow, 1).Select
Selection.PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheet3.Activate
cell.EntireRow.Delete
TextBox4.Text = ""
Exit Sub
End If
Next
End Sub