Please see attached sample. I have a massive spreadsheet with these "x" and "o" objects that need to be converted to "no" and "yes" or something that will work in Excel. Anyone have a tip on how to do that? Thanks in advance,
Vitaly
Please see attached sample. I have a massive spreadsheet with these "x" and "o" objects that need to be converted to "no" and "yes" or something that will work in Excel. Anyone have a tip on how to do that? Thanks in advance,
Vitaly
run macro:
![]()
Sub Shap() Dim rngCellsCovered As Range For Each s In ActiveSheet.Shapes With s 'ActiveSheet.Shapes(Application.Caller) Set rngCellsCovered = ActiveSheet.Range(.TopLeftCell, .BottomRightCell) If s.Width = s.Height Then Range(rngCellsCovered.Address).Value = "no" Else Range(rngCellsCovered.Address).Value = "yes" End If End With Next s ActiveSheet.DrawingObjects.Delete End Sub
That's clever. You used the fact that one marker had same width and length and the other one didn't to differentiate them, right?
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks