Assume you select the cells in column A
With Selection.offset(0,1)
.Formula = "=" & selection(1).Address(0,0)
.Numberformat = "dddd"
End With
for a single cell
With ActiveCell.offset(0,1)
.Formula = "=" & ActiveCell.Address(0,0)
.Numberformat = "dddd"
End With
--
Regards,
Tom Ogilvy
"Harish" wrote:
> Thnaks for your quick reply TOM.
> This is exactly I want.Is that possible to do this using VBA code?
>
> Kind Regards
> Harish
>
> "Tom Ogilvy" wrote:
>
> > In B1 put in
> > =A1
> > then select the cell and do Format=>Cell=>select the number tab. Select
> > custom and put in a format like dddd
> >
> > or just format the original cell with a custom number format
> >
> > mm/dd/yyyy dddd
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> >
> > "Harish" wrote:
> >
> > > Hi All
> > >
> > > I need your little help here. I have one excel spreadsheet in which in
> > > column A I enter the date and in column B I want some formula or VBA code to
> > > tell me which Day it is.
> > >
> > > For Example:
> > > Column A Column B
> > > 01/04/2007 TUESDAY
> > > 12/05/2007 SATURDAY
> > > 30/05/2007 WEDNESDAY
> > > 16/06/2007 SATURDAY
> > > 19/07/2007 THURSDAY
> > >
> > > Your help would be greatly appreciated.
> > > Kind Regards
> > > Harish
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
|