محدودیت در استفاده از custom list برای sort کردن

[eric]

سلام دوستان لطفا راهنماییم کنید .میخوام در custom list یک لیست درست کنم تا از این به بعد در هنگام sort کردن یک ستون مرتب سازی بر اساس همین لیستی که در custom list درست کردم انجام شود ولی طبق فایلی که پیوست کردم ستون من حدود 800 ردیف است و وقتی میخوام در custom list این ستون را import کنم تا ردیف 254 بیشتر قبول نمیکه میخواستم بدونم میشه این محدودیت را در import کردن یک ستون در قسنت custom list از بین برد یا نه. باتشکر

[iranweld]

با سلام

ماکرویی برای شما تهیه گردید که custem list را برای شما محدودتر مینماید ابتدا در سلول E4 ابتدای دیتای مورد نظر را وارد کنید سپس از DROPDOWN LIST دیتاهایی که حروف ابتدایی آنها با حروف تایپ شده در سلول E4 یکسان است ،لیست میگردد

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 

[eric]

سلام ممنون از ماکرویی که برام گذاشتید ولی من میخوام اون ستونی را که در فایل پیوست گذاشتم را در custom list بیاورم تا از این به بعد بر اساس این لیست sort کردن صورت گیرد:

File options Advanced Edit Custom list