EXCEL VBA : date range as criteria?

Question

I want to write a vba with date range as criteria.
Search a range of cells with given criteria and replace cell value with its corresponding value.
Example of Criteria :
1Jan 06 - 31 Jan 06 return value as Bazel
1Feb 06 - 28 Feb 06 return value as Cairns

Answer 1

I agree with Scott. Just put the name of your cell range in where he put the double questionmarks. If you are referring to the actual cells like A1:D5 put that in quotes ("A1:D5"). If you are referring to a named range, just type in the name of the range. All you should have to do afterwards is just run the procedure.

As the first answerer said, Alt + F11 will get you to the VBE window.

Answer 2

Excel Vba Date

Answer 3

Hi,
if u have dates written in particular range, then u know no. of rows and columns where date is written.
press Alt-F11, VBA window will open, (Goto Insert menu) insert a module thereafter insert a subroutine and write the following code:
----------------------------------------------------------
assuming u have dates written in 10 rows and 10 columns.
Public Sub e()
Dim r As Integer,c as integer
For r = 1 To 10
For c = 1 To 10
If Sheet1.Cells(r, c) = #10/10/2007# Then Sheet1.Cells(r, c) = "Replace"
Next c
Next r
End Sub
----------------------------------------------------------
if u have no. of replacements then use that no. of 'If' statement for each replacement.

Answer 4

Try changing the last line to: .Range("inventory").AutoFilter field:=1, Criteria1:= txtDate.Value

Answer 5

sub date_to_text_value()
dim cell_range as range
dim cel as range
set cell_range=range(??)
for each cel in cell_range.cells
if cel.value=>date(2006,01,06) and cel.value<=date(2006,01,31) then cel.value="Bazel"
if cel.value=>date(2006,02,01) and cel.value<=date(2006,02,28) then cel.value="Cairns"
next cel
end sub