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.
Posts by trunten
-
-
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
-
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
-
Hi Bhatti ,
I am going to have to step aside and let another developer pick up the task. I’m not comfortable with being paid by anything other than PayPal so I’m out.Sorry I can’t help you this time
-
I can certainly look at this for you. Could you confirm you have paid 10% to ozgrid?
-
Sorry, didn’t check in the past couple of days but I am quite happy for KjBox to sort you out 😀
-
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 you
Display MoreCode- 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)
- Else
- 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
- .EntireColumn.AutoFit
- .EntireRow.AutoFit
- 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?
