fireman50214
New Member
- Joined
- Sep 7, 2017
- Messages
- 1
I am using an excel spreadsheet as a study tool for a professional exam that I am taking. I have several thousand lines of information basically its a textbook outline. I would like to be able to look at the information and make fill in the blank type questions out of them. This is an example of what I would like to be able to do.
Example A B
George Washington became the first US president at the age of 22.
___________ became the first US president at the age of 22 George Washington
George Washington became the __________ at the age of 22. first US president
George Washington became the first US president at the age of __. 22
To save time I would like to create a macro that will take the highlighted portion that I chose and move it to the next column and place the _______ in the missing spot.
This is what i have. But it is not able to work in other cells of information
Range("E77").Select ActiveCell.FormulaR1C1 = " became the first US president at the age of 22."
Range("F77").Select
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
Range("E77").Select
ActiveCell.FormulaR1C1 = _
"________________ became the first US president at the age of 22."
Range("E77").Select
Example A B
George Washington became the first US president at the age of 22.
___________ became the first US president at the age of 22 George Washington
George Washington became the __________ at the age of 22. first US president
George Washington became the first US president at the age of __. 22
To save time I would like to create a macro that will take the highlighted portion that I chose and move it to the next column and place the _______ in the missing spot.
This is what i have. But it is not able to work in other cells of information
Range("E77").Select ActiveCell.FormulaR1C1 = " became the first US president at the age of 22."
Range("F77").Select
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
Range("E77").Select
ActiveCell.FormulaR1C1 = _
"________________ became the first US president at the age of 22."
Range("E77").Select