I'm trying to automatically change the names of the sheets in my workbook based on the contents of cell A1 in each sheet.
I found some code on some website and inserted it into the ThisWorksheet module:
Private Sub Workbook_Open()
Dim wSheet As Worksheet
On Error Resume Next
For Each wSheet In Me.Worksheets
if wSheet.Name = "SomeName" then
If wSheet.Range("A1") = "" Then
wSheet.Name = "Sheet" & wSheet.Index
This code appears to work properly, but only when the workbook is closed and then reopened. Is there a way to make this code run anytime cell A1 in any of the sheets changes? I've found several sample codes that purport to make a macro run automatically on a cell change, but I can't figure out how to incorporate the code above with the Worksheet_Change code to make them work together.
When someone clicks on a specific cell, I want a different cell to then fill with data from another worksheet, can this be done?
For example, I have cells on a speadsheet box 1, box 2 and box 3. What I want, is when someone clicks on say box 2 to selects that option, then I want box 4 to auto-fill with the price I have from another spreadsheet
Not sure if this is possible or if I would need to run a VB macro. image multiple columns with text headers.
'A'=Project Number 'B'= Date 'C'=Description etc etc etc 'S'=Cancelled (i actually use up to 'Z' on the columns for various other data)
I have added a Conditional Format on the cells in column 'S' that if the cell data = Y then colour the cell RED. This at first glance will show that the project has been cancelled. What I would like it to do is to colour the complete row (shaded grey for example) this would then show up more easily with the amount of data that is on my sheet.
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.
1st - Need a macro to change a range of cells colours based on a single cell having a value greater than 0.001. ie. cells A1 - G1 need to change to grey based on cell F1 having a value greater than 0.001 entered in it?
2nd - Also a macro for deleting the text contents of cell C1 based on cell F1 having a value greater than 0.001. Therefor if cell F1 has a number greater than 0.001 it changes the colour of celss A1 - G1 and also deletes the text in cell C1?
Is there anyone who can suggest a solution to my problem below ? Basically, what I need is a macro which would ideally work like this:
if D32 = 1, then the background colour of D4 should be red if D32 = 2, then the background colour of D4 should be orange if D32 = 3, then the background colour of D4 should be yellow if D32 = 4, then the background colour of D4 should be green
I have a macro that is set to clear a range of cells. If I make a change to the worksheet (such as adding a column) that moves those cells in the worksheet, the worksheet formulas update, but the macro cell references do not. How can I make my macro update in accordance with changes in the worksheet?
I am trying to write a Macro that will insert a Text Box that auto-fits the shape of a cell to hide its content. Once finished, the Macro will need to lock the cell and the text box so the contents of the cell are hidden. The idea is that I want to share a spreadsheet with someone but want to hide individual cells for various reason.
I am trying to find a way to write a Macro that will auto color multiple cells based on what data is displayed in one cell. The cell I want to reference is a vlookup cell.
Basically this is a part label. And depending what part is selected from the list my vlookup will display its position on a vehicle(i.e.. FR, FL, RR, RL, Etc..). So if vlookup comes back with FR I want the various cells on the label to be orange, etc..
ALSO: if there is a way to embed it so it does this automatically (rather than run the macro each time).
i am currently using the macro below to import text files into a spreadsheet. Currently, it begins the import in cell A1 which is what I recorded it to do. how do I change the code to begin the import on the active cell?
I have code which changes the worksheet tab names based on contents of a cell. I borrowed some very useful code from a previous thread. I'd like to modify the code so that the tab name updates everytime the cell contents change.
My code is below:
Sub ReNamer() For L = 3 To 9 Sheets(L).Name = Sheets(L).Range("A1").Value Next End Sub
Basically, I need to reformat a set of data (see before and after). A specific column should only contain 1 value, if there is more than 1 value it will be separated by a comma. If this column contains more than 1 set of data then I would need to insert a row and duplicate the information based on how many different sets there are. All the copied data should remain the same with the exception of the "Key" column, it should only have 1 value and each copied row should contain the corresponding value in the key field.
BTW - it could be on the same sheet or a different worksheet (doesn't matter)
BEFORE Name Number KEY Date Name1 1 a,b,c 12/1/2011 Name2 2 x 12/1/2011 Name 3 5 one,three 12/1/2011
AFTER Name Number KEY Date Name1 1 a 12/1/2011 Name1 1 b 12/1/2011 Name1 1 c 12/1/2011 Name2 2 x 12/1/2011 Name 3 5 one 12/1/2011 Name 3 5 three 12/1/2011
I want to try and rename a worksheet tab according to the value in a cell.
I have a worksheet with a column of cells each having list boxes, i want the following to change. If i select a value from the list box in worksheet 2 cell A2 it should change the worksheet 3 tab name to equeal the list box value.
And so on, If i select a value from the list box in worksheet 2 cell A3 it should change the worksheet 4 tab name to equeal the list box value.
Three cells - A1:A3. If A1's value is modified, I would like to have some sort of event macro that recognizes the change and thus initiates and clears the values of cells A2 and A3. Basically I don't want to have to user-initiate the macro...but have the actually changing of A1's value initiate the macro.
I've created a button that, when clicked, will give a time and date stamp. The issue I'm having is that when I click the button, it displays the information in the active cell. I've searched for an answer, but keep coming up blank. Here is my macro:
I have a macro that I would like to run everytime ANY cell is changed in a given worksheet. I've read some posts that explain how to do this when say ONE cell is changed, but I cannot figure out how to expand on that.