Selecting a Range of Cells Relative to the Current Cell

Thank you Sir

Thanks a lot !!!!!!!!!

@Nicholas

In Excell VBA cell references are enter a text values so do not adjust if rows or columns are added tk the worksheet. To get around this name the cell, E10, and use the name instead od the cell reference in the macro. If you Name cell E10 as "TargetCell' then macro becomes:
Set Target = Range("TargetCell")

Hello,

My question is I have set up a Macro that has a very specific Target Range (see below). A large portion of my workbook such as different tabs is based on the value in this specific cell. This is great until someone adds a column or row and then the whole workbook doesn't work b/c the macro is pulling from that "Target range," but the value I want to base the rest of the workbook on is now 1 cell moved. Is there a way to make the Target.Range change with the workbook. Kinda the same way an equation changes to keep the right cells if a row or column is added.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Set Target = Range("E10")
If Target.Value = "1" Then
Call One
End If
If Target.Value = "2" Then
Call Unhide
Call Two
End If

@Faizan,

Sorry the offset should be -9 for the last nine cells,
If you want the nine cells below the last entry in column A use:

With Worksheets("NCD Margins - Comp").Range("A" & Rows.Count).End(xlUp)
.Range(.Offset(1), Offsett(9)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With

@Faizan

Your code only specifies a single cell, "Worksheets("NCD Margins - Comp").Range("A" & Rows.Count).End(xlUp).Offset(9)." is not a range.
Assuming you want to paste into the last 9 cells of column A the following code should work for you:

With Worksheets("NCD Margins - Comp").Range("A" & Rows.Count)
.Range(.End(xlUp), .End(xlUp).Offset(9)).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With

It also has a potential problem if the "Worksheets("NCD Margins - Comp").Range("A" & Rows.Count).End(xlUp)." ends in row 9 or less.

Hello,

I am trying to paste the copied value to multiple cells (in a list style) from 1 to 9 but the following code only paste the value into one cell.

Please can you help me fix this code to achieve what I like it do..

Thanks

Worksheets("NCD-Copy").Range("D31").Copy
Worksheets("NCD Margins - Comp").Range("A" & Rows.Count).End(xlUp).Offset(9).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

@Jane

This worked OK for me provided the range "Test" was not within 3 rows of the top of the worksheet. This is because an offset of -3 would be beyond the bounds of the worksheet and so produces an error.

This error will occur at any of the boundaries of the worksheet but more commonly with offsets that resolve to a column left of Column A, and as in the case above to a row above Row 1. Most spreadsheet Users rarely use cells near the bottom edge or right-hand edge of a worksheet.

What if you wanted to select a range of cells relative to a named range "Test"

Range(Range("Test").Offset(-3, 5), Range("Test").Offset(0, 10)).Select
do not seems to work

Hi Barry,
I find Selection, ActiveCell, ActiveSheet and the such very useful in the first instance to refer to the thing currently “active”. ( For example to determine what someone may have selected as “where” something should go).
But I totally agree that in many cases it is a good idea to assign that “active” thing to a variable as soon as possible, after which refer to that rather than further using a reference to the “active” thing
I always prefer to do as you suggest.

Another reason for doing this is to be using specifically a Range object, or a property thereof.
I had a lot of discussions recently about whether or not we actually have a Cells(row, column) Property at all.
Cells returns a Range object of all the cells of the object to which it applies. Then we typically are using the Range object Property on that returned Range object.
So Cells(row, column) relies on implicit defaults etc to actually use the Range object Item Property on the returned Range object from the Cells Property
I got into some heated discussions with many experts who had split opinions about that.
So getting at an early stage to a Range object helped me circumvent all that .. lol.. – Everyone agreed then that I was working after that on a Range object. :)
Alan

I am not in favour of using the Selection object as it is poor programming practice, and especially not moving it as it can confuse the User, and it can cause run-time errors. There are a few exceptions to this naturally.

Note: using the Selection object implies the top left cell for functions/methods that only require a single cell; more often than not this is also the Activecell but is is not necessarily the case. [Try selecting a range of cells on a worksheet then press the Tab key to see the Activecell move but the Selection remains the same.]

If you actually want to reference a range relative to the currently selected cell(s) then I would use the following:

Set rng = Selection.Offset(3,4) 'Note this preserves the range of cells if multiple cells are selected.

Use "Set rng = Selection.Range("A1").Offset(3,4) ' if you only want to reference a single cell relative the to the top left cell of the selection.

then in subsequent code use the 'rng' object instead of the 'Selection' object.

NOTE: if Option Explicit is used (highly recommended) then 'rng' will need to be defined using a DIM statement.

Hi Allen you are to the point and your explanation is simple. After a lot of search I found your tip. And my problem is solved