|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Rusian,
This will put the latest date in column A any time you add or change any
information in B:D:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:D")) Is Nothing Then
Cells(Target.Row, 1) = Now
End If
End Sub
This will put the date in column A the first time you put information into a
row in B:D, but won't change it if you add or change information later in a
row that already has a date in column A.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:D")) Is Nothing And
IsEmpty(Cells(Target.Row, 1)) Then
Cells(Target.Row, 1) = Now
End If
Paste it from here into the sheet module in the VBE.
--
Earl Kiosterud
mvpearl omitthisword at verizon period net
-------------------------------------------
"Ruslan" <Ruslan@discussions.microsoft.com> wrote in message
news:BBBE0C4A-631E-4C52-B9FC-52B2F0DF4957@microsoft.com...
> to make it clear...is it possible to make excel add automatically date in,
> for example, A10 column when I enter information in B10 ?
>
>
>
>
>
> "Ruslan" wrote:
>
> > Hello everyone:
> >
> > In a column A1:A1000...i have to enter each time current Date along with
> > some other information in the following columns (B,C,D...) so within a
day i
> > make about 50 such entries ....is it possible to make it so that it will
> > change the date when I enter any information in, for example
> > B1:B1000...automatically according to the current date in computer?
> >
> > thanks,
|
| |
|
| |
Was this post helpful to you? |
|
|
|
|
|
|
|
 Reply |
| |
 |
|
 Top |
|
|
|
|
|
|
|
|
|
| |
Hi
I have tried the formula from
http://www.mcgimpsey.com/excel/timestamp.html
but it returns a 01/01/1009 type thing and not the date
please explain I am a bit of an amature.
Regards
Pete
"Earl Kiosterud" wrote:
> Rusian,
>
> This will put the latest date in column A any time you add or change any
> information in B:D:
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Not Intersect(Target, Range("B:D")) Is Nothing Then
> Cells(Target.Row, 1) = Now
> End If
> End Sub
>
> This will put the date in column A the first time you put information into a
> row in B:D, but won't change it if you add or change information later in a
> row that already has a date in column A.
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Not Intersect(Target, Range("B:D")) Is Nothing And
> IsEmpty(Cells(Target.Row, 1)) Then
> Cells(Target.Row, 1) = Now
> End If
>
> Paste it from here into the sheet module in the VBE.
> --
> Earl Kiosterud
> mvpearl omitthisword at verizon period net
> -------------------------------------------
>
> "Ruslan" <Ruslan@discussions.microsoft.com> wrote in message
> news:BBBE0C4A-631E-4C52-B9FC-52B2F0DF4957@microsoft.com...
> > to make it clear...is it possible to make excel add automatically date in,
> > for example, A10 column when I enter information in B10 ?
> >
> >
> >
> >
> >
> > "Ruslan" wrote:
> >
> > > Hello everyone:
> > >
> > > In a column A1:A1000...i have to enter each time current Date along with
> > > some other information in the following columns (B,C,D...) so within a
> day i
> > > make about 50 such entries ....is it possible to make it so that it will
> > > change the date when I enter any information in, for example
> > > B1:B1000...automatically according to the current date in computer?
> > >
> > > thanks,
>
>
> |
| |
|
| |
Was this post helpful to you? |
|
|
|
|
|
|
|
Reply |
| |
|
|
Top |
|
|
|
|
|
|
|
|
|
| |
If you meant to type 01/01/1900 then this is a date - 1 Jan 1900
Are you looking for a time? Try formatting the cell with Time
best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email
"pmayne181" <pmayne181@discussions.microsoft.com> wrote in message
news:7530CC1C-A29F-48D6-A56A-EA86D9018EC2@microsoft.com...
> Hi
> I have tried the formula from
> http://www.mcgimpsey.com/excel/timestamp.html
>
> but it returns a 01/01/1009 type thing and not the date
> please explain I am a bit of an amature.
>
> Regards
>
> Pete
>
>
> "Earl Kiosterud" wrote:
>
>> Rusian,
>>
>> This will put the latest date in column A any time you add or change any
>> information in B:D:
>>
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Not Intersect(Target, Range("B:D")) Is Nothing Then
>> Cells(Target.Row, 1) = Now
>> End If
>> End Sub
>>
>> This will put the date in column A the first time you put information
>> into a
>> row in B:D, but won't change it if you add or change information later in
>> a
>> row that already has a date in column A.
>>
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Not Intersect(Target, Range("B:D")) Is Nothing And
>> IsEmpty(Cells(Target.Row, 1)) Then
>> Cells(Target.Row, 1) = Now
>> End If
>>
>> Paste it from here into the sheet module in the VBE.
>> --
>> Earl Kiosterud
>> mvpearl omitthisword at verizon period net
>> -------------------------------------------
>>
>> "Ruslan" <Ruslan@discussions.microsoft.com> wrote in message
>> news:BBBE0C4A-631E-4C52-B9FC-52B2F0DF4957@microsoft.com...
>> > to make it clear...is it possible to make excel add automatically date
>> > in,
>> > for example, A10 column when I enter information in B10 ?
>> >
>> >
>> >
>> >
>> >
>> > "Ruslan" wrote:
>> >
>> > > Hello everyone:
>> > >
>> > > In a column A1:A1000...i have to enter each time current Date along
>> > > with
>> > > some other information in the following columns (B,C,D...) so within
>> > > a
>> day i
>> > > make about 50 such entries ....is it possible to make it so that it
>> > > will
>> > > change the date when I enter any information in, for example
>> > > B1:B1000...automatically according to the current date in computer?
>> > >
>> > > thanks,
>>
>>
>>
|
| |
|
| |
Was this post helpful to you? |
|
|
|
|
|
|
|
Reply |
| |
|
|
Top |
|
|
|
|
|
Question
Answer
Notify me of replies