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 ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---
Enter today's date in column as new cell.xls
Description: MS-Excel spreadsheet