VBA for selecting Specific Cells Range in Selected Rows

[excelakos]

Hi everyone! I wish you all the best for 2021! I need to do this. In a table range i select multiple cells in different rows. In example i have selected cells in rows 2,3,5,7,10 inside the table range.
Now i want a macro to first recognize the rows (of the table) of the selected cells and in each of the rows to sellect for me specific cell ranges in example in each row i want the first till the 10th column plus the 15th till 20th column
This means i want to be selected in row 2 the 1st till 10th column cell of this row plus the 15th till 20th column cell of this row
Same for all the other rows 3,5,7,10 or whatever the rows would be

 

[EXCEL MAX]

I was try to understand Fluff's code and your wish, and suppose that you want inversed version.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
   Dim Rng As Range, Sel As Range, vC
  
   vC = Split(Mid(Target.Address, 2, Len(Target.Address) - 1), "$")
   Set Sel = Cells(1, ActiveCell.Column)
   For Each Rng In Selection.Areas
     Set Sel = Union(Sel, Intersect(Rng.EntireColumn, _
     Range(vC(0) & 1 & ":" & vC(0) & 10 & "," _
         & vC(0) & 15 & ":" & vC(0) & 20)))
   Next Rng
   Sel.Select
  
End Sub

 

[EXCEL MAX]

Case you want to select some column with click in some cell...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
   Dim vC

   vC = Split(Target.Address, "$")(1)
   On Error GoTo EX:
   Range(vC & 1 & ":" & vC & Rows.Count).Select
EX:

End Sub

 

[Fluff]

For col R you can use

Sub excelakos()
   Dim Rng As Range, Sel As Range
   
   Set Sel = Range("A" & ActiveCell.Row)
   For Each Rng In Selection.Areas
      Set Sel = Union(Sel, Intersect(Rng.EntireRow, Range("R:R")))
   Next Rng
   Sel.Select
End Sub

 

[excelakos]

For col R you can use

Sub excelakos()
   Dim Rng As Range, Sel As Range
  
   Set Sel = Range("A" & ActiveCell.Row)
   For Each Rng In Selection.Areas
      Set Sel = Union(Sel, Intersect(Rng.EntireRow, Range("R:R")))
   Next Rng
   Sel.Select
End Sub

Thank you once again. It's a pitty i cant apply a 2nd SOLVED...

 

[Fluff]

Glad to help & thanks for the feedback.

 

[EXCEL MAX]

Thanks for this...