View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
TheMilkGuy TheMilkGuy is offline
external usenet poster
 
Posts: 55
Default Copy cell contents with VB

Don,

Thanks for the quick reply, but I'm getting an "Ambiguous name
detected: Worksheet_Change" error.

Any suggestions?

Thanks,
Craig

On Jul 21, 2:52*pm, "Don Guillett" wrote:
Right click sheet tabview codecopy paste this. Now when you change any
cell in a15 or below the value will goto all cells below it to row 25

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a15:a25")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range(Cells(Target.Row, "a"), Cells(25, "a")).Value = Target
Application.EnableEvents = True
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"TheMilkGuy" wrote in message

...

Hi folks. *I should start by saying that I understand VB on a
kindergarten level. *:)


I have a column (A15 to A25) that I would like to repeat the input
from A15 all the way down to A25.


However, if I change the value at A20 I would like that new value to
continue to A25.


Sound do-able? *If so, many many thanks!!


Craig