پرسش کمبو باکس و سرچ

[reza_gh_tak]

چطور بجای تکس باکسم از کمبو باکس استفاده کنم و آدرس اون مثلاً a1:a
کل آدرس ها بهم می ریزه

[mokaram]

کافیه تکست باکس را به کمبو باکس تغییر بدید و کد زیر را در ایونت اینیشیالایز قرار بدید

Private Sub UserForm_Initialize()
ComboBox1.Clear
Dim c As Range
For Each c In Sheet1.Range("a:a")
    If c <> "" Then
        ComboBox1.AddItem c.Value
    End If
Next c
End Sub 

[reza_gh_tak]

کافیه تکست باکس را به کمبو باکس تغییر بدید و کد زیر را در ایونت اینیشیالایز قرار بدید

Private Sub UserForm_Initialize()
ComboBox1.Clear
Dim c As Range
For Each c In Sheet1.Range("a:a")
    If c <> "" Then
        ComboBox1.AddItem c.Value
    End If
Next c
End Sub 

اینکارو کردم خطا داد اگر فایل رو بذارید ممنون می شم

[mokaram]

خدمت شما