Creating a Range Using Variables for row Numbers

[mcgurrgurr]

I am trying to create a code which will select a range and allows me to easily edit the row numbers. I have done the same type of setup with selecting a single cell value, but I am trying to expand this to a group of cells.

When I create variables to define the columns I use the following setup (there is other code, I simply cut out what seemed relevant to show:

Dim Row

Row = "12" 'set to desired row number

Range("A" & Row:"R" & Row).Select


I keep receiving an error message, but I do not understand why. If anyone can help me it would be greatly appreciated!

Thank you!

Pat

 

[Jonmo1]

Welcome to the board...

You almost had it, remember to concatenate back into the string after putting in the variable Row...

Range("A" & Row & ":R" & Row)

Another way

=CELLS(Row, "A").Resize(1,13)


Hope that helps.

 

[mcgurrgurr]

That is brilliant! Thanks so much. I am still getting my head around many of these more intricate details.

If I may I have one other question. I am looking to extend the use of the previous code used into a loop function so it repeats, adding 1 to the row number each time for n (let's say 5 to quantify).


Dim PasteUpdate


Sub_Codename

PasteUpdate = "18"


Range("AA" & PasteUpdate).Select
'ActiveCell.Select
ActiveCell.Offset(ColumnOffset:=1).Activate
Range("AB" & PasteUpdate & ":AH" & PasteUpdate).Select 'fix this

Selection.Copy
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

End Sub



Thanks again! I truly appreciate the help!