Hi Frnds,

Try using following code:-

Sub datee()
Range("b1").Select
Selection.End(xlDown).Select
'Selection.End(xlUp).Select
'ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = Date Then
Range("A1").Select
Else
ActiveCell.Value = Date
End If
End Sub
The workbook is also attached having the same code.  Thanks.

-- 
DILIP KUMAR PANDEY
  MBA-HR,B COM(Hons.),BCA
Mobile: +91 9810929744
dilipan...@gmail.com
dilipan...@yahoo.com
New Delhi - 110062

On Wed, May 20, 2009 at 2:36 PM, Sergio Abadesso <
groups.abade...@googlemail.com> wrote:

> Hello Harmeet,
>
> I think I have a solution for your problem.
>
> see attached file.
>
> Regards,
>
> Sergio
>
> 2009/5/18 Harmeet Singh <harmeet.hew...@gmail.com>
>
>>
>>
>> ---------- Forwarded message ----------
>> From: Nihar Turakhia <turakhia.ni...@gmail.com>
>> Date: Mon, May 18, 2009 at 12:47 AM
>> Subject: VBA help needed
>> To: harmeet.hew...@gmail.com
>>
>>
>>  Harmeet,
>>
>> I've just started learning vba and stuck rightnow with something. Any help
>> will be greatly appreciated.
>>
>> I receive  the daily settlement data from external source for different
>> commodity products in excel
>>
>> So I  was thinking if I can write a macro which would grab that
>> settlement data from that cell for each day and put in new row. ( so all
>> the data would be in one column )
>>
>> So there will be a settlement data for 4/1/2009 in cell B1
>>
>> Tomorrow when i open my book, new settlement data for 4/2/2009 in cell
>> B2
>>
>> and next day as 4/3/2009 in cell B3
>>
>> Only thing I would like to avoid is that if I open the workbook twice
>> in a same day the macro should not populate new cell instead overwrite
>> the previous cell which has todays date in it.
>>
>>
>>
>>
>> --
>> Thanks & Regards,
>>
>> Harmeet Singh
>>
>>
>>
>
> >
>

--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at 
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 

To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain  @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---

Attachment: Enter today's date in column as new cell.xls
Description: MS-Excel spreadsheet

Reply via email to