Using VBA to move a set number of columns

Help,

I am trying to get VBA to go to the end of a column and then go (3) columns over and get the value from that cell and place in another location to set the maximum range on a chart. I can get VBA to do everything but move left or right.

I should have paid more attention in school

Thanks,
Brian

From the Visual Basic Help files:

Offset Property (Range Object)


Returns a Range object that represents a range that’s offset from the specified range. Read-only.

Syntax

expression.Offset(RowOffset, ColumnOffset)

expression Required. An expression that returns a Range object.

RowOffset Optional Variant. The number of rows (positive, negative, or 0 (zero)) by which the range is to be offset. Positive values are offset downward, and negative values are offset upward. The default value is 0.

ColumnOffset Optional Variant. The number of columns (positive, negative, or 0 (zero)) by which the range is to be offset. Positive values are offset to the right, and negative values are offset to the left. The default value is 0.

Offset Property (Range Object) Example

This example activates the cell three columns to the right of and three rows down from the active cell on Sheet1.

Worksheets("Sheet1").Activate
ActiveCell.Offset(rowOffset:=3, columnOffset:=3).Activate

Hope this helps,
theDude

I used the offset function, but still can not get the cells to move horizontally. Vertically is not a problem. Here is the code that I have so far:


Worksheets("AFE Days & Cost").Activate
Range("N6").Select
Selection.End(xlDown).Select
ActiveCell.Offset(RowOffset = 0, ColumnOffset = 3).Activate
Selection.Copy
Range("F29").Select
ActiveSheet.Paste

By changing the RowOfset to any number the selected cell moves accordingly, but the ColumnOffset value has no effect.

Use this EXACTLY as it appears (notice the BOLD code below is different than yours; a small 'r' for rowOffset, a small 'c' for columnOffset, and the ':' before each equal sign):

ActiveCell.Offset(rowOffset:=0, columnOffset:=3).Activate

Hope this helps,
theDude