Ed
PS:
Ofcourse I have other columns to the right, but the 1st 3 cells on a
new line usually repeat, unless its a new contract No.)
If (a1<>"",a1,"")
Instead of the first 'a1' you could point it to one of the data cells to the
right and then it would only fill in the next line if you started to enter
other data.
"Edward S" <soar...@qatar.net.qa> wrote in message
news:57703a81.03061...@posting.google.com...
From what you describe you want an Event macro, which are
described on and has installation instructions
http://www.mvps.org/dmcritchie/excel/event.htm
However, I will provide what you need below. As you can see
Event macros are installed differently.
Right-click on worksheet tab, view code, plop this code in,
there should only be a single Option Explicit statement and
you should already have it upon view code..
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 3 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
If Not IsEmpty(Target) Then Exit Sub
Application.EnableEvents = False 'should be part of Change macro
Target.Value = Target.Offset(-1, 0).Value
Target.Offset(0, 1).Value = Target.Offset(-1, 1).Value
Target.Offset(0, 2).Value = Target.Offset(-1, 2).Value
Application.EnableEvents = True 'should be part of Change macro
End Sub
If you have formulas in any of those three cells you might want to
take a look at the insrtrow.htm page, because you can't just
change .value to .formula in the above..
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm
"Edward S" <soar...@qatar.net.qa> wrote in message news:57703a81.03061...@posting.google.com...
Thanks Dave it helped
Edward