How to do it on excel?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Eric - 17 Nov 2007 04:32 GMT

Private Sub Worksheet_Change(ByVal Target As Range)
Set r = Range("A1:C1")
If Intersect(r, Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
r.Value = Target.Value
Application.EnableEvents = True
End Sub

I would like to target on specific cells rather than range.
Could anyone tell me how to modify Range("A1:C1") into different cells? such
as A13, A67, A100.
Thank everyone for any suggestions
Eric

Reply to this Message

OssieMac - 17 Nov 2007 04:51 GMT

Hi Eric,

Set r = Union(Cells(13, 1), Cells(67, 1), Cells(100, 1))

or

Set r = Union(Range("A13"), Range("A67"), Range("A100"))

or

Set r = Union(Range("A13:A15"), Range("A67:A70"), Range("A100"))

Signature

Regards,

OssieMac

> Private Sub Worksheet_Change(ByVal Target As Range)
> Set r = Range("A1:C1")
[quoted text clipped - 9 lines]
> Thank everyone for any suggestions
> Eric

Reply to this Message