Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

  • Congratulations waross on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Get selected cells in VBA 1

Status
Not open for further replies.

dkleinot

Civil/Environmental
Oct 22, 2010
7
US
I'm trying to get the cells that are currently selected by the user in VBA. The ActiveModelReferences says that there is somthing selected but ActiveModelReference.GetSelectedElements returns nothing. The cells are named, but that dosent help me since there are hundreds of the same cells, i want the ones that have been selected.
Any help would be greatly appriciated.
Thanks
 
Replies continue below

Recommended for you

dkleinot, try this code and let us know if it helps.


Sub SelectionTest()
Dim ee As ElementEnumerator

If ActiveModelReference.AnyElementsSelected Then
Set ee = ActiveModelReference.GetSelectedElements

If ee Is Nothing Then

Debug.Print "ActiveModelReference.GetSelectedElements returned nothing"

Else

Do While ee.MoveNext

Select Case ee.Current.Type

Case msdElementTypeCellHeader

Debug.Print "Cell Name = " & ee.Current.AsCellElement.Name

Case msdElementTypeSharedCell

Debug.Print "Shared Cell Name = " & ee.Current.AsSharedCellElement.Name

Case Else

Debug.Print "Not a cell - Element Type = " & CStr(ee.Current.Type)

End Select

Loop

End If

Else

Debug.Print "No Elements selected"

End If

End Sub

Training | Consulting | Programming
Facebook: Twitter: Youtube:
 
i was missing the "ee.Current.AsCellElement" part!
Thanks for the help!
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top