I am making an extended spreadsheet schedule for a friend, almost done except how to do this easy: There are 135 (!) cells that will represent day and time in a workweek if someone is available or not. Easiest procedures we could think of is make the cells some how change color, all red by default (unavailable), change them to green if someone is available. We were making a button change its color, but it will require a lot of programming (index numbers to remember) is there an easy way to program 135 buttons or cells to change its color on a mouse click?
I want to create an event handler for multiple buttons. I know that it can be done in VB but I'm not sure about VBA. Auto Merged Post;bump* Auto Merged Post;bump*
I am trying to find some better looking command buttons for userforms in excel VB. Maybe like the ones you can use in Access from the command button wizard. inoculars for find, door for exit etc. Does anyone know how to get these in excel VB editor?
I have a file which contains many worksheets with many buttons on them for doing administrative work when updating data. I want to be able to click on a button on my "admin" worksheet to hide all the other buttons on the other worksheets. This is hide the buttons from the view of 'readers' so that they will not be tempted to click on a button to see what it might do. I have tried several different variation of coding, but can not seem to get the "right" object to work with so as to set the code to be xxxx.visible=false. I seen references to Shapes, Shape, Control Toolbox buttons objects, CommandButton, etc.
I would really appreciate if someone could give some pointers on how to designate in VB code, which will lend itself of future updates, the following:
in a toogle button, loop through the series of worksheets making each command button on that sheet set visible = false. Then for the other portion of the toogle repeat the process, but set visible = true.
I have frame on a userform with command buttons. Is it possible to loop thru and capture the command button captions in a textbox. I'm trying to put together keyboard on a userform, so the user can populate a textbox with letters or phrases.
In cell A1, I have the month number (eg, 1, 2, 3,). The month number reflects current month and will automatically change with every month. For example, right now it’s 6, next month it will automatically change to 7. Each two columns in Range A10:X20 represents the data from January to December. I want to use a worksheet event to change the background of the current month two columns in the range to yellow color and the two columns in the range will be visible when I activate this sheet.
I need to create a routine that searches through all the worksheets in the active workbook. The worksheets tab is a specific color based on the level of urgency that is needed to attend to the information in the sheet. I am usin a userform with Option buttons to select the color I need to find and a 2 column listbox to which I want to store te contents of cell c4 of each sheet and the name of the sheet.
I've written the attached code but get a Runtime erroe "91" Object variable or with block variable not difined
Private Sub CommandButton4_Click() Dim listB As Boolean Dim lCount As Long, lCounted As Long Dim lShtLast As Long
listB = True If OptionButton1.Value = True Then tabcolor = 3 'Urgency color is RED If OptionButton3.Value = True Then tabcolor = 6 'Urgency color is YELLOW If OptionButton2.Value = True Then tabcolor = 4 'Urgency color is GREEN If OptionButton6.Value = True Then tabcolor = 41 'Urgency color is BLUE If OptionButton4.Value = True Then tabcolor = -4142 'Urgency color is NULL If OptionButton5.Value = True Then tabcolor = 53 'Urgency color is BROWN If OptionButton8.Value = True Then tabcolor = 19 'Urgency color is WHITE If OptionButton7.Value = True Then tabcolor = 48 'Urgency color is GRAY
I have a worksheet 'stock levels' which I list all my products and the amount we have in stock.
I have another worksheet called 'on order' which lists products that we currently have on order.
In the 'stock levels worksheet, I have a column called product id' & 'on order'....
I would like to do a check of the 'on order' worksheet to see if 'product id' exists in the 'product id column' - if so then color the 'on order column green, if not leave same.
i trying to write a macro to add Yellow background color to all the data starting from row 2 in a specfic worksheet but the rows of data is always different it coulsbe from row 2 to 50 then the next day from row 2 to 100 etc.
Code: Sub Macro2() Range("A2").Select Range("A2:O56").Select With Selection.Interior
I am sure that a worksheet change would be the best way to go for this, but I am unsure how to test for this.
I am looking to prevent users from using a select set of colors for highlighting. If the user tries to highlight using one of these invalid colors, I would like to flag a message telling the user that this color is reserved and highlight the selection to the previous color.
The previous color may be a tricky part as I do not know if this can be done.
What i want to do is based on values in a worksheet row to fill the corresponding columns with black color on another worksheet. E.g i have the first row filled with 1,3,5,6,8 then i want the second worksheet on the first row to have filled with black color the 1st,3rd,5th,6th,8th columns and nothing on the others. The same goes for the entire sheet.
I occasionally give presentations with Excel and would like to make it easier for the audience to see a particular cell when I move to it. The cursor can be tiny, and some people have a hard time seeing the cursor, so I use the keyboard to navigate to the cells I talk about. Yet, the cell, which then has a border around it, still can be hard to see.
Is there a way in Excel to have a cell that is highlighted, that is I move to a cell with the keyboard, so that it pops out in a different font color or background or format, when I move to it, and it automatically reverts to its usual format and color when I move away from it?
I have a workbook with 4 worksheet that store different type of data. It also has a userform that load at start of the application which is to search the data in the workbook. The userform has a combobox where the names of the sheets are stored. when the user selects say Sheet2 in the combobox, it enables the relevant textboxes on the userform and activates the worksheet at the change event. The userform has a search button that searches all the worksheets based on the text entered in a textbox.
The problem: how to search based on 1 textbox. What I want is: say for e.g the end-user selects sheet2 from the combobox, this intern enables 4 textboxes (Name, DOB, Nationality, ID #) on the userform. The end-user should have the liberty to enter data in 1 and/or any of the textboxes. The search should be performed, that if data is only in 1 of any of textboxes then give all rows that fit that criteria and display in a temp worksheet. if say the name and dob is filled by the user than what matches both should be displayed in a temp worksheet. if say dob, name and ID# given so the search button should narrow down to fit all 3 criteria and then display result in temp worksheet. As if mentioned data can be entered in either just 1 or any or all textboxes.
E.g. the worksheet is (Columns are Name, Nationality, DOB, ID#)
row 1 = name: Steven Martin, DOB: 27-may-1993, Nationality: Trinidad & Tobago, ID #: 1234567 row 2 = name: Gary Richards, DOB: 2-FEB-1993, Nationality: British, ID #: 456789 row 3 = name: David Cohen, DOB: 27-May 1993, Nationality: American, ID #: 98765 row 4 = name: Roberto McDonalds, DOB 21-Jul-1962, Nationality: British, ID # 654321 row 5= name: Gary Richards, DOB: 01-Dec-1978, Nationality: Australian, ID # 1234567
Now if the user enters only name as "Gary Richards" and search then row 2 and 5 should be displayed in a temp worksheet. if user enters name Roberto McDonald and ID# 1234567 then it should not display anything. if user enters DOB 27-may-1993 and nationality British and ID # 1234567 then as well shouldn't display anything and should a msgbox "no data found".
I'm trying to create a macro to merge multiple rows into one cell and display in a new worksheet.
This seems really simple but I've tried to re-work some other examples I've found online but none seem to do exactly what I need. I'm also pretty new to VBA , so it's highly possible i've missed something.
I need to display each set of Notes for each DonorNo in one row - with each note separated by a space.
I've attached a sample of the data and what I need for the output. In the actually file I have around 70,000 records so the prospect manually merging the rows is horrifying.
I am trying to use the worksheet calculate event to automatically change the color of a cell only when that particular cell changes. In E2 of the worksheet is a formula use to determine rating based on the result of 2 other cells. The rating is classified as follows
Low Moderate High Maximum
I would like to generate a different set of color to the cell and fonts for each of the rating. For example,
"Cyan" to the cell E1 and E2 with Black font if the result is "Low" "Plum" to the cell E1 and E2 with "Black font if the result is "Moderate" "Blue" to the cell E1 and E2 with "White" font if the result is "High" and "Red" to the cell E1 and E2 with "White" font if the result is "Maximum"
I have this code that works fine until I password the sheet and the range (b9:d65536) is protected. When I protect the sheet and make a change I get a debug error. What would I need to add/change to handle protected cells on a protected sheet?
VB: AutoLinked keywords will cause extra spaces before keywords. Extra spacing is NOT transferred when copy/pasting, but IS if the keyword uses "quotes" ....
I have a monitoring database and I want to create a 'source' sheet in sheet 1 whereby when I enter names into a certain column they rename different tabs/sheets in the worksheet. for example, the name 'Brown' inputted in cell 'A2' would rename sheet 2, Black in A3 would rename sheet 3 etc.
I have a data table that contains begin dates, end dates, and colors. The data is input starting with the earliest begin date. On a second worksheet, I have a listing of the years starting with the year of the first begin date and ending with the end of this year. I need to be able to pull any color choices associated with a year from the data table on the first worksheet. Some years may not be specifically listed in the data sheet as the person could have had the same color choice for several years. Sometimes a person could have more than one color choice in a year.
I am at a loss for how to get to the data I need. I created an example spreadsheet to demonstrate the data I am working with, and an example of what I need my results to look like in the end.
I have a row containing numbers from 1 to 4 and I want to use a color scale to differentiate between the cells easier. The problem is, that I have multiple sheets and in some sheets, I get a different color scale, even though I use the same command and color scale.
I've already removed the "conditional formatting" on all worksheets, but the problem isn't resolved. Is there another way to clear the formatting of a cell, besides going to the "Conditional Formatting" tab and clicking "delete rule for entire sheet"?
I have an excel 2007 work book with multiple worksheets that updates daily. I want to bring all the data from each of the work sheets into a new worksheet so that i can create a pivot table.
All the data in the worksheets have the same headings and correspond to the days of the year.
I'm making a Excel list for trading cards (MTG) and I've divided it into different worksheets in order to sort it by the color of the cards (not really important I guess).
The issue I have is that I want it to copy certain columns (in this case C3:C1000, F3:F1000, G3:1000 ) from almost all of the worksheets into a new worksheet where it should paste them into column A, B and C.
In two of the worksheets it's also different (C3:C1000 , G3:G:1000, H3:H1000).
I've seen many where you copy one range from multiple worksheets, and that would've been okay I guess if not those two worksheets were different. I'd prefer not to change them, and I'd also prefer if I could've gotten just the information I needed also. Is this possible to do?
The following code won't let me copy from the first workbook. I get a run time 1004 error stating "That command cannot be used on multiple selections".
I would rather not have to copy this by column for each of the 4 workbooks
I've got a worksheet with each column in either grey or white for readability. There are certain rows in this sheet that I want to be a shade darker, but retain the same color scheme (i.e. the white columns would be light light grey, and the grey columns would be a shade darker grey).
Is there a way to do this by highlighting the cells, and selecting something to make them a shade darker, say 20 or 25% darker, yet retain the color 'family' if the column?
I want to write a macro to fill color in row 8 of the worksheet as solid black . Also columns P,T,AP,BC ,BE and BG should be filled solid black and width should be 1 for the row and the column.
I have a workbook with a tab called "parts list" where there are thousands of parts with prices. I need to sum all of the parts based upon their location within the list. The list is divided with the following headers - Yellow (Assemblies), Gray (Sub-Assemblies) there can be many under a yellow header, and Green (Components) there can be many under a Gray header.
I have been summing the areas manually, and I am hoping for a more automated way of creating the totals by running a macro.
I need to sum (Column K) from Yellow+1 to Yellow-1 and deposit the sum in the starting Yellow row - Column L. This needs to be repeated for as many Yellow Headers as there are in the list. I then need to repeat the process for Gray Headers - Col K, Gray+1 to Gray-1, and put total in starting Gray header, Column L. Once again, there can be many Gray Headers under a Yellow header, and this needs t be repeated throughout the list. I then need to repeat this for the Green Headers - same as above Gray. I am hoping that this can be done by color, but if it's easier, I can sort the list by color and in column M, add an "A" to all Yellow Headers, "S" to all Gray Headers, "C" to all Green Headers, and "E" to represent the end of the component list -
I'd also like to have it be able to change the 2 cells to the right, in columns (M&N) whenever the conditional value given below are true. I thought I had posted this message yesterday but never saw it show up as a thread.
Private Sub Worksheet_Change(ByVal Target As Range) Set MyPlage = Range("L1:L800") For Each Cell In MyPlage
If Cell.Value = "Hold" Then Cell.Interior.ColorIndex = 3 End If If Cell.Value = "Complete" Then Cell.Interior.ColorIndex = 4 End If If Cell.Value = "Issued" Then Cell.Interior.ColorIndex = 43 End If If Cell.Value = "Release" Then Cell.Interior.ColorIndex = 36................
