Hi Pete, a couple of suggestions.
I believe if your list was growing by adding to the bottom instead of the top, your ComboBox selections would be on the proper order.
Also, because you’re only pasting the values, your entire routine can be written a lot shorter (and more efficiently) if done like so… (The macro recorder’s great in a lot of cases, but it’s not the most efficient of code.)
HalfAces sol'n may have one problem... it assumes that there will be a value for each Quote box. If a value is missing you may find that future data will end up on the wrong row.
The following sol'n determines the row to use once so that all data falls on the same row ... :wink:
Dim QuoteRng As Range
For Each Qvar In Sheets("Quote").Range("E16,E13,G10,E25,G25,E26,G26,E27,G27,E28,G28,E29," _
With Sheets("Saved Quote Details")
Col = Col + 1
If Col = 1 Then
BotRw = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(BotRw, Col).Value = "-"
.Cells(BotRw, Col).Value = Qvar.Value
Yes, I didn't account for any quote boxes being left blank.
Extremely nice Nimrod!
I always like it when your post follows mine. I get to see how I did it, and then how it could be (should've been! ) done. This is better for me than simply seeing the better way right up front. I can make direct correlations from what I did to how you did it and this makes it easier for me to learn better methods.
I hope you know how much I respect & appreciate your continued tutelage.
I sincerely hope it doesn't stop.
Thanks for being so open to my input, but I certainly consider you as important to my education as you seem to think I am for your's. Your posts have instructed me on different and better methods on many occasions .... thx for your contributions and attitude.