Search results

Hi, KirkComer, Conditional Formatting should do the job as well ;) Sheet VBA uses the following code: Sub PutCF() Dim lngLast As Long Dim lngCounter As Long Application.ScreenUpdating = False lngLast = Cells(Rows.Count, "A").End(xlUp).Row For lngCounter = 2 To lngLast With...

Hi, lemo, maybe consider FIND as an alternative if turning off ScreenUpdating and Calculation still is to slow. Sub LoopFromRight() Dim lngCounter As Long Dim lngCol As Long With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With For lngCounter = 3000 To 4...

Hi, lemo, why not work the range from high column to low and stop at the first appearence with negative steps? Ciao, Holger

Hi, cameron.scrimgeour, as I know noting about your formatting you could use the name Database for the range currently used which should rely on the range neede (or create a name yourself based on Offset and the number of records by Count/CountA). If you do it by VBA you could adjust the name...

Hi, lemo, maybe use the range with Cells and add the offset directly: LastInsp = WorksheetFunction.Match(1, Range(Cells(r, 132 + c), Cells(r, 155 + c)), 0) Ciao, Holger

Hi, cameron.scrimgeour, If IsEmpty(Range("A22").Value) Then MsgBox ("Cell is NULL") End If Ciao, Holger

Hi, Mathew, why not use the values for the ColorIndex? This oine is for Columns A to C but just the font, for the fill colour please use Interior instead of Font Sub ColorMe() Dim lngCounter As Long Dim lngCol As Long For lngCol = 1 To 3 For lngCounter = 10 To 30 With...

Hi, bobburg, if it´s Data/Validation please have a look at Data Validation Font Size and List Length as well as Make the Dropdown List Appear Larger which shows a way by VBA for a workaround. Ciao, Holger

Hi, Craig, to my knowledge there is no option to do this with the standards but maybe you could use an image with rounded corners instead of the bars/columns. Ciao, Holger

Hi, mberggren, use WorksheetFunction.Max to get the highest value of Column A (may be restricted to only the UsedRange isntead of the whole column like here: ActiveCell.Value = WorksheetFunction.Max(Range("A:A")) + 1 Ciao, Holger

Hi., LadyDi, Update Charts Automatically When You Enter New Data shows the basics with the use of OFFSET. Ciao, Holger

Hi, LadyDi, code goes behind the worksheet where the event should be fired (only by entering values into the worksheet): Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Columns(1)) Is Nothing Then Range("B1").Value =...

Hi, LadyDi, what about this formula? ="up to month: " & INDEX(A:A,MATCH("",A:A,-1)) Or do you prefer a UserDefined Function or the change based on an event like the entry of a new month? Ciao, Holger

Hi, mberggren, what shall happen if you add another cell inside that range - what number should they get? This macros rioght now works only for Column A (for rows use .EntireRow.Insert shift:=xlDown) With ActiveCell .Insert shift:=xlDown .Offset(-1, 0).Value = .Offset(-2, 0).Value + 1...

Hi, Brian, thanks for remembering my name after such a long time - seems I didn´t tell to much nonsense last time when I was around... ;) Ciao, Holger

Hi, Steve, from what I understand there are several entries in sheet Rules in Column E to be searched in sheet test Column D. You assigned a range for the Find-Method to earch in, and if the "WHAT" is found a range is assigned. If not the run time error 91 could arise which will be avoided by...

Hi, Steve, I´d prefer lr = Sheets("test").Cells(Rows.Count, "C").End(xlUp).Row Are you sure about your offsets (Time being found in C and targetcolumn being F means an offset of 3 for me) Sub Test1() Dim r As Range Dim lr As Long lr = Sheets("test").Cells(Rows.Count, "C").End(xlUp).Row...

Hi, smiler44, if you mark a range with the mouse or by using F8 and arrow keys there will always be one active cell which should appear white inside the otherwise shaded area. That´s the basic cell to use and to reference and to put the Conditional Formatting in for, all other cells inside the...

Hi, smiler44, make up the order for the comparisions before starting, mark the area (multiple areas by use of CTRL and mouse or F8 and arrows), the first cell to start and active cell in the ranges was D8. Starting the process with the active cell being the first marked cell makes things easier...

Hi, ashley, have a look at the workbook (using Formula Is instead of Value Is) - there will be no action if the value are equal. I marked the range before applying the Conditional Formatting taking care that D8 is the active cell. Another way would be to use the paintbrush for the copying...