Conditional Format (vba Loop Is The Answer)

Oct 21, 2009

i have 3 columns and hundreds of rows.... i first applied conditional format to the first row (A1, B1, C1) only. no problems so far as A1 has value '0' which is minimum and B1 is the highest value '200' and C1 is variable value between 200' and 0'. Im using icon sets in this one.... now i want the below rows to have the same conditional format.... how do i do that because when i select them all rows and columns and try to apply conditioanl formatting the outcome is not the same as i got previously in the first row...it somehow combines all the values rather working only on the individual row. i hope u get wat im tryin to say....

i come across a solution in my mind to give a loop in vba to do the conditional formatting each row seperately untill empty cell of column no. 4.... but doing this will obviously eat lot of memory in excel cause of each row will have a seperate conditional format.....

View 9 Replies


ADVERTISEMENT

Find And Delete Depending On Answer To Msgbox Then Continue Loop

Jun 5, 2012

I am trying to build a macro that will search a column for the word "TEST" and when it finds that word it needs to prompt the user with a YesNo message box (or something similar) if they would like to delete the entire row that contains TEST. If Yes is selected, it should delete the row and continue on to find the next TEST in the column and repeat this process. If the user selects No, it should continue on to find the next TEST in the column and repeat this process.

View 4 Replies View Related

Answer For Comparing Cell Should Be True - Format Same

Feb 25, 2014

Here is the qtn if two cells A1 and A2 has "ab 1" and "ab 2" the answers for comparing cells should be true as both cells has first 2 letters as alphabets then space followed by numeric..format of cells is same.

View 2 Replies View Related

Save Conditional Format Colour But Delete Condition Format

Dec 19, 2006

I have a Sheet ( Named "Summary" for Example ) of about 4,000 Rows that has a LOT of Conditional Formatting.

I Added Another 100 Rows this Morning and when I Tried Saving it a Message Saying that Not All the Formatting for the New Data that had Been Added had Been Saved. Is there a Macro or Something I can Run that will Make the Conditionally Formatted Cells Stay the Colour that they are but Delete the Conditional Formatting Part of it Achieved Using "Format" & "Conditional Format" from the Menu Please.

Ideally I would like to be Able to Enter the Number of Rows ( From Row ? to Row ? ) that I want this to Apply to.

View 9 Replies View Related

Conditional Format Based On A Conditional Format

Feb 9, 2010

I have five fields that have a conditional format applied to them: (see attached).
Columns J, K, L, N and O. These conditionals highlight if a minimum number is entered. Ex. Minimum pushups for a 30 y/o male is 27, if a 26 is entered it highlights red. The total score (where I need this to perform) is calculated in column Q. It will format red if the total score is below 75 but what I can't figure out is how to make it format if any of the previous minimums have not been met.

Ex. In cell L4, his crunches were 25 (a automatic failure -- red formatting). Now the total score is above 75 so it calculates as passing (green), but I need it to highlight red regardless because of the minimum not met in cell L4.

View 2 Replies View Related

Copy And Paste Actual Format From Conditional Format?

Apr 12, 2012

I have a range which has conditional formats based on other cells. I want to copy this range into another sheet and retain the current formats as fixed formats without copying the conditional formulae. ideally in VBA.

View 5 Replies View Related

Conditional Formatting Based On Another Cell Conditional Format

Mar 20, 2013

Is it possible to change the format of cell AI3 based on the format of cell C3 and D3? I have C3 and D3 set to turn red based on what is in cell C2 and D2. I would like the following done:

If AI3=C3 & C3 is red, format AI3 blue
If AI3=D3 & D3 is red, format AI3 blue
Otherwise, leave AI3 unformatted.

Possible???

View 3 Replies View Related

Looping & Conditional Format: Finds A "J" It Will Apply Conditional Formatting To A Row Of 4 Cells Directly Adjacent?

Feb 9, 2009

I need to run a loop through a column of values (attachment col B) and when it finds a "J" it will apply conditional formatting to a row of 4 cells directly adjacent. The attachment is a theoretical before & after.

View 2 Replies View Related

Conditional Next In For Loop

Jul 31, 2009

I have a function with a large for loop. Usually the loop will run from 2 to some number specified by the user, however to save time I'd like to give the user the option to skip even iterations. Obviously I could have the for loop in the program twice with an if statement deciding which path to take, but it seems it would be slicker to do something like what is below:

