I am trying to copy part of a macro I use in one workbook which has a button which when clicked initiates the macro and changes the text displayed on the button from "Selection tree - On" to "Selection tree - Off". The code used in the original workbook (which functions ok) is:
View 2 RepliesI have written a piece of code that changes the text in a button (the code is added to the click event of the button):
View 5 Replies View RelatedI am trying to create a message box that initiates when a cell is populated with a value that is >= a certain value.
My current code looks like this:
Sub Flex()
Application.Screenupdating = Fales
If range("C6") >= .95 Then
Msgbox "Loan approval must be Flex"
End If
End Sub
The code works when I run the macro manually, but I want to run when the user changes the value in the cell.
I have a procedure that allows me to view and make changes to data in a table. I list the current values for the item in one column and use simple formula to copy that value to another column where if there are changes that need to be made, the formula is simply overwritten. The Macro is then selected using a command button and the formulas are all overwritten using copy/paste values to keep from writing out the formula to the data table. These values are then all written back to the data table, current values are overwritten with whatever is in the update column, new data or old data.
I have one cell out of 48 that has decided to march to the tune of a different drummer. The format changes from General to Text and the formula written from the macro is what shows up in the cell instead of the value of the formula. Never a big disciplinarian, I have to wonder if I have been too lenient on the cell and this defiance is the price I have to pay.
The sheet is protected only allowing entry into the cells available for update.
Here is the bit of code that affects this cell (starting from a format of General:
Code:
Sheets("Product Data").Cells(ItemRow, 3).Value = Sheets("Update").Cells(6, 8)
Sheets("Update").Cells(6, 8).FormulaR1C1 = "=(RC[-6])"
I just don't see anything that would change the format, and these are the only two lines that even reference cells(6,8).
I tried to set the format for the cell from within the Macro, but with the sheet being protected, it just dumps me out to my error message.
How do I copy the button text and use it in a macro?
I have a worksheet that tracks several employees' work. I copy the rows with their work into a sheet with their name. Right now I have eight macros with the macros referencing their names. I would like to have one macro and just change the name depending on the button I pick.
My apologies if this might sound a bit newbish compared to other questions asked on this forum, but I'm new to vba and there are 2 things I can't work out.
1) I wrote a function that takes an arguement and wish to call that from a number of buttons I placed on my worksheet, each button passing it a different value for the parameter. How can I do that?
2) From my code, can I reference back to the button to change its text?
how to put together a macro for a command button that deletes rows with certain text in a docyment - which worked fine a week or so ago - but now the macro will not work.
I made changes to the document - but made sure i also made changes to the code.
I am using VBA to change the attributes of Command Buttons on a number of pages and due to the numbers involved wanted to automate the process.
Unfortunately whilst I can select the buttons, changing the attributes I cannot get to work, e.g. For Command buttons CB1 and CB2
After hours of searching the web and not finding what I am looking for, I am starting to doubt whether or not this is possible. Here is what I am trying to do.
I have about 10 form buttons on top of one of my worksheets. Each one is attached to a macro that filters 10 pivot charts. All the macros work just fine, but it starts to get confusing what data is being represented. So, what I would like to do is have each button set to display as depressed (or similar) when its pushed using vba in each macro. That way, there will be no confusion as to what buttons (filters) people have pushed.
I have created two buttons in a worksheet to navigate to two other worksheets. I would like a cell to display 'YES' automatically if one of the two buttons is clicked and or to display 'NO'. I also would like to change the colors of these cells change automatically depending on which button is pressed.
View 2 Replies View RelatedI have the code below in a macro which seemed to work fine but somehow it manages to convert cells in text format into "?/??" format when the macro is run. This bit relates to the part of the code highlighted in red below.
this is causing me major problems and need to fix it asap. I've attached a copy of the workbook if it helps. Unfortunately, to run the macro you will need to change the file directory to one that will suit.
how to change the color of a command button created by using the control tool box
View 2 Replies View Relatedso I know how to change the color of a command button(right click, properties), but is there a way to change the color to a specific red green blue range? lets say 102 28 02 for example
View 2 Replies View RelatedContext: I have a spreadsheet that contains a list of employee names and their certifications. I want to be able to assign a button to each employee in column B with a macro that is able to zip files from a folder that contains that employees name.
The following code assigns buttons to each employee in column B. At the moment the code I have is able to assign the macro "Zip" to each button.
[Code] .....
Now, this Zip macro is able to zip the file for the employee "Anthony Tran". However I need it to be able to recognise which employee's button I've clicked and search the same files as above except with that employees name instead of "Anthony Tran".
If it makes things easier, the code for creating buttons for each employee is able to name that button as the employees name that it represents.
This is probably really straight forward but cant see why it happens, the following macro works fine when called by a button created by the form toolbar but doesnt when called by a command button, get the runtime error 1004, "select method of range class failed"
ActiveSheet.Select
Range("B4:B37").Select
Selection.ClearContents
Range("G4:G37").Select
Selection.ClearContents
Range("B1").Select
Selection.ClearContents
Range("D1").Select
Selection.ClearContents
Range("F1").Select
Selection.ClearContents
Range("J1").Select
Selection.ClearContents
Range("M2:M3").Select
Selection.ClearContents
Range("B4").Select
ActiveWorkbook.Save
Application.Quit
Context: I have a spreadsheet that contains a list of employee names and their certifications. I want to be able to assign a button to each employee in column B with a macro that is able to zip files from a folder that contains that employees name.
The following code assigns buttons to each employee in column B. At the moment the code I have is able to assign the macro "Zip" to each button.
VB:
[COLOR=#333333]Dim Btn As Button[/COLOR]
[COLOR=#333333]Dim rng As Range[/COLOR]
[COLOR=#333333]For I = 2 To RowCount + 1[/COLOR]
[COLOR=#333333]With Worksheets("Sheet1")[/COLOR]
[COLOR=#333333]Set rng = .Range("B" & I)[/COLOR]
[COLOR=#333333]Set Btn = .Buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height)[/COLOR]
[Code]....
The following code is my Zip macro:
VB:
[COLOR=#333333]Sub Zip()[/COLOR]
[COLOR=#333333]Dim strDate As String, SavePath As String, sFName As String[/COLOR]
[COLOR=#333333]Dim oApp As Object, iCtr As Long, I As Integer[/COLOR]
[COLOR=#333333]Dim vArr, FileNameZip[/COLOR]
[COLOR=#333333]Dim FName() As Variant[/COLOR]
[Code]...
Now, this Zip macro is able to zip the file for the employee "Anthony Tran". However I need it to be able to recognise which employee's button I've clicked and search the same files as above except with that employees name instead of "Anthony Tran".
If it makes things easier, the code for creating buttons for each employee is able to name that button as the employees name that it represents.
I have an userform with 10 txtBoxes that I want to have the color changed based off another textbox Values (they will side by side, so when the user enter a value, it will know either it's excelent, good, average or bad based on the colors green, blue, yellow and red).
Is there a way to do so? Because all I have managed to do is to change one txtBox color per time, based on the value entered on the same text box (i.e. if I change the text box which should be changed, nothing changes).
If the user selects French (radio button selection), I want to swap out the existing English text for French and vice versa. One large text box with several paragraphs. Can Excel do this?
View 2 Replies View RelatedI have a userform and want to disable the command button unless a text box contains text. what I need to do?
View 2 Replies View RelatedI was wondering if there is a formula to change cell C2 to "Red" (One uppdercase, the rest lowercase) or if this was only possible through macro?
Also, would there be a way to combine B2 & C2? I apologize, but that was the only logical way I could think of to get the output in C2.
I'm trying to create a code that will convert a column into another pressure unit. And then go back and forth as a button is pushed. I have been having trouble getting the units to switch from one to the other and I think it's because I can't get the line to re-write a cell correct.
Sub Macro5()
If InStr(1, ActiveSheet.Range("M4").Value, "psi") > 0 Then
Dim rngData As Range
Set rngData = ThisWorkbook.Worksheets("Data").Range("M6:M10000")
rngData = Evaluate(rngData.Address & "*14.22334")
Worksheets("Data").Range("M4") = "psi"
[Code] ....
i have a spreadsheet that has 3 shifts. its a weekly data sheet. i have 52 sheets for every week of the year. so far i have a "data" sheet aswell. this is the first sheet. I use this data sheet to generate the information or the other 52 sheets. example is you enter the date of the first monday of the year and it generates the dates on all of my sheets for the whole year. i would like to do something similar for the shifts. i would like to have a cell the enter the shift of the first supervisor on that first monday and have all the shifts generate. 1=nights,2=days,3=afternoons. but i do not want the number to appear i would like the word. the set up goes like this:
DATA E9 = the first number for shift to generate all other numbers
A5 = cell to display first shift
A22= cell for the next shift
A39= cell for last shift
on sheet1 i have A5 as =sum(DATA!E9)
i would like A22 to be the shift after example if A5 as 2 for days than A22 would be 3 for afternoons and A39 would be 1 for nights.
preferably displayed as DAYS/AFTERNOONS/NIGHTS
Currently we do a lot of report crunching using Crystal Reports. We will then dump the data into an Excel sheet to run varying pivot tables or databases off of.
Often we will have a field that the formatting will not match up to anything in Excel. You can change the cell to Text, General etc. The main problem associated with this is running VLOOKUPs. The item we type in will not match up to the data imported from Crystal. We have to F2, the new data before it will match up which is a pain considering there can be anywhere from 30-1000 rows.
I'm trying to solve this problem in 2 ways. First can anyone tell me an easier way to do handle this?
Second, after trying many other things I thought about a macro that would automate the F2 process.
I copied a series of email addresses that I would like to convert into text. The email addresses, when hovered over, have a mail to: in the address. If I remove the hyperlink, all I get is the person's name but not the actual email address. How can I get just the email address?
View 8 Replies View RelatedWhat is the formula to cover multiple different text that could come up? I could have an answer that is NA, Yes and also a blank cell and if I could I would like to have it set up as follows:
NA = -
Blank Cell = 0
Yes = 1
I am developing a form to get the user's name. I want to put some default text in the textbox where the user types their name. I want the form to delete the default text when the user clicks on the text box or after they start typing their name.
Attached is the form and code that runs the form : UserName.xlsm
I'm looking to perform a Find and Replace over all text boxes on all sheets.
I found this vba over at excel ribbon.tips which does the trick, but only works on the active sheet... I'm looking for it to work over all sheets. I'd also like it to look for 2 different instances.. For example, Find A replace B, and Find C replace with D.
[Code] ....
I would like to change the color of my text on my X-axis of a graph. I would like to have 4 or 5 different colors to identify different categories. I see how I can change all the text but how would I change just the text in column 1-3 to red, column 4-7 to blue, etc...
View 2 Replies View RelatedI am trying to simply change the text inside a textbox named (TextBox 2). My current line of code is giving me the error "The item with the specified name wasn't found". Any thoughts on how to troubleshoot this?
'Format ReportWith ActiveWorkbook.Sheets("The Flux") Lastrow = .Cells(Rows.Count, "E").End(xlUp).Row .Shapes("TextBox 2").Characters.Text = SelectedStmt 'Change Statement Title
I have a value list box in C1 with 4 values "Yes", "No" , "Pen" & "Con"
If a user selects Yes in C1 for example I need J1 & K1 to populate with Yes (or No if they selected No from C1)
but if they have selected or later change the value in C1 to Pen or Con for J1 & K1 to remain empty.