Setting target address

[Dryver14]

in a response to an earlier question the answer was to say that the if target address was <> $E$5 then........

can you not say target address =

Not trying to be funny, this address issue is somehow eluding me.

 

[Blade Hunter]

You could say

if target.address <> "$E$5" then
    Range("YourNewCell").Value = Target.value
    Target.clearcontents
end if

 

[Dryver14]

so when you initially start a worksheet change event

lets say i want it only to act on

well if you could, could I have 2 examples.

A5

and

A:A

I would appreciate it very much.

Thanks in advance

 

[Blade Hunter]

if target.address <> "$E$5" then
    Range("A5").Value = Target.value
    Target.clearcontents
end if

if target.address <> "$E$5" then
    Range("A:A").Value = Target.value
    Target.clearcontents
end if

Or do you mean you only want it invoked when an entry is made in A?

 

[Dryver14]

yes blade I'm sorry for confusing you, $E$5 was in someone elses question which provoked mine.

I just want to know how to initially set a target address to anything and would appreciate an example of a singe cell and a range please.

 

[Blade Hunter]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'If Target.Address <> "$A$2" Then 'Use this to monitor a cell
If Target.Column = 1 Then 'Use this to monitor a column
    Range("B1").Value = Target.Value 'This is the cell that will be updated instead (but really it just copies)
    Target.ClearContents 'Clear the entry from the original target
End If
Application.EnableEvents = True
End Sub

Uncomment whichever one you need, the first one monitors a cell, the second a column (Column 1 being Column A)

Edit: Updated to stop infinate loop

 

[Dryver14]

Thanks Blade I really appreciate it.

My understanding is this.

The target is not something I set it is whatever is keyed on the sheet by the operator and it is up to me to direct their input to the response I would like but i can say if it is not something (cell or range) then do nothiing.