Code:
Sub TabColor()
Dim mySheets As Worksheets
Dim mySheet As Worksheet
Set mySheets = Worksheets(Array("sheet1", "sheet2"))
For Each mySheet In mySheets
With mySheet.Tab
.Color = 9
End With
Next
End sub
I'm getting a type mismatch at line 4. Can I not group the sheets like this? This is just a test program, my real one would have 10 or more tabs in the array.
In my Excel 2003 worksheet, I need the row color to automatically change to blue (color 5) (bgcolor = #0000FF) - when the user changes the text from VALID to INVALID in the range: B3:B65000.
For example:
Cell B5 contains the text: VALID
When the user changes the text in the field to read: INVALID - then I need the row range: A5:W5 to change to the color blue.
I would like to be able to change the color of a cell in V4:AB31 and have the formula in AM10:AM13 automatically calculate the new result. As it is now the user has to press Ctrl ALT f9 for the formula to recalculate.
View 7 Replies View RelatedI have two columns. The first one (A) contains cells that have different Fill colors. The second column (B) contains text adjacent to the colored cells. I am trying to change the color of the text in the second column (B) to the corresponding color in the adjacent cell in the first column (A). I don't think conditional formating works well in this situation. I believe the solution would be some sort of macro.
View 3 Replies View RelatedI have font color white in blank cells in column E and I (from row 5 to row 245) so the visitors will not see the text. If any of these cells become yellow (color code is 6), the font color will become black so visitors can see the text alot far better than white. I've tried this code myself after this post but nothing happen
View 4 Replies View RelatedI have various row cells in column (F) filled with the color Green. And corresponding text in Column G. How can I change the text of that particular row to white.
i.e.: if any cell in column F is Green, change the text color of that row in Column G to white?
an event macro to change the font colour of a cell whose value changes as a result of a calculation.
View 9 Replies View RelatedI have a drop down sub pasted to worksheet:
Private Sub ComboBox1_Change()
ComboBox1.List = Array(100, 200, 300, 400)
If Range("I11").Value < Range("N11").Value Then
If Sheets("Profile").Range("K18").Value < ComboBox1.Value Then
Range("I11").Interior.ColorIndex = 2
Else
Range("I11").Interior.ColorIndex = 3
End If
End If
End Sub
I want it to change the cell color on drop down change. How can I modify things to have the change in drop down selection?
how do i create a sheetsarray to include all sheets between First and Last? I plan to loop through each sheet in this array to copy data to a summary page, as per [url]
View 9 Replies View RelatedI am trying to copy or edit a cell thats has the following formula (see below), I keep getting this message "You cannot change part of an Array!"
=If(ROW($A2:$A8)-ROW(A2)+1>COUNT(W2:W8),"",INDEX($A:$A,SMALL(W2:W8,ROW(INDIRECT("1:"&ROWS(A2:A8))))))
If I have an assortment of odd and even values in range a1:j100, using the Array formula {=If(Mod(a1:j100,2),"",a1:j100)} will clear out all the odds, leaving the evens.
Is there a way I can add to this formula to color the qualifying cells (odds in this instance)? I know Conditional formatting is perfectly suited for the job but I am looking for a departure from this.
I want to create a hyperlink to a sheet named "adsf"
I am currently in a worksheet named: "62b Arcus"
I want the hyperlink to be set by grabbing the name from another cell.
For example, In cell h7, I have the text: adsf
In cell g7, I want to place a formula such as: =HYPERLINK("adsf!")
Except, instead of this, I want: =HYPERLINK("h7!")
In this way, i want it to hyperlink to a sheet name based on the text that is in h7.
But neither of these formulas work. Both say the following: "Cannot Open the Specified File"
After reading up on this I have discovered that I must save the file and include the file name inside the formula.
My file name is: [Maintenance Color Codes of Houses - colour coded2.xlsm] =HYPERLINK("[Maintenance Color Codes of Houses - colour coded2.xlsm]adsf!A1","LINK")
This hyperlink actually works. Yet I have a problem. What if I rename the file. For this reason, I want it to grab the current file name using "filename". I have tried this by the following:
=MID(CELL("filename"),SEARCH("[",CELL("filename")),SUM(SEARCH("]",CELL("filename")),-SEARCH("[",CELL("filename")),1))
This grabs the current file name "Excluding the text outside of the [ and ]. I was able to create this formula myself.
How come I can't replace the part with [ and ] =HYPERLINK("[Maintenance Color Codes of Houses - colour coded2.xlsm]adsf!A1","LINK")
with:
=MID(CELL("filename"),SEARCH("[",CELL("filename")),SUM(SEARCH("]",CELL("filename")),-SEARCH("[",CELL("filename")),1))
These two formulas together would be:
=HYPERLINK("MID(CELL("filename"),SEARCH("[",CELL("filename")),SUM(SEARCH("]",CELL("filename")),-SEARCH("[",CELL("filename")),1))adsf!A1","LINK")
I also want to replace the "adsf" part with a cell number such as h7. So that it says h7!A1","LINK") or in full:
=HYPERLINK("MID(CELL("filename"),SEARCH("[",CELL("filename")),SUM(SEARCH("]",CELL("filename")),-SEARCH("[",CELL("filename")),1))h7!A1","LINK")
This doesn't work either
I know that I have probably created a ridiculous formula for what I am after. I'm almost there but not quite. You may know something far, far more simple.
Create a macro which will combine three different sheets with their names from 10 to 15 sheets.
View 1 Replies View RelatedI need to have 3 arrays for a column of data, the first holding each cell value, the second the Row number and the third, the Interior.Color.
Currently I am having to assign each row and interior colour to a variable with a | between each then use the split function on that variable to assign it to an array (no problem with each cell value as that can be assigned directly to an array.
Code:
For Each rC In Range("a2", Range("a" & Rows.Count).End(xlUp)).SpecialCells(12)
If sO = Empty Then
sO = rC.Interior.Color
Else: sO = sO & "|" & rC.Interior.Color
End If
If sR = Empty Then
sR = rC.Row
Else: sR = sR & "|" & rC.Row
End If
Next
c = Split(sR, "|")
v = Split(sO, "|")
x = Range("a2", Range("a" & Rows.Count).End(xlUp)).SpecialCells(12).Value
As there are over 10,000 rows involved loading the variables is taking a considerable amount ot time, whereas the direct loading of the value is very fast. So I want to be able to load all arrays directly.
I have tried various methods to get Row and Interior.Color to load directly into arrays c and v but without success so far.
What I would like to do is to have the color of a tab change as the dependant upon the value of one or more cells.
View 9 Replies View RelatedI have used conditional formatting in a sheet ,now after this i want to filter those records who are uncolored in a separate sheet and want to do this as when i change it after filtering it also gets change in the original data...
View 5 Replies View RelatedI'm trying to create an array of Sheets objects and use them. This gives me a type mismatch on the marked line below. I could just save the sheet names as strings in the array.
Dim SheetList() As Sheets, A As String
Set ORng = Sheets("Options").Range("ReachPagesHeader").Offset(1, 0)
PageCount = Range(ORng, ORng.Offset(1000, 0).End(xlUp)).Count
ReDim SheetList(1 To PageCount)
For X = 1 To PageCount
A = ORng.Offset(X - 1, 0).Text
Set SheetList(X) = Sheets(A) '
Try to find a way to automatically change the color of a row, based in changing the name in column A.
I tried conditional formatting but the name (or dates) in column A are not the same (always other and other).
I failed to adapt any VBA CODE (found in GOOGLE) because column A varies a lot.
Annex a photo and an excel example.
EXAMPLE FORUM HELP.jpg
EXAMPLE 1.xlsx
What formula do i use if i want the text in cell A1 to change to red if any entry is made in cell B1.
View 2 Replies View RelatedI am having some color problems. From A2:AB2000 I have different fill colors for cells all over the place. The only color I need is the color purple which I believe is the color “39”.
So basically all cells except the cells with the color purple change to white from A2:AB2000. I would like to add this code to the macro I have already created.
I have a given som (general) range where I would like a function to change the background color of every second row in a visual basic function.
One could of course just loop through it and use the mod function, but I think there has to be something quicker.
I know about conditional formatting, but it is something I need to use over and over again on Ranges that will differ in size so I would like it to be a function I can just run as part of a sub.
I keep recording this macro, but the problem I run into is that the active sheet is always the specific name of the sheet. I need a general name so that the macro will work on any given sheet. On the sheet I am viewing, I simply want to change the tab color to black using a macro.
View 2 Replies View RelatedI'm trying to create a spreadsheet with columns a, b, c, and d. "a" always has a value and I want columns c and d to change to a's color when they are given values. if "b" has a value when the data for c and d is entered, i want them to take b's color instead. The part I don't know how to do is that if i decide to give "b" a value, I don't want "c" or "d" to change colors if they already have values. e.g. if only a has a value when i give one to c, c will take a's color, but then if i give b a value then d, i want d to take b's color and c to retain a's color.
View 14 Replies View RelatedUsing Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) I can execute code when values in the cell change, but it can't check if the foreground or background color changes. What event can detect this? If no event can, is there any way at all?
Found this, I will look into this loop: Capturing cell color change in VBA
I'm trying to put together a script which changes the color of the row in columns A:AE if any cell in the Range B7:B400 has the value of 'No'. If it has the value of 'Yes' I would like it to Exit Sub.
I've put together the code below to try an create this function, but I'm running into a few problems.
Code:
If Intersect(Target, Range("B7:B400")) Is Nothing Then Exit Sub
If Selection.Cells.Count > 1 Then Exit Sub
If Target "No" Then[code]....
When the value of any cell in Range B7:B400 is 'Yes' the row changes to grey, if I enter 'No' it removes all cell shading from the row, and I'm not very clear on what changes I need to make.
I am in need of a way to change the color of text in a cell to red if that cell contains a dollar sign ($) and if it dosen't contain a dollar sign ($) for the text to be black. I want this to happen automatically without having to run a macro, is this possible?
View 9 Replies View RelatedI've got some spread sheets that I send out. People fill them out and send them back to me. The only problem is that I dont know which cells they've changed and which cells they've left. Is thier a way to tell VB to change the color of a cell if the value has changed
View 9 Replies View RelatedI have to check a cell to see if ti has a date in it, if so , then i have to check the current date to another cell, if the current date is greater then that cell i want to change the color of the cell
When I click on a button I would like an option to cancel a row range of cells by turning the writing red with a cross through it.
So if I wanted to cancel a certain row of data I would click on a button, enter the range of cells to cancel and then this would turn all of the writing in the cells to red colour with a strike through the words.
try explaning this again....Also conditional formatting will not work...
Looking for a formula in excel to do this---
I have a lottery numbers system in the 3 digit and 4 digit
numbers...In row A we have the 3 digit that were drawn about
3000 ---3 digit numbers and in row C we have also 3000 numbers
for the 4 digit ....All we need to do is Highlight All the
even numbers and make them RED font---in the 3 and 4 digit rows...
Is there a way to do that?????
A--row-----C--row
123---------4429--make the 2red in the 3 digit row and 442red
in the 4 digit row.
033---------5579--nothing in this row
229---------2200---etc....