Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with ActiveCell.HasFormula
Hi,
Can anybody suggest a way of getting the following function to work please, or tell me why the one I have shown does not work? I want to loop through a range of cells, and record the cell reference for all cells that contain a formula, or a couple of text strings:- For COL = intStartCol To intEndCol For ROW = intStartRow To intEndRow ActiveCell = Workbooks(strAnalysisFile) _ .Worksheets(strSourceSheet).Cells(ROW, COL) ' If cell contains a formula, this will be an RF ' Also record locations of N/A and Tens If ActiveCell.Value = "N/A" Or ActiveCell.Value = "Tens" _ Or ActiveCell.HasFormula = True Then RfFlag = True i = i + 1 Workbooks(strThisFile).Worksheets("RF_Locations") _ .Cells(i, j) = (ROW & "," & COL) End If Next ROW Next COL By changing "ActiveCell.HasFormula = True" to "Workbooks(strAnalysisFile).Worksheets(strSourceSh eet).Cells(ROW, COL).HasFormula = True" the test works Thanks in advance for your help, Paul. As an extra snippet of info, the address of ActiveCell remains at $A$1 throughout the above loop: which begs the question, why does the loop find all the "N/A" and "Tens" strings, but not the formula? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
If activecell.column = variable then activecell,offset (0,1) | Excel Discussion (Misc queries) | |||
HasFormula | Excel Programming | |||
Name the ActiveCell | Excel Programming | |||
HasFormula protect cell | Excel Programming | |||
activecell | Excel Programming |