Hi
I have recently asked a similar question but having thought about it
there may be an easier solution to what i want. I have a worksheet
where rows of data are added daily. The data goes to column H
inclusive. I would like to add todays date to column "I" when data is
added. So I was guessing it might be possible to create a macro to add
that days date based on the fact that if Column "I" is blank down as
far as there is data in column H. This would then build up a new
column "Date data added".

Can anyone help me with code for this?

Much appreciated

Eddie

one way. Didn't test
lri=cells(rows.count,"i").end(xlup).row+1
lrh=cells(rows.count,"h").end(xlup).row
range(cells(lri,"i"),cells(lrh,"i")=date

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"mikerobe" <(E-Mail Removed)> wrote in message
news:238f4b4f-e969-404d-abf5-(E-Mail Removed)...
> Hi
> I have recently asked a similar question but having thought about it
> there may be an easier solution to what i want. I have a worksheet
> where rows of data are added daily. The data goes to column H
> inclusive. I would like to add todays date to column "I" when data is
> added. So I was guessing it might be possible to create a macro to add
> that days date based on the fact that if Column "I" is blank down as
> far as there is data in column H. This would then build up a new
> column "Date data added".
>
> Can anyone help me with code for this?
>
> Much appreciated
>
> Eddie

This is what I use

Add the field name "AddDate" to column I
The update code if using to this
ActiveCell.Offset(0,1).value = Date

ActiveCell = "H2"
0= Row
1 = Column I

If this is the direction you wanted then I believe it's becuase you want to
use filters to see what is being added to data sheet.


My data sheets have 2 fields as the last columns
AddDate
FixDate


I hope this helps.

--
George G


"mikerobe" wrote:

> Hi
> I have recently asked a similar question but having thought about it
> there may be an easier solution to what i want. I have a worksheet
> where rows of data are added daily. The data goes to column H
> inclusive. I would like to add todays date to column "I" when data is
> added. So I was guessing it might be possible to create a macro to add
> that days date based on the fact that if Column "I" is blank down as
> far as there is data in column H. This would then build up a new
> column "Date data added".
>
> Can anyone help me with code for this?
>
> Much appreciated
>
> Eddie
>

Leave it up to the guru's
Way to go Don

LOL
--
George G


"Don Guillett" wrote:

> one way. Didn't test
> lri=cells(rows.count,"i").end(xlup).row+1
> lrh=cells(rows.count,"h").end(xlup).row
> range(cells(lri,"i"),cells(lrh,"i")=date
>
> --
> Don Guillett
> Microsoft MVP Excel
> SalesAid Software
> (E-Mail Removed)
> "mikerobe" <(E-Mail Removed)> wrote in message
> news:238f4b4f-e969-404d-abf5-(E-Mail Removed)...
> > Hi
> > I have recently asked a similar question but having thought about it
> > there may be an easier solution to what i want. I have a worksheet
> > where rows of data are added daily. The data goes to column H
> > inclusive. I would like to add todays date to column "I" when data is
> > added. So I was guessing it might be possible to create a macro to add
> > that days date based on the fact that if Column "I" is blank down as
> > far as there is data in column H. This would then build up a new
> > column "Date data added".
> >
> > Can anyone help me with code for this?
> >
> > Much appreciated
> >
> > Eddie
>
>

On Jun 20, 1:07*am, Sgwapt <myblueho...@msn.com> wrote:
> Leave it up to the guru's
> Way to go Don
>
> LOL
> --
> George G
>
>
>
> "Don Guillett" wrote:
> > one way. Didn't test
> > lri=cells(rows.count,"i").end(xlup).row+1
> > lrh=cells(rows.count,"h").end(xlup).row
> > range(cells(lri,"i"),cells(lrh,"i")=date
>
> > --
> > Don Guillett
> > Microsoft MVP Excel
> > SalesAid Software
> > dguille...@austin.rr.com
> > "mikerobe" <eid...@gmail.com> wrote in message
> >news:238f4b4f-e969-404d-abf5-(E-Mail Removed)....
> > > Hi
> > > I have recently asked a similar question but having thought about it
> > > there may be an easier solution to what i want. I have a worksheet
> > > where rows of data are added daily. The data goes to column H
> > > inclusive. I would like to add todays date to column "I" when data is
> > > added. So I was guessing it might be possible to create a macro to add
> > > that days date based on the fact that if Column "I" is blank down as
> > > far as there is data in column H. This would then build up a new
> > > column "Date data added".
>
> > > Can anyone help me with code for this?
>
> > > Much appreciated
>
> > > Eddie- Hide quoted text -
>
> - Show quoted text -

Thanks Don - Thats exactly what I wanted works perfect and only 3
lines of code! amazing. Also thanks George for your suggestion.

Glad to help
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Sgwapt" <(E-Mail Removed)> wrote in message
news:8A851029-8D20-4477-84B4-(E-Mail Removed)...
> Leave it up to the guru's
> Way to go Don
>
> LOL
> --
> George G
>
>
> "Don Guillett" wrote:
>
>> one way. Didn't test
>> lri=cells(rows.count,"i").end(xlup).row+1
>> lrh=cells(rows.count,"h").end(xlup).row
>> range(cells(lri,"i"),cells(lrh,"i")=date
>>
>> --
>> Don Guillett
>> Microsoft MVP Excel
>> SalesAid Software
>> (E-Mail Removed)
>> "mikerobe" <(E-Mail Removed)> wrote in message
>> news:238f4b4f-e969-404d-abf5-(E-Mail Removed)...
>> > Hi
>> > I have recently asked a similar question but having thought about it
>> > there may be an easier solution to what i want. I have a worksheet
>> > where rows of data are added daily. The data goes to column H
>> > inclusive. I would like to add todays date to column "I" when data is
>> > added. So I was guessing it might be possible to create a macro to add
>> > that days date based on the fact that if Column "I" is blank down as
>> > far as there is data in column H. This would then build up a new
>> > column "Date data added".
>> >
>> > Can anyone help me with code for this?
>> >
>> > Much appreciated
>> >
>> > Eddie
>>
>>