on Guillett
SalesAid Software
dguille...@gmail.com
-Original Message-
From: Eddie
Sent: Friday, November 04, 2011 8:34 AM
To: MS EXCEL AND VBA MACROS
Subject: Re: $$Excel-Macros$$ If value found in range macro
I have a differing date range (G41:G68) in a number of sheets.
e.g. Sheet 1 (&qu
the people you can,
As long as ever you can.” - John Wesley
-
From: Eddie
To: MS EXCEL AND VBA MACROS
Sent: Fri, November 4, 2011 10:55:34 AM
Subject: Re: $$Excel-Macros$$ If value found in range macro
I've sorted i
I think it might be helpful if you could attach a file...
I SOUNDS like you're saying that in rows 41-68
there are records of some sort.
The DATE for each record is in column G.
your first sheet ("1") the date range is November 4, 2011 through
December 1, 2011
sheet "2" has dates from December 12
I've sorted it! It was because the dates were displayed in date format
rather than numbers!
Thanks very much for all your help.
Ed.
On Nov 4, 2:43 pm, Eddie wrote:
> The tab colour doesnt change if the date is within the range or not.
> Either way the tab remains yellow.
>
> On Nov 4, 1:45 pm,
The tab colour doesnt change if the date is within the range or not.
Either way the tab remains yellow.
On Nov 4, 1:45 pm, Sam Mathai Chacko wrote:
> Here's the code to look at Range("F1") from the respective sheets for
> all sheets in the workbook
>
> Sub FindValueColorTab()
>
> Dim wks As W
I have a differing date range (G41:G68) in a number of sheets.
e.g. Sheet 1 ("1") 04/11/11 - 1/12/11, Sheet 2 ("2") 02/12/11 -
28/12/11 etc
What I want to do is colour the sheet tab which contains todays date
which is provided in F41 of each sheet.
Ed.
On Nov 4, 1:19 pm, Paul Schreiner wrote:
Here's the code to look at Range("F1") from the respective sheets for
all sheets in the workbook
Sub FindValueColorTab()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
If IsNumeric(Application.Match(wks.Range("F41").Value,
wks.Range("G41:G68").Value, 0)) Then
"Assuming" you want to search all sheets for the value that is in Range("F41")
of Sheet(1), then
Try this:
Option Explicit
Sub Find_Data()
Dim Sht, Find_Date
Find_Date = Sheets(1).Range("F41").Value
On Error Resume Next
Application.ScreenUpdating = False
For Sht = 1 To Sheets.
Copy/paste this into the ThisWorkbook module.
Now in each sheet if f41 is in the sheet range it will color the sheet tab.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Set mf = Sh.Range("G41:G68").Find(What:=Range("f41"), LookIn:=xlValues, _
LookAt:=xlWhole,
Are you saying that you want to look in the range of each sheet
for the value that is in Range("F41") of EACH SHEET
or are you looking at the value of F41 on sheet(1) and checking the rest of the
sheets for THIS value?
Paul
-
“Do all the good you can,
By a
10 matches
Mail list logo
