با سلام
ماکرویی برای شما تهیه گردید که custem list را برای شما محدودتر مینماید ابتدا در سلول E4 ابتدای دیتای مورد نظر را وارد کنید سپس از DROPDOWN LIST دیتاهایی که حروف ابتدایی آنها با حروف تایپ شده در سلول E4 یکسان است ،لیست میگردد
کد PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("D3")) Is Nothing Then test
End Sub
Sub test()
Dim CELL, RNG As Range
Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
Z2 = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row
K = 1
Sheet2.Range("A1:A" & Z2).ClearContents
Set RNG = Sheet1.Range("A1:A" & Z1)
x = Sheet1.Range("D3")
For Each CELL In RNG
If Left(LCase(CELL), Len(x)) = LCase(x) And Len(x) >= 1 Then
Sheet2.Range("A" & K) = CELL
K = K + 1
End If
Next
End Sub
علاقه مندی ها (Bookmarks)