Input Box selects a cell location to use in code
This is one way:
firstCol = Application.InputBox("Enter First Column Number", "First Column",
Type:=1)
scndCol = Application.InputBox("Enter Second Column Number", "Second
Column", Type:=1)
ActiveCell.FormulaR1C1 = "=TRIM(RC[firstCol])&RC[scndCol]"
"Archie" wrote:
I have the following simple code:
ActiveCell.FormulaR1C1 = "=TRIM(RC[5])&RC[11]"
eg above concatenates the cells 5 & 11 columns along.
What I want is for the user, by way of an input box, to be able to choose
the columns, say 2 & 6.
Can anyone help with this please?
|