xlautomatic

here is my macro. I have to highlight rows that only have the word "pad" in column M only. I changed it to M:M but it highlighted several columns that did not have the word pad in it. Selection.FormatConditions(1).StopIfTrue = False Cells.Select Selection.FormatConditions.add...

Any tips on cleaning this up to make it run a bit quicker? I've done all the tips i know, which is basically shutting off calculations, screen updating, etc. until the end. There is a lot of selecting and formatting but every time i try to mess with it, it breaks it. Thanks in advance! Sub...

I would like to color a range of cells a particular color upon entry of 1 of 6 identifiers: o, o!, o#, y,y!, and y#. I do not wish to use conditional formatting, because I want to assign the code to other buttons for other users (unique coloring system). I have the following code, but it seems I...

My macro steps through a table, the last step is to colour the row based on some criteria. At the moment it uses For Each product in Range ... If product.Offset(, 15).Value < 0 Then With product.EntireRow.Interior .PatternColorIndex = xlAutomatic...

I am trying to format 22 worksheets all the same way using a loop with no success. Can you see what I am doing wrong? Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets WithActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = ""...

I am running the macro below automatically at opening the workbook so It always looks the same. But when I delete the hyperlinks it changes the cell color if a hyperlink was there. Doing so manually via the mouse does not. I would like to preserve the cell colors. any ideas...

Hei, I would like to make a macro that searches the whole workbook for errors(#Value, #DIV/0, #Error etc.) and returns a cell either green (colour 5287936) if no errors found. or red(colour 255) if errors are found in workbook. to make it easy I want to search for "#" as I do not have "#"...

Hi Guys, I have a range from I10:O99, which needs formatting, prior printing. The formats include : Borders Font Verdana / Size 12 Font Colour - Black or Red - Which I can change later Align Horizontal - Left Align Vertical - Centre Row height = 30 Column width = 12 I have done it using a...

<!--[if gte mso 9]><xml> <o:OfficeDocumentSettings> <o:AllowPNG/> </o:OfficeDocumentSettings> </xml><![endif]--><!--[if gte mso 9]><xml> <w:WordDocument> <w:View>Normal</w:View> <w:Zoom>0</w:Zoom> <w:TrackMoves/> <w:TrackFormatting/> <w:PunctuationKerning/>...

Hey guys, Private Sub CheckBox13_Click() Application.ScreenUpdating = False Dim cell As Range Dim InputValue As String On Error Resume Next Range("I8,I11,I14,I20,I23,I27,I33").Select If CheckBox13.Value = True Then With Selection.Interior .Pattern = xlSolid...

I'm trying to auto format the data in a dynamic range, on a dynamic count of sheets, when the workbook opens. Essentially, every sheet not named "Variables" or "Financials" where there is data in any sequential row. I'm using this code, but it's not hitting all of the sheets. What am I...

Hello Everyone, I would imagine this to be a very easy fix for the skilled members of this forum, but I personally do not know how to do so. I created the following simple macro that applies border lines to select cells. It adds a border around the edges, as well as adds border lines to...

I'm using this code provided by Marcelo Branco to visually highlight a cell when it becomes the active cell by changing its font color to orange, then changing the font color back to black when the user clicks elsewhere and the cell becomes non-active. The SelectionChange event works great...