PDA

View Full Version : Copy select data on USERFORM



Uding2014
12-23-2016, 08:01 AM
Please advice how can I copy data to different column on userform see excel file




I appreciate beforehand your attention and time.

Uding

p45cal
12-27-2016, 10:29 AM
Try adding:
DestColms = Array("A", "C", "D", "E", "G", "H", "J", "K", "L")
somewhere early in your CommandButton1_Click routine.

In the same routine, change:
.Cells(Lbcopy, Lbloop + 1) = ListBox2.List(Litem, Lbloop)
to:
.Cells(Lbcopy, DestColms(Lbloop)) = ListBox2.List(Litem, Lbloop)