VBA code to change cell contents

[Damo10]

Hi,

I am creating a sheet for holiday booking for my employees and need some code to change the contents of the cells from "B" to "T" if the current date is equal to or greater than the booking date.

I have a sheet with all the dates for the holiday period in column C and the employees names are in row 9.
When i book a holiday I will enter "B" in the cell for that employee that matches their name and date requested, I would then like a macro to run on the sheet being opened that will check all rows in range "Data" and if the cell contains a "B" and the current date is equal to or greater than than the date in column C then change it to "T". The macro would need to check all columns in the range "Data" and then move to the next row and repeat until all rows have been checked.

 

[Glory]

Are the cells in "Data" and the linked cells in column C adjacent? What's the layout of this sheet?

Copy a row from Excel and paste it into the forum's message window.

 

[Damo10]

Hi,

Sorry for the delay in replying.

Here is a scrren shot of part of the sheet, I would like the code to change all the "a"'s to "h" when there is an "a" and date in column D is the same or less than todays date

Excel Workbook
	C	D	E	F	G	H	I	J	K	L	M
20	Friday	01/06/2012
23	Saturday	02/06/2012
26	Sunday	03/06/2012		a
29	Monday	04/06/2012		a
32	Tuesday	05/06/2012		a
35	Wednesday	06/06/2012		a
38	Thursday	07/06/2012								a
41	Friday	08/06/2012								a
44	Saturday	09/06/2012								a
47	Sunday	10/06/2012								a
50	Monday	11/06/2012
53	Tuesday	12/06/2012
56	Wednesday	13/06/2012
59	Thursday	14/06/2012
Sheet1

Excel 2010

Cell Formulas
Range	Formula
C20	=TEXT(D20,"dddd")
C23	=TEXT(D23,"dddd")
C26	=TEXT(D26,"dddd")
C29	=TEXT(D29,"dddd")
C32	=TEXT(D32,"dddd")
C35	=TEXT(D35,"dddd")
C38	=TEXT(D38,"dddd")
C41	=TEXT(D41,"dddd")
C44	=TEXT(D44,"dddd")
C47	=TEXT(D47,"dddd")
C50	=TEXT(D50,"dddd")
C53	=TEXT(D53,"dddd")
C56	=TEXT(D56,"dddd")
C59	=TEXT(D59,"dddd")
D23	=D20+1
D26	=D23+1
D29	=D26+1
D32	=D29+1
D35	=D32+1
D38	=D35+1
D41	=D38+1
D44	=D41+1
D47	=D44+1
D50	=D47+1
D53	=D50+1
D56	=D53+1
D59	=D56+1

 

[Damo10]

Can anyone tell me how to do this please?

 

[Damo10]

Is this possible to have a macro go through all the columns and change the a's to h's if the gate in column c is equal to ir less than the current date?