writing the data containing in the text boxes in another coloumn?

[macrogeek]

writing the data present in the text boxes(say 20 of them) present in excel sheet in a coloumn using macros?

[TMS]

Form Control text boxes, ActiveX text boxes, text boxes on a User Defined Form ... what?

Please post a sample workbook.

Regards

[macrogeek]

suppose we have text boxes like the rounded shapes(buttons) in the excel sheet, we have to select each and extact its content to a coloumn

[TMS]

I have no plans to create a workbook, populate it with text boxes and then work up some code to put the contents in an arbitrary column.

Please post a sample workbook and define exactly what you want to happen.

Regards

[macrogeek]

i have made a model for a cabinet, i have to make 134 as such so i have made the model using buttons(rounded rectangles) i have put some specific information on it. now what i want is a macro that will extract that information to a coloumn. this is the first step please make it possible so that i may go furthr

[TMS]

Try this to get you going:

Sub Test()

Dim shp As Shape
Dim i As Long: i = 0
For Each shp In Sheets("Cab Temp").Shapes
    'Debug.Print shp.Name
    'Debug.Print shp.AlternativeText
    i = i + 1
    Range("G" & i).Value = shp.Name & " | " & shp.AlternativeText
Next

End Sub

There's stuff you're not going to want but you can test for that and ignore it.

Regards

[macrogeek]

Respected Sir,
Perfect! half battle won! I wanted the data only in a column but what u did can take my work furter thanks very much!

[TMS]

You're welcome.

If this has answered your question, please mark your thread as solved. See my signature for details or the FAQ.

Regards