Help! Need to adjust selection code!

[TabulaRasa]

Hi All,

I need to adjust this bit of code (shown below) to select columns G, AO, and AR not just for the title column (row 7) and a single selected cell's row, but for multiple selected rows.

With ActiveCell
Union(Cells(.Row, "G"), Cells(.Row, "AO"), Cells(.Row, "AR"), Cells(7, "G"), Cells(7, "AO"), Cells(7, "AR")).Select 'select the cells you want

For example, if I had selected a cell in row 37, the code above would select cells 37, G and 37, AO and 37, AR as well as the corresponding cells in row 7.

The problem is that if i were to select multiple cells in multiple rows (say 37, 38, and 40) then it would only return the cells in row 7 and the first of the selected rows (37). What I need is for it to select the cells from row 7, 37, 38, and 40.

I would appreciate any help!

 

[ranman256]

Dim r As Long


r = ActiveCell.Row
Range("G" & r & "," & "AO" & r & "," & "AR" & r).Select

'mutli rows??

 

[Osvaldo Palmeiro]

Try

Sub SelectCells()
 Dim r As Long
  r = Selection.Rows.Count
   With ActiveCell
    Union(Cells(.Row, "G").Resize(r), Cells(.Row, "AO").Resize(r), _
     Cells(.Row, "AR").Resize(r), Cells(7, "G"), Cells(7, "AO"), _
      Cells(7, "AR")).Select 'select the cells you want
   End With
End Sub

 

[TabulaRasa]

Dim r As Long


r = ActiveCell.Row
Range("G" & r & "," & "AO" & r & "," & "AR" & r).Select

'mutli rows??

This does not solve the problem that I had presented. I have the code to select in a single row, it is just the multi row part of the puzzle that I am missing.

 

[TabulaRasa]

Try

Sub SelectCells()
 Dim r As Long
  r = Selection.Rows.Count
   With ActiveCell
    Union(Cells(.Row, "G").Resize(r), Cells(.Row, "AO").Resize(r), _
     Cells(.Row, "AR").Resize(r), Cells(7, "G"), Cells(7, "AO"), _
      Cells(7, "AR")).Select 'select the cells you want
   End With
End Sub

This worked! Thank you!