I have a spreadsheet which has a version number in it on a given cell. This cell is protected as is the spreadsheet.
I want to create a macro that will target the given cell and ask user to input new value and then change the cell value.
This macro will be attached to a button.
I already know how to disable and enable spreadsheet protection but have got no clue as to go about the rest.
My boss wants a spreadsheet that has multiple buttons on it that will change the background color of a specific cell to four different colors. Example:
Text written in Cell B3, Button in Cell A3 that will change the Background color of Cell B3 to either Green, Yellow, Red or Blue.
There will be a lot of buttons on this worksheet following the same format as above. I don't want to change the value of what is in the cell, just the background color.
I have a code and I want to run this macro whan a specific cell change (which has sum formula) and this code also has some calculation. And I m not understanding to overcome this problem through Calculate event.
View 2 Replies View RelatedI would like to change the greater than number to the value in cell 'I11' in sheet 'Linear Programming Data' and the less than number to the value in cell 'I12' in sheet 'Linear Programming Data'. The code I am using was done by recording a macro since I don't know how to code in vba.
Code:
Sub Results2()
' Results2 Macro
' copy table filter power by greater than and less than
Sheets("Finalizing Results 2").Select
Cells.Select
[Code] .......
I have a protected template and unprotected source worksheets - - - what I would like to happen is for the macro to start and if the source worksheet cell B3 equals "Report Total" then stop - otherwise copy template worksheet then copy 6 specific cells from the source to paste values to specific cells on the newly created worksheet (B_ to C7, D_ to I7, E_ to C9, F_ to K9, A_ to C11, M_ to K11 and then K13=F13-30)
After that then start all over again unless the next row’s cell (B4, B5, B6, . . .) is "Report Total" then stop - - - the row count could be from one to a couple hundred.
Here is what I have so far but I know that with each copy the name will change and as it goes down the source file each row will change and I also need help with that.
Sheets("ee template").Copy After:=Sheets(3)
ActiveSheet.Unprotect
Selection.ClearContents
Range("I7").Select
Selection.ClearContents
Range("C7").Select
Sheets("source").Select
ActiveCell.Offset(0, -11).Range("A1").Select
I've done the following:
Sub BrownBH()
If Range("Brown!B4:B31") = X Then
Range("C4").Value = [#A]
Else
Range("C4").Value = NT
End If
End Sub
However, this doesn't even work.
When somebody enters an X in a specific cell on one worksheet, it's supposed to change the value to A of a specific cell in a different worksheet. Sounds simple enough...but...
I would like to change a combo box back to a specific value, based on a change in C4.
So no matter what happens, if c4 changes at all, the value in the combo box gets reset....
I need in some way to make the range variable, because it can change. I need only the first range to be different.
Code:
x = .Range("a4:a27").CurrentRegion.Value
A4 have to be instead the cell where Denmark typed. Column A
And
A27 have to be the lasted used cell in column B
But after the row where it have found Denmark.
Please have a look.
Below code is from AB33, But this is not a cross post.
Different question
Code:
Sub copyp()
' Denmark
Application.ScreenUpdating = 0
Dim cell As Range, i&, dic
With Worksheets("Middle Result")
x = .Range("a4:a27").CurrentRegion.Value
[Code] .......
I know how to set a conditional for a cell to change a color when i apply a specific value, but how about if i want to set E2 cell to change to green when i place a 'X' on F2?
Pretty much I want 2 columns that say Yes and the Other No. When i place a X on Yes that other cell turns green, if i place a X on No that other cell turns red.
I'm trying to have a macro run to search a specific column (S) for a particular text value "y" and if true it will change the font to bold and the color to red for the entire row of the cell that contains the "y". the column is part of a data table that is constantly refreshed not sure if that makes a difference or not.
View 2 Replies View RelatedI need to conduct keyword searches in excel and color the keywords a different color without changing the font color of the entire cell. now, i found some code from another thread that does this, but i cant seem to get it to work with more than 2 keywords. i need fine-tuning the provided code to do what i need it to do.
[URL]
the VBA code i used was this:
[Code].....
I was playing around with the example, the Cat_Mouse.xlsm, and when i modified the 'myList' and 'myColor' arrays, it does not work.
Cat_Mouse.xlsm
For example, I modified the code to add the word bat:
[Code] .....
When i run the macros, the word "Bat" does not become colored red. interestingly enough, when i substitute the word "bat" for the word "hat" in the "myLIST array, the word "hat" does change to the red font.
I am looking to use this code to address keywords in my excel file by coloring all key words red and i have more than 10 key words.
Best way to change the value of a cell if another cell has a specific value
i.e.I want to change cell F11 to No if F12 = Yes and also the other way around F12 to No if F11 = Yes, so only 1 of these cells can say Yes, but they both can say No.
This is the code I use to call a macro when the macro Im calling is in the same workbook.
[Code].....
However, I would like to call this same macro when using another workbook. I copied the macro "Clearformating" and pasted into a personal macro workbook module. However when I add this code to the sheet tab it will not run the macro.
I also tried this code.
[Code] .....
I have used the below code to insert a new row when the value in coulmn A change. I now need to evolve it so that the new row will contain a specific value depending on the changing value:
Before:
Column A Column B
one test
one test
two test
two test
three test
three test
After:
Column A Column B
one test
one test
Coz two............................
I have a Sheet sheet1 and I want to run a macro when the cell D2 in Sheet1 is equal to 10,7,5,and 3. I only want this macro to run when those values are reached the macro then puts the data onto a sheet called wps. The macro is run as a module and is a sub macro.
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?
I have several macros that email a specific section of a workbook when I run it - I have an icon (image) per section. I want to be able to run a macro that calls one of these section specific macros based on a choice from a drop down list.
It would work this way:
- From the drop down in cell E11 I choose "New Jersey"
- I would then click on the email image next to the cell (next to E11)
- that macro would call the macro that emails the "new Jersey" section.
I realize there might be a much better way, easier even. However, I already have the other macros written out and would just want to add this step.
I am trying without success to for a macro to run when a specific cell is activated. i.e. if a users selects cell A1, macro X will run.
View 2 Replies View Relatedhow would i make a macro run when i click on a specific cell?
View 4 Replies View RelatedI am having some trouble writing a macro to delete cell content. I know which cells I want to clear, but I can't seem to get the macro to do it.
I also want to have something in the macro that inserts data into the lines that I am trying to clear. I want cell A67 to say "Payment" and cell A71 to say "Total."This is the code I am using:
Sub DeleteCell()
Dim i As Integer
For i = 67 To 71
If Range("A" & i).Value = "--" Then
Range("A" & i).Delete
Next i
End Sub
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?
View 2 Replies View RelatedI am trying to print one of the Sheets in my Workbook by looking at a specific cell that can have one of the sheet names.
View 7 Replies View RelatedI have a spreadsheet using an Input Form (user cannot get to the spreadsheet to enter data - they must use the form). This is working well.
What I need to do now is allow the user to retrieve data that is already entered. Example: Spreadsheet has 100 unique records (rows). In each is ID, Name, State, Dues, and about 20 other columns of information.
I need to allow the user to key the ID # and then up pops all the other information for just the ID provided. I will also need the ability for them to then change that information if needed.
So if they key 13WIL they will get Wilson, TX, $50, etc. And then they can make changes to any field needing a change. Add a phone, change and address, etc.
I have a large spreadsheet with about 18000 rows or data and about 60 columns. I need to a macro to find a specific word in a column like "charge" and anytime that word is found in the column to insert a blank cell in front of it.
Currently the sheet looks like this:Fee AChargeFeeChargeFee AChargeFeeChargeFee AChargeFee AChargeNeed to get it to look like this: (so I can sort and subtotal)Fee AChargeFee AChargeFee AChargeFee ACharge
a macro to the for whichever column I choose.
how I might 'trigger' a macro to run when a certain cell was filled with any value at all. I have the macro working fine (it's a simple copy and paste special) but I want it to run automatically when the cell A20 has a value in it.
View 9 Replies View RelatedThis is the code I have:
Sub Auto_Open()
Sheets("Data").Select
Range("A2:E32").Select
Selection.Copy
Sheets("May").Select
ActiveWindow.SmallScroll Down:=-9
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Data").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Sheet1").Select
Range("A2:E32").Select
Selection.ClearContents
Range("A1").Select
End Sub
1) How do I set this up so that if the cell Z1 reads 1, it will paste the data to the "January" Sheet, if Z1 reads 2, it will paste to "February" Sheet, if Z1 is 3 it will paste to "March"......
I'm trying to do is definetly simple to a lot of you, but I'm struggling on how to get started. I attached a workbook that clearly shows my work! I'm almost there but not quiet. Basically the user will be able to make a slection that will be used to lookup values from a different sheet. Each selection triggers a ranking number at the bottom (red pattern) in the worksheet. Now I would like to capture all scenarios and display the ranking.
View 4 Replies View RelatedI 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:
Code:
Sub ReNamer()
For L = 3 To 9
Sheets(L).Name = Sheets(L).Range("A1").Value
Next
End Sub
Is it possible to run a macro when the value of a partcular cell is changed? (and if so how!)
View 9 Replies View Related 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