Dear TOM,

Thanks Alot for helping me when i was in need, May GOD help you th
same way as you did for me. You r a genius.

Thanx


DARN

--
Message posted from http://www.ExcelForum.com

Your welcome.

--
Regards,
Tom Ogilvy

"darno " wrote in message
...
Dear TOM,

Thanks Alot for helping me when i was in need, May GOD help you the
same way as you did for me. You r a genius.

Thanx


DARNO


---
Message posted from http://www.ExcelForum.com/

Please keep your replies in the same thread and don't change the
name of a thread -- it makes for a lot of confusion. For instance
you started a new thread something like "Tom it doesn't work",
then you start another thread "TOM you made my day..." it would
be a lot easier for people to see everything in one thread and see
what works or doesn't work, or where confusions may be encountered.

Most people searching archived postings are not going to be able
to see all of the threads from a search, nor are they going to
be able to associate which replies go with what other threads.

Also please do not post in all caps as one of your posts was.
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"darno " wrote
Thanks Alot for helping me when i was in need, May GOD help you the
same way as you did for me. You r a genius.

Message posted from http://www.ExcelForum.com/

Dear TOM,

If you remember that the solution given under was recommended by yo
and which worked great for my query. Now a little more help i
required, I am sure (100%) you will be able to answer this as well.

In the same query I want to get the total of my range in date column
As this is understood that the 2 input dates that are entered do no
have a limit they can be based on any starting cell to any ending cell
So my query is to calculate no of cells used between these 2 date
including starting and ending date as well. for example the column
contains all date entries. If the first date that I entered in inpu
box was on cell b2 and the end date was on b30 then I want to to kno
that how many total no of cells are there between these two dates. I
simple words I need the total SUM of those cells used in from startin
date to ending date..


<<<OLD MACRO

Sub AAtester10()
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(CDate(sStart)), Range("A1:A365"), 0)
res1 = Application.Match(CLng(CDate(sEnd)), Range("A1:A365"), 0)
If Not IsError(res) And Not IsError(res1) Then
Set rng = Range(Range("A1:A365")(res), Range("A1:A365")(res1))
rng.Resize(, 6).BorderAround Weight:=xlMedium, ColorIndex:=3
End If
End If
End Sub





Regards,


Darn

--
Message posted from http://www.ExcelForum.com

See answer to your new posting of this question.

--
Regards,
Tom Ogilvy


"darno " wrote in message
...
Dear TOM,

If you remember that the solution given under was recommended by you
and which worked great for my query. Now a little more help is
required, I am sure (100%) you will be able to answer this as well.

In the same query I want to get the total of my range in date column.
As this is understood that the 2 input dates that are entered do not
have a limit they can be based on any starting cell to any ending cell.
So my query is to calculate no of cells used between these 2 dates
including starting and ending date as well. for example the column2
contains all date entries. If the first date that I entered in input
box was on cell b2 and the end date was on b30 then I want to to know
that how many total no of cells are there between these two dates. In
simple words I need the total SUM of those cells used in from starting
date to ending date..


<<<OLD MACRO

Sub AAtester10()
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(CDate(sStart)), Range("A1:A365"), 0)
res1 = Application.Match(CLng(CDate(sEnd)), Range("A1:A365"), 0)
If Not IsError(res) And Not IsError(res1) Then
Set rng = Range(Range("A1:A365")(res), Range("A1:A365")(res1))
rng.Resize(, 6).BorderAround Weight:=xlMedium, ColorIndex:=3
End If
End If
End Sub





Regards,


Darno


---
Message posted from http://www.ExcelForum.com/