View 2 Replies View Related

VBA Format Conditions For Next Loop

Nov 19, 2012

Problem: Placing a With/End With for FormatConditions in a For/Next loop isn't applying the conditional formatting.

Information:
- I have a stats section that has months as the column headers with totals at the end (used as a VLOOKUP table)
- Each column needs the conditional formatting separately
- The columns are static, but the rows are variable
- Taking it out of the loop and coding each loop individually works perfectly

The problem code:

finalRowTable = Cells(Rows.Count, 12).End(xlUp).Row
For i = 13 To 38
With Range(i & "11:" & i & finalRowTable)
.FormatConditions.Delete
.FormatConditions.AddTop10
.FormatConditions(1).TopBottom = xlTop10Top
.FormatConditions(1).Rank = 1
.FormatConditions(1).Percent = False
.FormatConditions(1).Interior.Color = 5296274
End With
Next i

I checked after running it and it doesn't show up in the Manage Rules Conditional Formatting

Code that works without loop:
Code:
With Range("N11:N" & finalRowTable)
.FormatConditions.Delete
.FormatConditions.AddTop10
.FormatConditions(1).TopBottom = xlTop10Top
.FormatConditions(1).Rank = 1
.FormatConditions(1).Percent = False
.FormatConditions(1).Interior.Color = 5296274
End With

I've been playing with excel VBA for a few months now, so it's probably something simple.

View 4 Replies View Related

Correct Format Of Do Until Loop

Jul 9, 2009

I have a question regarding Do While loops. I'm trying to write a do while loop to search through an array for a particular value and return the row number. This value is in the first column of the array and there are 211 of each value chronologically sorted. So, the first column from top to bottom reads 1,1,1,1..211 times, then 2,2,22,..211 times and so on. For this case, I want to return the first row where a particular value is found.

The loop I wrote is as follows: ....

View 9 Replies View Related

Conditional Copy_Paste_Delete Within Rows Loop

Feb 19, 2009

I have a Worksheet with 10K rows where the value for column A is "SMV". There are other rows where the value for column A is "SML". For rows where A1 = SMV, I want to make B1.value = C1.value and clear the contents of C1thru F1 (C1:F1).ClearContents.

No, I cannot sort, cut/paste and resort or put in a helper column with a clever formula (I think) because this Worksheet gets output to a delimited text file by a variety of users.

View 2 Replies View Related

VB Macro, FOR Loop With Conditional Formatting

Feb 25, 2010

I have a complex sheet where rows are continuosly overwritten and new data needs to be formatted each time. My macro works great aside from the fact the conditional format formula expression adds double quotes rendering the conditional format useless. After running the macro I can go into the conditional format field, remove the quotes, and the formatting formula works as expected. So...I first did a "record macro" to grab the code for conditional formatting:

View 2 Replies View Related

Efficient Loop Code To Format Labels

Feb 18, 2009

I am trying to creat a code that with take the value of an active cell and depending on this value will assign a backcolour to a label corresponding to the cell. so far so good.
I then want the code to offset to the next cell in the range read its value and assign a colour to that cells backcolor.

here is an idea.

range("A1").select
for n = 1 to 4
if activecell = "A" then
Label1.BackColor = RGB(0, 0, 0)
else
if activecell = "B" then
Label1.BackColor = RGB(0, 0, 255)
else
if activecell = "C" then
Label1.BackColor = RGB(0, 255, 0)
end if
activecell.offset(0,1).select
next n

Firstly I would like the next loop (refering to A2 in this example) to refer to Label2 not Label1 and so on.
secondly the example would loop through 4 cells in one row (A1:A4) but I would like the code to apply to several rows ie (A1:D4).

so thats 16 cell and 16 labels. I could code this in a very inefficient way but I am sure ther is a simple method.

View 9 Replies View Related

Loop Converting Date To TEXT Format

Jul 21, 2009

i'm trying to convert a column (P) from date dd-mmm-yy, subtract 5 days, and paste value as YYMM using a macro. I've borrowed bits from other macros and producted this but it's not working (and i've played around with it to the point it doesn't make sense anymore!)

Option Explicit

