a bit difficult to say for sure without having access to this site at the moment but I’d be willing to give it a shot for you. Getting late where I am though so I wouldn’t be able to start until tomorrow but if you’re happy with that then let me know.
I can do that for you. I’ll let you know if I need more details
Hi there. I’m happy to try and do this for you. I’ll drop you a pm for the file 😀
Oh right. It was just the comma that was throwing it off
I think I made changes since the version you downloaded. I've imported the latest userform and it seems ok.
I've also attached the last version of the combo box I made which has more info about how it all works
It's almost certainly overly complicated but it was made for those who didn't want to have to spend ages re-inventing the wheel and just wanted a quick way to have a searcheable combobox.
I have a solution ready for you. Just PM'd you my payment details
I can look at this for you 😀
I can have a look at this for you. If I have Any questions I’ll let you know
I can certainly look at this for you. Could you confirm you have paid 10% to ozgrid?
I'm not really sure what you are asking for. Could you elaborate a bit more and maybe provide some example outputs?
See if this works for youCode
- Sub Macro1()
- Dim d, a, k, i&, s$
- a = ActiveSheet.UsedRange.Value
- If Not IsArray(a) Then Exit Sub
- Set d = CreateObject("Scripting.Dictionary")
- For i = 1 To UBound(a)
- If d.exists(a(i, 1)) Then
- s = d(a(i, 1)) & vbLf & a(i, 3)
- s = a(i, 3)
- End If
- d(a(i, 1)) = s
- Next i
- If d.Count > 0 Then
- i = 0
- ReDim a(1 To d.Count, 1 To 2)
- For Each k In d.keys
- i = i + 1
- a(i, 1) = k
- a(i, 2) = d(k)
- Next k
- With Workbooks.Add.Sheets(1).Range("A1").Resize(UBound(a), UBound(a, 2))
- .Value = a
- End With
- End If
- Set d = Nothing
- Erase a
- End Sub
Does this work for you?
I can take a look for you. I’ll let you know if I have any questions
Payment received. Many thanks
I think I’m done. PM’d you a file
I can look at this for you.
I have your solution ready for you. I've PM'd you my payment details
I can look at this for you
Could you confirm you have paid the 10% to ozgrid?