Control Text Box Data Transfer

  • Thread starter Thread starter Ryan Hicks
  • Start date Start date
R

Ryan Hicks

I have copied and pasted from a website with a list of fuel used that were
entered by the user. When copied to excel, all entry boxes turned to control
text boxes. If there a macro to transfer the contents of the box to their
respective adjacent cell?
 
You could play around with the TopLeftCell property but my personal
preference is to designate a range of cells that I want to use and the make
explicit value assignments to those cells for the value of the text boxes.
Maybe someone else has a better way, but if there is any adding or deleting
of rows and columns, The TopLeftCell property is not very stable.
 
You could also try

Sub Macro()
For Each obj In ActiveSheet.DrawingObjects
intTemp = intTemp + 1
Range("A" & intTemp) = obj.Object.Text
Next
End Sub

If this post helps click Yes
 
Back
Top