D_Rennie
06-25-2009, 05:55 AM
Hello everyone.
I guess you would say im at the newborn stage of understand VB. Ive done a few projects now. The current one that im working on is prity much a knock off of the contacts used in Axcess. Its like a learning experiance for me.
There are a few issues with it that i hope someone will work with me on.
1 (module matchsearch) Being new to doing loops, i have the loop all screwed up.
2. (module Makecblist) To see how it should work remove
Dim a, e, w()
a = rSource
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each e In a
If e <> "" Then
If Not .exists(e) Then
.Item(e) = VBA.Array(e, "(1)")
Else
w = .Item(e)
w(1) = "(" & Replace(Replace(w(1), "(", ""), ")", "") + 1 & ")"
.Item(e) = w
End If
End If
Next
Combobox_List_Search.ComboBox1.List = _
Application.Transpose(Application.Transpose(.Items))
End With From the module and insert some things into column A, And type into combobox1.
Though i would like to remove duplicates from the list and this is where im having trouble.
Thankyou in advance.
lve also asked the same thing at
excelforum
I guess you would say im at the newborn stage of understand VB. Ive done a few projects now. The current one that im working on is prity much a knock off of the contacts used in Axcess. Its like a learning experiance for me.
There are a few issues with it that i hope someone will work with me on.
1 (module matchsearch) Being new to doing loops, i have the loop all screwed up.
2. (module Makecblist) To see how it should work remove
Dim a, e, w()
a = rSource
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each e In a
If e <> "" Then
If Not .exists(e) Then
.Item(e) = VBA.Array(e, "(1)")
Else
w = .Item(e)
w(1) = "(" & Replace(Replace(w(1), "(", ""), ")", "") + 1 & ")"
.Item(e) = w
End If
End If
Next
Combobox_List_Search.ComboBox1.List = _
Application.Transpose(Application.Transpose(.Items))
End With From the module and insert some things into column A, And type into combobox1.
Though i would like to remove duplicates from the list and this is where im having trouble.
Thankyou in advance.
lve also asked the same thing at
excelforum