Writing to A range using a Macro

[sakrams]

Good Afternoon Excel Gurus,


Need your help with a macro please. I have managed to achieve partially what I need, but what I am after is to repeat the same steps for a range selected in a row. A better option would be to give a popup to fill the adjacent cells (60 or 100 cells) or a range manually selected whichever is easy.

Starting point should be the whatever the active cell is. I can copy paste this multiple times in the macro, but looking for a cleaner code.


Please help.

---------------------------------




Sub DDDDXXX()
Selection.Select
ActiveCell.FormulaR1C1 = "D"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "D"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "D"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "D"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "X"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "X"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "X"
End Sub


-------------------

Thanks

 

[My Aswer Is This]

Try this:
Put some value in active cell.
Select the range you want filled in with active cell value.

Sub Fill_In_Please()
ActiveCell.AutoFill Destination:=Selection, Type:=xlFillCopy
End Sub

 

[Norie]

Not totally clear what you want but you could replace the posted code with this.

Sub DDDDXXX()
    ActiveCell.Resize(, 7).Value = Array("D", "D", "D", "D", "X", "X", "X")
End Sub

 

[My Aswer Is This]

Or you can do the same with a MS built in Keyboard command:

1. Select the range you want your value entered into.

2. Enter your value into the activecell
3. Now press Ctrl+Shift+Enter the same value will now be entered into all cells in your section.

 

[sakrams]

Re: Writing to A range using a Macro [SOLVED]

Thank you everyone.