Sub ADD_REPORT_DATE()
Dim LR As Long, i As Long
Dim tempValue1
Dim tempValue2 As Date

Worksheets("Report").Select
LR = Range("P" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1

Set ActiveCell.Value = Text(ActiveCell.Value - 5, "YYMM")

Next i
End Sub

View 9 Replies View Related

Loop Through Worksheets And Format Chart 1 - Runtime Error

Jun 27, 2014

I wrote a chart formatting macro, which works when applied to a specific sheet, and I'm trying use it in a for each loop. The macro is supposed to loop through a list of sheets and only format chart 1. I'm getting a "run time error 438: object doesn't support this property or method" at this line:

Code:
.ActiveChart.Shapes("TextBox 1").TextFrame.Characters.Text = "Bodily Injury (BI) Liability Claim Trends" & vbLf & " 2005-" & Range("K5").Value & " Percentage Change"

Here is my for each loop:

Code:
Sub UpdateTextAllStateCharts()
'This macro loops through worksheets in a list and performs the assigned task
Dim sheet_name As Range
For Each sheet_name In Sheets("WS").Range("C:C")
If sheet_name.Value = "" Then

[Code] .....

This line is also causing the same error:

Code:
With .Characters(42, 68).Font

View 2 Replies View Related

Automation - Applying Conditional Formatting To Group Of Cells In Loop?

Jul 18, 2014

So I would like to automate the following, as doing it by hand takes a lot of time. I have searched the whole internet and finished empty handed.

Start from cell E10
Select cell
Move 3 cells down
Select cell
Move 3 cells down
Select cell
Move 3 cells down
Select cell
Move 3 cells down
Select cell
Move 3 cells down
Select cell
Move 3 cells down
Select cell
Apply double entry conditional formatting
Move 3 cells down
Repeat above until cell E5000

View 4 Replies View Related

VBA Loop Through Worksheet And Format Each Column As Text, Or Date Based On Header

Jun 30, 2006

I am trying to figure out a way to condense my code (improve my code) Right now I am using a Macro in Excel to go through a workbook by selecting each column individually and if there is something in the header then formatting that column as text. The problem with the way I am currently doing it, is that due to size limitations on the VBA code, I can only select columns A to Z, and if there is more data in the worksheet it is not formatted. Also I would like the code to check the header and if the word date is in there, format it as a date instead. Also if there is a way to delete any invalid ranges in the workbook

Sub Format()
Dim VarFileName As String
Dim VarPath As String
Dim VarSavein As String
Dim wsheet As Worksheet
VarSavein = Sheets("sheet1").Range("C2").Value
VarFileName = Sheets("sheet1").Range("A2").Value
VarPath = Sheets("sheet1").Range("B2").Value
Workbooks.Open VarPath & VarFileName
For Each wsheet In ActiveWorkbook.Worksheets
Sheets(wsheet.Name).Select
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:= Array(1, 2), TrailingMinusNumbers:=True..........................................

View 3 Replies View Related

Conditional Format Or Another Way?

Apr 22, 2014

how to view changes on my spreadsheet.

I have a tab called SAP DUMP where we copy our raw data to, from here we manually copy and paste into another sheet called ORDER TRACKING SHEET. When we do a fresh dump (overwrite) of raw data into the SAP DUMP tap we need to see if the there is a new entry which needs to be copied across to the ORDER TRACKING SHEET. I've got a vlookup to show this. The one I can't work out is that on the ORDER TRACKING SHEET I also need to see if there are any entries are now no longer on the SAP DUMP tab. This is where I thought a condition format might work, color the line red if it's no longer on the SAP DUMP tap. Can't make it work.....

View 2 Replies View Related

Conditional Format According To Day

Dec 16, 2008

I have a workbook with 12 worksheets corresponding to months. Each is formatted in A1 with the month (Date, Jan-01) and all rows below, starting at A5, are the days of the month (Custom, ddd d). All cells are linked so they change accordingly with A1.

I'm trying to apply conditional formatting so that all Fridays will have light grey shading across the row. I can get it to shade every 7th row using the MOD & ROW functions, but the shaded row changes with subsequent months and years (not necessarily Fridays). Can I get it to recognize every Friday through the year.

View 4 Replies View Related

Conditional Format In VBA

Apr 24, 2009

Hi1Tasks23-Apr-09Inercona.Trial1
b.Trial2

Tasks23-Apr-09Enercona.Trial1b.Trial2

Disregard the First Table. I cant remove it. refer to the Second Table

This table is a Task Tracker. The Start Button Adds the Current Date in Enercon's Row C1 and the row below (C2) will automaticaly filled with color using Conditional Formating. My Question is how can I code a conditional format for Trail1 Rows. For example when Trail1 Cell is active then you click the start Button instead of Coloring D2 Cell it should Color D3 Cell.

Here is the Code in Start Button

Sub cmdStart_Click()
Dim i As Integer
Results = MsgBox("Are you working on " & ActiveCell.Value & " today ?", vbOKCancel, "")
If Results = vbOK Then

With Sheets("Sheet1")
i = .Cells(2, Columns.Count).End(xlToLeft).Column + 1
.Cells(2, i).Value = Now()
i = i + 1

End With
Else
Range("A1").Select
End If
End Sub
Regards,
Kevin

View 9 Replies View Related

Search And Conditional Format?

May 14, 2014

I would like to conditionally format a column of cells such that it formats when a cell's text equals to that in another column.

Example, in column A I have

1 Cat
2 Dog
3 Mouse
...

In B I have
1 Chicken
2 Mouse
3 Monkey
...
58 Cat

Based on the B column I would like to highlight A3 Mouse and A1 Cat.

Additional complexity, In B I have
1 Chicken Mouse Dog
2 Rat Monkey Fish
3 ...

Given that this is the format I have the text in how would I search column A and conditionally format A2 and A3.

View 4 Replies View Related

Conditional Format For A Date?

Aug 21, 2014

I am having trouble with a conditional format of a date. I need it to turn the date red if it is 35 days older than today.

View 3 Replies View Related

Conditional Format Not Working

Sep 9, 2008

I have a conditional format that I wanted to add another argument to, but although the statement is true, conditional format will not toggle.

My original argument was:

View 14 Replies View Related

Conditional Format If Not Workday

May 26, 2009

Maybe I'm getting a blank, maybe the answer is so easy, but lately I canīt solve this: How do I use conditional format to change cell color if cell value (date) is not workday?

View 4 Replies View Related

Conditional Format And Or & FIND

Jul 12, 2009

In column B I could have blank, text or text containing the word "track" or "Track". In column C I could have Blank, "yes" or "Yes" or "no" or "No"

Only if B text contains "track" or "Track" and/or C contains "yes" or "Yes" I want to conditionally format B.

This does not work:-

=OR(FIND("track",B1,1),FIND("Track",B1,1),C1="yes",C1="Yes")

View 5 Replies View Related

Conditional Format With More Than One Rule

Aug 29, 2013

I have a table where Sales are in Column B and a % calculation is in Column E. I want to highlight the cells in green that are over 40% and that also meet the criteria where the sale in that row is above $100.

In conditional formatting I tried to use =and(b4>100,e4>40%) but it did not do anything. I am also okay with using a nested if statement.

View 3 Replies View Related

Add Text To Conditional Format?

Dec 9, 2013

is there a way to have a cell display a certain text if it is empty?

i.e. i would like all the blank rows in a section of my spreadsheet to have a grey fill and display the text "Please input your description here" if the cell is blank.

View 8 Replies View Related

Conditional Format Based On Even / Odd?

Apr 23, 2007

I want to be able to change the font color of the numbers in a column based on even or odd. I selected the columns and formated them to all be blue... thats the color I want for even, but now I can't figure out how to set a condition that checks for odd numbers and changes them to red. I now have a count of even/odd for all records, and even/odd for the last 30, this provided some very interesting results.

View 9 Replies View Related

Conditional Format Via Vb Code

Nov 26, 2007

I m creating a sheet in excel where I need to do some conditional formatting but need more than 3 rules so i'm guessing i'll need to use some vb code.

Basically I have a range of cells say from c12 to ag15
These cells all have formulas in linking to other cells in other sheets.

Tha values that will be in them are as follows: s, h, hd,ooo,z and maybe 1 or 2 more will be added later. I need the cells background and text colour both to change to a colour depending on the value in the cell.

eg. cell value = s then background and text colour both to be yellow.

View 12 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved