i really need help w/ this please...

  • Thread starter Thread starter aapp81
  • Start date Start date
A

aapp81

first off, allow me to apologize for this lenghy post but i've bee
stuck on this for very long already...

i've searched through hundreds of threads but haven't found exactl
what i needed. i even tried to "combine" codes i've found to make wha
i need but eventually nothing made sense...
well, this may be rather long, but is really important to my project a
work:

i have a file - eca.xls...
it contains 9 sheets...
7 of those are months - april through october containing data...
the 8th sheet, called "non-dup", is a combined sheet of the months...
the 9th, called "master", is a copy of the 8th but w/ additiona
columns that that the other sheets dont' have...
8 of the 9 sheets are formated the same way and row 1 contains the sam
headings (one of them being "Event")...
sheet 9 has a different formatting style and has the "Event" column to
along w/ additional columns the other sheets don't have...

so what i need is a macro that will compare the april through octobe
sheets to the "non-dup" and "master" sheet and change the color of th
fonts in the "Event" column to correspond w/ each other.

in other words, all the "events" in april-oct. already are in non-du
and master but i'd like to make them red; do the same for may and mak
those green and so on...

so, for example, if may contains the "event" E12345678 (which is ho
the "events" look), "non-dup" and "master" will contain it as well, bu
i want the macro to locate this "event" in "non-dup" and "master" an
make it whatever color it is the month sheet.

i have the "event" columns in the months already changed to differen
colors for each month, i just need to locate and change those colors i
the other 2 sheets..
 
Dim fCell As Range
Dim tCell As Range

Dim Ws As Worksheet
Dim mEvent As String
Dim mColour As Integer


For Each Ws In Worksheets
Select Case Ws.Name
Case "May", "June" ' etc - do not include Master & non-dup
For Each fCell In Ws.Range("a1:a" & Ws.[a65536].End(xlUp).Row)
mEvent$ = fCell.Value
mColour = fCell.Interior.ColorIndex
For Each tCell In Sheets("non-dup").Range("a1:a"
Sheets("non-dup").[a65536].End(xlUp).Row)

If tCell.Value = mEvent Then
tCell.Interior.ColorIndex = mColour
Exit For
End If
Next tCell
For Each tCell In Sheets("master").Range("a1:a"
Sheets("master").[a65536].End(xlUp).Row)
If tCell.Value = mEvent Then
tCell.Interior.ColorIndex = mColour
Exit For
End If
Next tCell
Next fCell
End Select
Next W
 
Back
Top