edit offset

[ndendrinos]

starting in column A this activates A:F on the same row.

Range(ActiveCell, ActiveCell.Offset(0, 5)).Activate

need to modify to activate ONLY columns A,D,E&F

 

[jim may]

Don't you to select versus activate?

 

[Andrew Poulsom]

One way:

Union(ActiveCell, ActiveCell.Offset(0, 3).Resize(, 3)).Select

 

[ndendrinos]

Jim: Lately I select (secretly) for every time I publish on this forum the word "select" I get heck for it.
Andrew your solution is correct but now I need to precede it with more.
That is: go up one row and three cells to the left.
so it will be the equivalent of:

from active cell go up one row and three cells to the left Range(ActiveCell, ActiveCell.Offset(0, 5)).Activate

Many thanks

Hold on all ... I think I can do this on my own ...

 

[jim may]

Using the Macro Recorder..

Sub Macro2()
'
' Macro2 Macro
'

'
    ActiveCell.Range("A1,D1,E1,F1").Select
    ActiveCell.Offset(0, 5).Range("A1").Activate
    ActiveCell.Offset(0, -5).Range("A1").Activate
End Sub

 

[ndendrinos]

Jim: Lately I select (secretly) for every time I publish on this forum the word "select" I get heck for it so I don't, I guess I should have this time
.
Andrew your solution is correct but now I need to precede it with more.

That is: go up one row and three cells to the left.
so it will be the equivalent of:

from active cell go up one row and three cells to the left Range(ActiveCell, ActiveCell.Offset(0, 5)).Activate

This is what needs to be done:


.............A.............B................C..............D...............E...............F
1...........2............3.................4..............Apple.......$1.00.............
2..........................................................activecell
3
4
From active cell in row2 column D I need to go up to row1 and select A,D,E (that is 2,Apple,$1.00)

The code is not specific to any particular row.... should work on any given row
thank you

 

[jim may]

Sub Macro2()
'
' Macro2 Macro
'

'
    
    ActiveCell.Offset(-1, -3).Range("A1").Activate
    ActiveCell.Range("A1,D1,E1").Select

End Sub

 

[ndendrinos]

Got it

Sub test2()

    ActiveCell.Offset(-1, -3).Range("A1").Activate
    ActiveCell.Range("A1,D1,E1,F1").Select
    ActiveCell.Offset(0, 5).Range("A1").Activate
    ActiveCell.Offset(0, -5).Range("A1").Activate
End Sub

Thank you both and please if there is an easier way let us all know

 

[ndendrinos]

Should have waited for you Jim ... much easier.
Many thanks and have a good day

 

[jim may]

Still Shorter (less lines of code)....

Sub Macro2()
    
    With ActiveCell
        .Offset(-1, -3).Range("A1").Range("A1,D1,E1,F1").Select
    End With
End Sub