Even though you're an Aussie I will try to help <bg
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A1:A1000")) Is Nothing Then
With Target
.Offset(0, 1).Value = Time
.EntireRow.AutoFill .EntireRow.Resize(2)
.Offset(1, 0).ClearContents
Application.CutCopyMode = False
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub
'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.
--
HTH
Bob Phillips
"AussieAVguy" wrote in message
...
Hi there,
I'm not too good with the whole VBA programming so I need some help to
create a macro.
What I need is a macro triggered by an event.
If I enter a value in a cell in col A I want the macro to automaticlly
enter
the current time in Col B of the same row using the Now () function.
This is for an audio recording log sheet. I enter the microphone number
that a person speaks from and the time is automaticlly filled in in the
cell
next to it. I can then do a VLOOKUP to get the persons name etc.
I'd also like to create a macro that copies the formulas from the current
row to the row below so that I don't have a log sheet 10 pages long when I
only have 5 pages of data entered.
Thanks for any help clever people
|