How to input 2 dates and mark them as range...

  • Thread starter Thread starter darno
  • Start date Start date
D

darno

I am in trouble. I have an Excel Worksheet containing a Column A which
has an entry list of dates. >From January 01 to January 20. There are 5
other columns containing different values. The total worksheet is from
Column A1 to Column F20. My requirement is to Create a Macro by which I
will ask user to give a range on the basis of Column A (Column A
contains Date Values) by an input dialog box that should ask user to
input starting date and ending date. Once the input values are entered
the program either should ask to enter starting cell range and ending
cell range or it should get the addresses from the input dates. The
program code should be able to highlight columns A5:F20 and apply a red
border around it or any pattern. Please help me and tell me how can we
achieve this.


darno

(e-mail address removed)
 
Dim sStart as String, sEnd as String
Dim res as variant, res1 as variant
Dim rng as Range
sStart = Inputbox("Enter Start Date")
sEnd = InputBox("Enter End Date")

If isdate(sStart) and isDate(sEnd) then
res = Application.Match(clng(sStart),Range("A1:A20"),0)
res1 = Application.Match(clng(sEnd),Range("A1:A20"),0)
if not iserror(res) and not iserror(res1) then
set rng = Range(Range("A1:A20")(res),Range("A1:A20")(res1))
rng.resize(,6).BordersAround Weight:=xlMedium, ColorIndex:= 3
End if
End if

would be the basic approach. You can add in code to validate the entries in
the inputbox and dress it up and so forth. You might want to clear all
borders at the start, but you can get this code with the macro recorder.
 
Back
Top