Vba Shade A Cell Once Its Moved ( And Add New Rows Beneath ) Minor Code Adjustment
Nov 7, 2009
I've adjusted a jonmo code to add an item in col B which is not in col A to the bottom of col A. - fab code, thanks jonmo.
But.. i want to:
insert rows beneath those in column A to accommodate the added items and shade those cells in list A once they been added ( so the users now they've been moved )
I've posted the code below ( including my attempts at colour change where it shade the right cell but in the wrong column ) ...
I have Office 2007 and i use this code on my word.docm to insert selected photos. the problem I'm having is that it insert photo at top of page. can additional code be added so that it will insert photo in same table as command button. and in front of button, so that it will hide button
Private Sub CommandButton1_Click() Dim sFileName As String Dim ilImage As InlineShape With Dialogs(wdDialogInsertPicture) .Display If .Name "" Then sFileName = .Name Set ilImage = ThisDocument.InlineShapes.AddPicture(sFileName, , True) With ilImage 'set any additional properties such as left, top, etc., here End with Else Exit Sub End If End With End Sub
I am fairly new to VBA and I am having some trouble with a VBA routine that was used in some workbooks I was given and I am trying to reuse that code.
What I am attempting to do is to shade the rows (alternate colors) whose value in Column C is the same until that value changes.
Example: Row 1, 2 & 3 all have the same value in Column C so these would shade color 15 Row 4 thru 10 have a different value in Column C so those would have no shade Row 11 thu 13 have a different value in Column C so these would then be Shade 15
So here is what I have done:
I set the range for the routine to step thru, then I defined the row & column to start processing. I then compare the current row to the row above. If the values are different then I compared the colors of the rows, and set the active row to the opposite color.
This routine runs but the first cell in each grouping isn't being shaded but then the rest of the rows are shaded correctly. I have searched the web and look thru my code several times but to no avail, I cannot seem to understand why this will not work.
Code: Sub grid_coloring() Dim rwIndex, colindex, colindex2, ncount, bcount As Integer 'set rwindex, colIndex as an output number for columns. bcount and ncount are for counting blanks and dupes Dim theRng As Range Dim FirstRow, FirstCol, LastRow, LastCol As Integer
The code below puts a green border around the cell that is beneath 10 in my chosen range, however I wish to add the border to the row of information instead of just the cell. My columns of data are from columns E to M, but the criteria for whether or not the data gets a green border is in column D....so lets say D15 is less than 10, I would want a border to go around E15:M15.
Sub Test() For Each c In Range("D2:D350") If c < 10 Then c.select With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 4 End With
when "Update"(code is under "Update"button) button is pressed to copy the data from userform to the database sheet exactly into columns where both column heading match, for example if userform has heading "Qty Received " all data from that column should be in the database column with the same header "Qty Received"
I attached my file when you will open the file you will find screenshot how it should look.
I have two columns and each record in the spreadsheet fills both cells. I want all rows beneath the data to be hidden except for one, which is for the user to input a new record. When they are done completing the record, 1 row becomes unhidden (which will be for another inputted record). I also need it so that the new row becomes unhidden ONLY when the user inputs values in BOTH columns of the new record. I have already used Data Validation on each individual cell (column a is validated only for numeric entries and column b can only be picked from a drop-down list)
Is it possible to modify the attached code so that it will copy bold text and border as shown in attachment sample1 and paste in sheet Shop. Currently the code just copy's and pastes without bold text and borders.
I am still new to this, and I pulled this code off of another site.
Background: - Using Excel VBA, 2007 - I have a sheet that has a name in B6, has 4 blank spaces beneath, and then another name, 4 blank spaces, etc. - I wrote a code to fill each of these 4 blank spaces with the value at the top of each - The code works, but it won't fill the 4 spaces at the bottom of the column.
What is needed: -how I can adjust to code below to fill in the 4 spaces beneath the last value in the column?
Code:
Sub FillBlanks() Dim rRange1 As Range, rRange2 As Range Dim iReply As Integer
In B16:T24 I have cells that need shading depending on what code I put in them. I have 5 codes P, BH, S, ML, HD
I would like the cells to change colour, when I put P in them I want them to change to blue, when I put BH in them I want them to change to green, S I want to change to red and so on.
I have a chart, I need to select a cell beneath that chart. It can be the top cell or top left cell. So is there a way, by using vba, to know which cell is the top or left cell being covered by a chart
When recording a macro, how would I have it record me searching for a word in a cell, then select the two rows beneath it so that I can hide/unhide the hidden rows?
The reason it has to search for the word in the cell is that with changes above, the rows keep getting bumped further and further down (i.e., a moving target).
What I'm trying to do is, create a formula that works like vlookup, except I want to return the value of the cell that is a specified number of cells below the looked-up data in a single column array. So, let's say cell A1 reads "Bacon". In B1, I'd like to put a formula which searches the array for the cell that contains "Bacon" and then returns the value of the cell underneath, let's say the value is "Eggs". Then in C1, I'd like to put another formula which also looks up "Bacon" in the array, then returns the value of the cell that is down two cells from the cell that contains "Bacon", let's say the value is "Milk". And then in D1, a formula that returns the value 3 cells below "Bacon", and so on. All the values here will be text, and not sorted in any specific order. I'll be using Excel 2010.
Please take a look at the attached sheet if it clarifies things.
I'm trying to count the number of non-empty cells beneath a reference cell and would be most grateful for a few pointers. The code I currently have (that doesn't work) is:
I have this loop, I get a range of specific cells and then I loop over this collection searching for a value, if this value exist I wanted to move one place to the right and then set a value on that cell, but for some reason when I put this offser(0,1) parameter, the loop became infinite, not sure why the code is doing this:
Code: For Each c In Worksheets("Parameters").Range("A3:AR3").Cells adress_start = "" adress_letter = ""
Currently have a column of cells that after the data has been entered we would like the cell to lock to prevent changes. The sheet is currently protected with the cells in question unlocked (D173:D250). We would like to be able to change the data if we unprotect the sheet. We would also like to be able to add/delete cells (list) in the code as needed.
I have a work sheet that has a date in a cell B7 and the system Date is Cell AB4.
What I wish for the sheet to do is shade the cell depending on the following criteria: If the date in Cell B7 is 2years and 10 months Before the System date to shade it Green, If the Date is Between 2 years 10 month and 3 Years before the System date shade yellow and if it is 3years and over shade Red.
For example if the date in B7 is 11-12-08 and the system date is 13-01-09 then the cell will be shaded Green.
Is it possible to use a formula to shade a cell dependent on a condition? I have tried an if formula (see below) but it is incorrect. =if('November 2006 SVOC'!B6>'March 2006 SVOC'!C6,'November 2006 SVOC'!B6 [red],if('November 2006 SVOC'!B6<'March 2006 SVOC'!C6,'November 2006 SVOC'!B6 [blue],))
I have put together a duration schedule for work and have it set up now so the days with automatically fill if they are on or between the start/end date. Below is the formula that I have constructed. As of right now each activity is colored the same. I would like to have each activity match the color of the person performing it. My crew names are all in column A with a conditional format to be color coded with the name entered.
way to shade/color a cell with a filter that is in use. . . that way, a user doesn't have to look at microscopic drop down filters to figure out which column is being filtered. .
Im writing a spreadsheet that will act as a hotel room booking diary. There will be 52 sheets (representing each week of the year) and each sheet will therefore represent one week
Each sheet will look at operate the same. Running horizontally will be the days of the week and running vertically will be each of the bedrooms. There are 22 bedrooms in total and each room will have 12 cells allotted to it for each day - lets call this a 'block' and presume that the first block runs from C10 to c21. The final of these cells C21 will have a validation and the user can select 'PAID' 'TO PAY' or 'INVOICED'
If the user selects 'PAID' in C21 I want cells C10 through to C21 to shade GREEN If the user selects 'TO PAY' in C21 I want cells C10 through to C21 to shade RED If the user selects 'INVOICE' in C21 I want cells C10 through to C21 to shade YELLOW
I have a column with dates of July 1 of every year. How can I use conditional formatting to shade a cell a certain color based on July 1 of every year? The cell for July 2013 should be shaded, when 2014 comes, it is no longer shaded, then 2014 becomes shaded, & so on...
I am having a bit of an issue with SUM and AVERAGE of a particular column. The sum is giving me zero total, and the average is giving me a DIV/0 error. Have a look at the attached spreadsheet. I am trying to sum and Average column "I", but as you can see, it is giving me a total of zero, and an average of "DIV/0" error. Also min and max calculations are not working for that column either. Obviously it has something to do with the formula or formatting in column I, but I am not sure what or why... The formula in column I works as I like it to.
I have a spreadsheet where I want to be able to Fill cells green in Column B to Column N for any Rows that have a value in Column L. All other Rows should remain the current colour (orange).
I can Fill the cells in Column L using conditional formatting but am not sure if I can use Conditional Formatting on other Columns so that their Fill colour is determined by the value in Column L?
I have a spreadsheet that will monitor payment schedules, in which both payment frequency and the payment start date are inputted by the user.
As such, to make filling out the column(s) fool-proof, I want to grey out cells in which data should not be entered.
For example, if the payment frequency is every 6th day, and the payments are to begin on day 0, then days 0, 6, 12 (etc) should be left white, whereas the remainder of the cells should be shaded.
I can achieve this using multiple conditional formatting rules in excel2007 with iterations of formulae of the type:
I have two columns. One with the major weight(pounds and one with minor with ounces. The first column would have a 1 the second 8 for 1 lb 8 ounces which I need to combine to say 1.5 Every way I do it it is coming up with 10.5.
I have a very large database that contains names with minor differences on column A such as:
A EXCEL AMERICAN COMPANY S.A. EXCEL AMERICAN COMPANY SA. EXCEL AMERICAN COMPANY, S.A. ASSOCIATION, INDUSTRIAL ASSOCIATION INDUSTRIAL L.A. COMPANY CO LA COMPANY CO
As you can see, this makes a mess when dealing with numbers associated with them and makes analysis more difficult.
What I've been trying to figure out is how to quickly get in column B a standard name for each one, for example:
B EXCEL AMERICAN COMPANY S.A. ASSOCIATION INDUSTRIAL L.A. COMPANY CO
I was thinking of using a combination of the FIND and EXTRACT formula or maybe LEFT as well. (Maybe VB?)
