Control Text Box Data Transfer

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?
 
J

JLGWhiz

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.
 
J

Jacob Skaria

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top